向前辈们请教关于从 VB 中用ADO访问SQL Server数据库的问题
请大家帮我分析一下我建立数据库,以及访问数据库的全过程吧,为什么一直运行不顺利!
1.先在SQL Server企业管理器中建立一个数据库PUB,建立表AA,设置好表中的列名以及数据类型.
2.在企业管理器的安全性-登陆中选择sa用户名,密码:123 默认数据库为PUB
3.在VB的 工程-引用中选择Microsoft ActiveX Data Objects 2.0Library
4.在窗体中的访问代码如下:
Dim objsubcenter As Recordset
Dim objcn As Connection
Private Sub Form_Load()
Set objcn = New Connection
With objcn
.Provider = "SQLOLEDB"
.ConnectionString = "user id=sa;pwd=123;datasource=(local);" & _
"initial catalog=PUB"
.Open
End With
Set objsubcenter = New Recordset
With objsubcenter
Set .ActiveConnection = objcn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from AA"
End With
End Sub