VB连接Sql Server 2000

来源：百度知道 编辑：UC知道 时间：2024/06/15 09:47:23
数据库名：BookStoreManagement，user id=ss,password=ss,表名:库存，vb6.0
sql语句：select * from 库存
要求使用ADODC,DataGrid来显示数据
错误编号91
错误信息：对象变量或with块变量未设置

这是最简单直接的方法：
Private Sub Command1_Click()
Adodc1.ConnectionString = "UID=ss;PWD=ss;Driver={SQL Server};Server=SQL服务器名称;Database=BookStoreManagement;dsn= ,,Connection=adConnectAsync"
Adodc1.LockType = adLockReadOnly
Adodc1.CommandType = adCmdText
Adodc1.ConnectionTimeout = 15
Adodc1.RecordSource = "select * from [库存]"
Set DataGrid1.DataSource = Adodc1
End Sub

这个方法需简单，但不灵活而且耗资源，建议还是用ADODB，可编程性高。

================================================
简单的说，ADODC是ADO控件，ADODB是ADO对象（ActiveX Data Objects），只要在工程中引用 Microsoft ActiveX Data Objects 就可以了，ADODB全部用代码方式连接数据库，不用画(ADODC)控件，功能灵活性比ADODC控件强得多。

=================================================
ADODB 连接SQL Server 2000 方法：

先在工程中引用 Microsoft ActiveX Data Objects 2.x

连接代码：

Private mCnn As ADODB.Connection
Private mRst As ADODB.Recordset

Private Sub Form_Load()
On Error GoTo ErrorLoad
Dim s