VB6.0的部件中没有ADO控件,有会的么?告诉我怎么回事
发布网友
发布时间：2022-05-10 19:46
共3个回答
热心网友
时间：2023-05-11 05:18
下面的示例代码以Northwinds数据库作为远程数据源，然后用ADO来访问它。首先在控制面板中打开“32位数据源”，单击“添加”按钮。在弹出的对话框中选择 "Microsoft ACCESS Driver (*.mdb)" 作为数据源驱动程序。
选择数据库Northwinds所在路径。单击完成，退出ODBC设备管理器。
启动一个新的VB工程，在窗体的Load事件中输入下面的代码：
Private Sub Form_Load()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
'Set Connection properties
cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"
cn.ConnectionTimeout = 30
cn.Open
If cn.State = adStateOpen Then _
MsgBox "Connection to NorthWind Successful!"
cn.Close
End Sub
按F5运行程序，看看，一个消息框弹出来告诉你连接成功了。请注意，这里我特别注明了是ADODB.Connection,而不是ADOR.Connection，这样做是为了将二者区分开（如果你引用了ADODB和ADOR的话，这样做很有必要）。连接字符串看上去同RDO的连接字符串差不多。事实上，二者确实差不多。
如果我们要访问一个SQL Server数据库，你的Connection代码看上去应象下面所示：
'设置连接属性cn.Provider = "MSDASQL"
cn.ConnectionString = "driver={SQL Server};" & "server=prod1;uid=bg;pwd=;database=main"
cn.Open
"Provider"属性指向SQL Server的OLE DB Provider.
回到我们的示例程序，让我们创建一个Recordset对象来访问“Orders”表，并从该表的"ShipCountry"字段中产生头十个不重复的国家名。修改窗体Load事件中的代码，让它看上去象下面这样。
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
Dim sOut As String
Dim Count As Integer
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
' Set properties of the Connection.
cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"
cn.ConnectionTimeout = 30
cn.Open
If cn.State = adStateOpen Then _
MsgBox "Connection to NorthWind Successful!"
sSQL = "SELECT DISTINCT Orders.ShipCountry FROM Orders"
Set rs = cn.Execute(sSQL)
'Enumerate the recordset
sOut = ""
For Count = 1 To 10
sOut = sOut & rs("ShipCountry") & VBCrLf
rs.MoveNext
Next Count
MsgBox sOut, VBExclamation, "ADO Results"
cn.Close
End Sub
不幸的是，目前这个Recrodset对象是只读的和forward cursor。如果你想要获取更多的功能，你需要创建一个独立的Recordset对象，该对象拥有自己的Connection属性，就象下面的代码所示：
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim sSQL As String
Dim sOut As String
Dim Count As Integer
Set rs = New ADODB.Recordset
sSQL = "SELECT DISTINCT Orders.ShipCountry FROM Orders"
rs.Open sSQL, "DSN=RDC Nwind;UID=;PWD=;", adOpenDynamic
'Report Recordset Connection information
MsgBox rs.ActiveConnection, , "Connection Info"
'Enumerate the recordset
sOut = ""
For Count = 1 To 10
sOut = sOut & rs("ShipCountry") & VBCrLf
rs.MoveNext
Next Count
MsgBox sOut, VBExclamation, "ADO Results"
rs.Close
End Sub
上面代码返回的结果同前例一样，但是本代码中的Recordset是独立的。这一点是DAO和RDO做不到的。Recordset对象的Open方法打开一个代表从SQL查询返回的记录的游标。虽然你可以用Connection对象同远程数据源建立连接，但请记住，在这种情况下，Connection对象和Recordset对象是平行的关系。
热心网友
时间：2023-05-11 05:18
就可以在窗体中画ADO控件。
热心网友
时间：2023-05-11 05:19
