满意答案
haofg502
2013.11.28
采纳率:56% 等级:12
已帮助:9741人
给你一个VB链接数据库的代码
第一步:工程--microsoft activex data objects2.8 library '引用这个
第二步:就是下面的代码 复制进去,注意你的SQL有没有密码这些,自己配置好
Public Sub ConnData()
Ip_Addess = "127.0.0.1"
Set conn = New ADODB.Connection
SQLServerName = Ip_Addess & ",1433" '服务器名称或IP地址
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "13515239593" '数据库密码
SQLDBName = "441698" '数据库名称
conn.Open "Provider=sqloledb;user id=" & SQLDBUserName & ";password=" & SQLDBPassword & ";initial catalog=" & SQLDBName & ";data source=" & SQLServerName & ";"
End Sub
第三:打开数据是 直接这样调用
idinfo.Open sqlstr, conn, adOpenForwardOnly, adLockReadOnly
备注:上面的代码我一般都是这样写的个人爱好:rs.open sql,conn,3,3
10分享举报