VB6.0的部件中没有ADO控件,有会的么?告诉我怎么回事

我想用ADO控件连接数据库,可是找不到ADO的控件,怎么办啊```

工程-引用-找到Microsoft ActiveX Data Objects Library
下面的示例代码以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对象是平行的关系。
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-07-12
选择菜单"工程|部件",然后选中Microsoft ADO Data Control 6.0,“确定”
就可以在窗体中画ADO控件。
第2个回答  推荐于2017-12-15
在“工程/部件”下找不到“Microsoft ADO Data Control 6.0”这一项的话,说明你的系统中很可能不存在MSADODC.OCX控件。如果你的系统盘是在C盘的话,你可在C:\WINDOWS\system32目录下查找MSADODC.OCX控件。如果没有找到的话,很可能该控件由于某种原因被删除了。但是如果能找到该控件,则说明该控件尚没有注册,你只需将该控件注册后重新打开VB即可找到该控件。当然,前提是你使用的VB不能是盗版的。本回答被网友采纳

VB6.0的部件中没有ADO控件,有会的么?告诉我怎么回事
如果没有找到的话,很可能该控件由于某种原因被删除了。但是如果能找到该控件,则说明该控件尚没有注册,你只需将该控件注册后重新打开VB即可找到该控件。当然,前提是你使用的VB不能是盗版的。 本回答由网友推荐 举报| 答案纠错 | 评论(1) 1 1 其他回答 工程-引用-找到Microsoft ActiveX Data Objects Library下面...

请问我装的VB6.0版本中没有dataGrid和ADO Date控件怎么办?
VB6的ADO Date控件和DataGrid控件,需通过菜单栏选工程(P)的下拉菜单中选部件(O),然后在想添加的部件前选钩,确定后在工具箱中才会有这些控件。此外新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID...

为什么VB的软件中没有ADO控件
你用ADO data是用控件的方法连接数据库吧,可以下到,如果下不上也可以用ADO数据模型来连接,比用控件来绑定数据库要安全的多。

vb6.0ADO控件的添加
这个好像不用到引用中去找吧,在工具箱中添加部件就可以啊,我安装的版本中就有,如果需要,可以传给你。刚才已经邮件发给你了。

我下的VB6.0中文企业版,装的时候没有access数据源的驱动,请问这是怎么...
如果是VB6.0的中文企业版,要找Access数据源的连接引擎,应选工程菜单下的部件项添加ADO数据控件,或新建数据工程,会在工具箱内出现ADODC控件,将ADODC控件添加到窗体,用鼠标右键选ADODC控件属性,会出现ADODC控件属性页,使用连接字符串,选生成,在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按...

请问VB6.0中的DATA 控件有作用?与ADO控件有什么区别!
Data 控件是VB5.0的数据控件,Ado Data 控件是VB6.0的数据控件.当然其它WINDOWS平台的编程语言也支持这些数据控件.Data 控件支持SQL结构化查询语言.Ado Data 控件支持SQL结构化查询语言,许多查询语言通过它的属性就能生成,而且可用到其动态属性改变查询要求.Data 控件、 ADO Data 控件在概念上很相似: ...

VB6.0出现[ADODC]:没有指定记录源,[ADO]:没有为命令对象设置命令问题...
DataSource属性没设置好,不要事先在属性里面设置为adodc adodc的recordsource属性 也要设置正确哈(很重要!!)

我的vb6.0中,‘部件’中怎么没有?
是典型安装的吧,默认不装,把安装盘再插进光驱然后安装吧~

如何在VB中引用ADO?
Data Source=" & App.Path & "\\wd.mdb;Persist Security Info=False"cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub 引用ADO的最简方法是新建一个数据工程,它会自动引用ADO和加载ADO数据控件和相关表格控件。

vb6.0中data控件和adodc有什么区别
data用的是RDO数据库搜索引擎,而adodc用的是ADO;data只支持ACCESS97数据库,而adodc支持97、2000、2003等多种版本

相似回答