微生物 尔雅:用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