VB 调用MySQL 和操作MySQL
时间: 2024-03-02 17:53:11 浏览: 17
VB可以使用MySQL提供的ODBC驱动程序连接到MySQL服务器并操作MySQL数据库。以下是一个简单的示例代码:
连接到MySQL数据库:
```vb
Dim conn As New ADODB.Connection
Dim connString As String = "Driver={MySQL ODBC 8.0 ANSI Driver};Server=localhost;Database=mydb;User=myuser;Password=mypass;Option=3;"
conn.ConnectionString = connString
conn.Open()
```
查询MySQL数据库:
```vb
Dim rs As New ADODB.Recordset
rs.Open("SELECT * FROM mytable", conn)
While Not rs.EOF
Console.WriteLine(rs.Fields("field1").Value)
rs.MoveNext()
End While
rs.Close()
```
插入数据到MySQL数据库:
```vb
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO mytable (field1, field2) VALUES (?, ?)"
cmd.Parameters.Append(cmd.CreateParameter("p1", adVarChar, adParamInput, 50, "value1"))
cmd.Parameters.Append(cmd.CreateParameter("p2", adVarChar, adParamInput, 50, "value2"))
cmd.Execute()
```
在上面的示例代码中,我们首先创建了一个ADODB.Connection对象来连接到MySQL数据库。连接字符串指定了ODBC驱动程序的名称、MySQL服务器地址、数据库名称、用户名和密码等信息。
然后我们使用ADODB.Recordset对象查询MySQL数据库中的数据,并使用Fields属性获取每一行的字段值。
最后,我们创建了一个ADODB.Command对象,并使用CreateParameter方法添加了两个参数,然后执行了一个插入数据的SQL命令。
希望这个示例可以帮助你了解如何使用VB连接和操作MySQL数据库。