我在此代码中有什么错误?

友好的阿尔弗雷德
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim myconn As MySqlConnection
    Dim mycommand As MySqlCommand
    Dim myadapter As MySqlDataAdapter
    Dim mydata As DataTable
    Dim sql As String


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myconn = New MySqlConnection

        sql = "select * from inventory"

        myconn.ConnectionString = "server =localhost;" _
            & "user id=root;" _
            & "password=;" _
            & "database=testing"


        Try
            myconn.Open()

            mycommand.Connection = myconn
            mycommand.CommandText = sql

            myadapter.SelectCommand = mycommand
            myadapter.Fill(mydata)

            DataGridView1.DataSource = mydata


        Catch myerror As MySqlException
            MessageBox.Show("Cannot connect to database" & myerror.Message)
        Finally
            myconn.Close()
            myconn.Dispose()


        End Try
    End Sub
    End Class
维涅什·库马尔(Vignesh Kumar A)

您必须使用创建对象 New

只需添加

mycommand = new MySqlCommand()
myadapter =new MySqlDataAdapter()

像这样

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim myconn As MySqlConnection
    Dim mycommand As MySqlCommand
    Dim myadapter As MySqlDataAdapter
    Dim mydata As DataTable
    Dim sql As String


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myconn = New MySqlConnection()
        mycommand = new MySqlCommand()
        myadapter =new MySqlDataAdapter()
        sql = "select * from inventory"

        myconn.ConnectionString = "server =localhost;" _
            & "user id=root;" _
            & "password=;" _
            & "database=testing"


        Try
            myconn.Open()

            mycommand.Connection = myconn
            mycommand.CommandText = sql

            myadapter.SelectCommand = mycommand
            myadapter.Fill(mydata)

            DataGridView1.DataSource = mydata


        Catch myerror As MySqlException
            MessageBox.Show("Cannot connect to database" & myerror.Message)
        Finally
            myconn.Close()
            myconn.Dispose()


        End Try
    End Sub
    End Class

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

为什么我没有收到错误在此Java for循环?

为什么发布的Java源代码中有错误?

为什么我在无穷循环代码中有不同的结果

我在此代码中缺少什么:“否则,如果没有错误”?

我的链表代码中有什么错误?

为什么括号在此简单代码中有所作为

为什么我在此删除操作中有例外?

我的代码有什么错误?

为什么以下Java代码中有错误?

我在以下代码中有什么错误?

我的JavaScript代码有什么错误?

Python | Appengine:我的代码中有什么错误导致我无法获得“ Welcome,(此人的用户名)”的输出?

我的shared_ptr声明中有什么错误?

我不知道为什么这段代码中有语法错误

我的代码中有两个错误

谁能告诉我为什么我在此C代码中出现分段错误?

代码中有什么错误?

我的代码中有任何错误吗?

错误:$ injector:modulerr模块错误似乎我的指令中有一个注入错误,但是我不明白我的代码有什么问题

我在这个继承中有什么错误?

为什么我的 Python 函数中有语法错误?

为什么我在此代码中收到“您的 SQL 语法有错误”错误?

为什么我的 vba 代码中有“错误 424”?

按钮显示在屏幕上,但 textField 并非每次都出现。我的代码中有什么错误?

为什么我的 python 代码中有无效的语法?

0-1 背包代码中的错误。我的代码中有什么错误?

我不明白我的代码中有什么问题导致输出错误?

为什么我在此代码中收到 SIGABRT 错误

为什么我的 Kmeans CuPy 代码中有“OutOfMemoryError”?