微生物 尔雅:用vb做前台如何连接数据库

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 10:46:27

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=.

这是连接SQL的语句

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库名;User Id=用户名;Password=密码;"
on error resume next
CON.Open

if con.state<>1 then '判断是否连接成功!
msgbox "数据库连接失败!" & error
else
msgbox "数据库连接成功!"
end if