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,运行结果如下

原文链接:https://www.f2er.com/vb/261023.html

猜你在找的VB相关文章