新手学VB，关于数据库的有关问题，求指教

新手学VB，关于数据库的问题，求指教
我用SQL SERVER创建了一个数据库，不知道怎么用VB连接上，请高手指点~

------解决方案--------------------
PROVIDER=SQLOLEDB.1;DATA SOURCE="数据库实例名";INITIAL CATALOG="数据库的名字";USER ID="用户名";PASSWORD="密码";
------解决方案--------------------
objADOConn.Open "PROVIDER=SQLOLEDB.1;DATA SOURCE="数据库实例名";INITIAL CATALOG="数据库的名字";USER ID="用户名";PASSWORD="密码";"
objADORs.Open strSQL, objADOConn, adOpenStatic, adLockOptimistic, adCmdText
------解决方案--------------------

VB code


'1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects
' 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所
'必做的工作。
'2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=JSZX3-1;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close

新手学VB，关于数据库的有关问题，求指教

相关推荐