新疆农三师八团:用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