如何用vb6链接mysql数据库?(请说的具体点,越具体越好。)只要回答正确,不吝惜分。
我现在的情况是:1、mysql安装成功。2、mysql-connector-odbc-5.3.2-win32.msi已安装。3、odbc也配置了,但是不确定是否配置成功。...
我现在的情况是:1、mysql安装成功。2、mysql-connector-odbc-5.3.2-win32.msi已安装。3、odbc也配置了,但是不确定是否配置成功。可以看图,自行判断。
4、具体代码如后:
Private Sub Command1_Click()Dim cnServer As New ADODB.ConnectionDim rsServer As New ADODB.RecordsetDim strCn As StringstrCn = "DRIVER={MySQL ODBC 5.3 Driver};" & _ "SERVER=localhost;Port=3306;" & _ "DATABASE=fzgp;" & _ "UID=root;PWD=111111;" & _ "stmt=SET NAMES GB2312" If cnServer.State = 1 Then cnServer.CloseEnd IfIf rsServer.State = 1 Then rsServer.CloseEnd If
cnServer.Open strCncnServer.CursorLocation = adUseServer If cnServer.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"
End Sub
请回答详细一些。最好也附带上具体操作某一个表添加删除记录的代码。 展开
4、具体代码如后:
Private Sub Command1_Click()Dim cnServer As New ADODB.ConnectionDim rsServer As New ADODB.RecordsetDim strCn As StringstrCn = "DRIVER={MySQL ODBC 5.3 Driver};" & _ "SERVER=localhost;Port=3306;" & _ "DATABASE=fzgp;" & _ "UID=root;PWD=111111;" & _ "stmt=SET NAMES GB2312" If cnServer.State = 1 Then cnServer.CloseEnd IfIf rsServer.State = 1 Then rsServer.CloseEnd If
cnServer.Open strCncnServer.CursorLocation = adUseServer If cnServer.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"
End Sub
请回答详细一些。最好也附带上具体操作某一个表添加删除记录的代码。 展开
展开全部
以前搞过MYSQL,现在都找不到代码在哪里了.从连接来看应该没有问题,关键是驱动是否正确.你可以参考下 http://blog.csdn.net/kalision/article/details/7181413
追问
我自己解决了。分还是给你吧。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询