vb中如何使用数据库
通过中间件ADO或 去连接
'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2。X Library)
Private Sub Command1_Click()
Dim cn As New ADODB。 Connection, rs As New ADODB。RecordSet
'混合验证方式的连接:
'cn。ConnectionString = "Provider=SQLOLEDB。 1;Persist Security Info=False;User ID=...全部
通过中间件ADO或 去连接
'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2。X Library)
Private Sub Command1_Click()
Dim cn As New ADODB。
Connection, rs As New ADODB。RecordSet
'混合验证方式的连接:
'cn。ConnectionString = "Provider=SQLOLEDB。
1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
'集成验证的连接:
cn。
ConnectionString = "Provider=SQLOLEDB。1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名/IP"
cn。
Open
rs。CursorLocation=adUseClient'设置客户端游标
rs。Open "select * from 表1", cn, 3, 2
。
。。。。。
End Sub。收起