新疆农三师八团:用vb做前台如何连接数据库
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 12:51:14
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