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
您必须使用创建对象 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] 删除。
我来说两句