vb连接mysql教程视频_VB 连接mysql数据库

1.使用xamp自带的mysql数据库

2,下载mysql-connector-odbc-3.51.28-win32.msi，添加数据源conn 配置如下

3.打开xamp控制面板，运行apache，mysql服务

4，键入localhost，进入管理页面，添加sohard数据库，并在sohard数据库下添加user表，在表中写入一条记录，用户名wangyang

5，新建VB项目，键入如下代码

Private Sub Command1_Click()

' 定义并创建数据库连接和访问对象

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

' 定义数据库连接字符串变量

Dim strCn As String

' 定义数据库连接参数变量

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

Dim db_result As String

' 定义 SQL 语句变量

Dim sql As String

' 初始化数据库连接变量

db_host = "127.0.0.1"

db_user = "root"

db_pass = ""

db_data = "sohard"

strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _

"SERVER=" & db_host & ";" & _

"DATABASE=" & db_data & ";" & _

"UID=" & db_user & ";PWD=" & db_pass & ";" & _

"OPTION=3;stmt=SET NAMES GB2312"

' stmt=SET NAMES GB2312

' 这句是设置数据库编码方式

' 中文操作系统需要设置成 GB2312

' 这样中文才不会有问题

' 版本要求 mysql 4.1+

' 连接数据库

cn.Open strCn

' 设置该属性,使 recordcount 和 absolutepage 属性可用

cn.CursorLocation = adUseClient

' 访问表users

sql = "select UName from dh_user"

rs.Open sql,cn

MsgBox rs.Fields(0)

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Text1.Text = "127.0.0.1"

Text2.Text = "3306"

Text3.Text = "root"

Text4.Text = ""

Text5.Text = "sohard"

End Sub

6，运行结果如下