和SQL数据库差不多的,下面是我用vb6.0连接本地mysql数据库的连接字符串
创新互联公司服务项目包括大观网站建设、大观网站制作、大观网页制作以及大观网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,大观网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到大观省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
"driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"
首先你本地要安装MySQL Connector Net
工程引用mysql.data
连接数据库:
Imports MySql.Data
Imports MySql.Data.MySqlClient
‘连接字符串dbServerName 是ip,下面的英文应该懂得吧。
dim sA as string
sA = "server=" Me.dbServerName "; port=3306; database=" Me.dbDataBaseName _
"; user id=" Me.dbUserName "; password=" Me.dbPassWord "; "
dim mvardbConnectionMysql As MySqlConnection
With mvardbConnectionMysql
.ConnectionString = sA
.Open()
End With
4. 读取数据
dim xx As MySqlDataReader
Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)
oC.CommandType = CommandType.Text
xx= oC.ExecuteReader()
if xx.HasRows
do while xx.read() ’一次读取一行
msgbox xx.item(2) '取出当前行的第三个字段的值显示。
loop
end if
5. 写入数据
Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()
Try
Dim oC As MySqlCommand
'下面的commandtext是执行的更新语句,例如Insert into 语句。
oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)
oC.CommandType = CommandType.Text
oC.ExecuteNonQuery()
oT.Commit()
oC = Nothing
oT = Nothing
Catch oe As Exception
oT.Rollback()
End Try
完全可以,注意对应的版本;
VB6只能使用 SQL 2000,VB.NET可以使用SQL 2005及以上版本。