dim cn1 as connenction dim cm1 as command dim cnnstr as string CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=test;Data Source=SAITEK-DZKYPNPB" Cn1.Open CnnStr Set Cm1.ActiveConnection = Cn1
写一个类不就得了:Option Explicit Public conn As New ADODB.Connection Public Sub conndb() conn.Open "DSN=数据源;uid=public;pwd=password;database=数据库" End Sub这个我用过的,是对的。
我正在用的办法是下载并安装一个MysqlODBC驱动程序,然后建立一个DSN。 在VB中使用 dim con as adodb.connection set con = new adodb.connection con.open "dsn=..."(使用系统DSN的情况下) 这样就建立了一个数据库连接了,有了数据库连接就好办了:) 其实使用C的话,可以使用MYSQL的函数进行数据库操作,不知道在VB中能不能实现,好羡慕呀···
你的机子上首先必须要有mysql的数据驱动引擎。
然后单击右键-》属性-》"通用"页的使用连接字符串选项-》生成-》选择mysql数据库驱动引擎-》到"连接"中进行参数设置-》测试连接是否成功如果成功的话,那么你可以将生成的连接字符串复制下来,粘帖到ADO对象的ConnectionString属性中,然后再将ADO控件删除就可以了…!!!朋友祝你成功…!!!
dim cm1 as command
dim cnnstr as string
CnnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=test;Data Source=SAITEK-DZKYPNPB"
Cn1.Open CnnStr
Set Cm1.ActiveConnection = Cn1
Public conn As New ADODB.Connection
Public Sub conndb()
conn.Open "DSN=数据源;uid=public;pwd=password;database=数据库"
End Sub这个我用过的,是对的。
在VB中使用
dim con as adodb.connection
set con = new adodb.connection
con.open "dsn=..."(使用系统DSN的情况下)
这样就建立了一个数据库连接了,有了数据库连接就好办了:)
其实使用C的话,可以使用MYSQL的函数进行数据库操作,不知道在VB中能不能实现,好羡慕呀···
[email protected]
To chsegang(世刚) 但是如果远程的机子不能用odbc怎么办?——————————————————————————————
T0 chenyu5188(蓝色情调)
你的机子上首先必须要有mysql的数据驱动引擎。
——————————————————————————————
我怎么得到mysql的数据驱动引擎,在ado的连接属性中没有?