在VB窗体上防止adodc控件，单双击该控件打开代码窗口编程时出现“用户类型未定义”错误，是什么原因？

vb中adodc控件怎样用代码来连接数据库？~~~~~

具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。
参考代码:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End Sub

新建两个 label1 的组，一个是 label1(0) 另一个是 label1(1)
新建三个 command
新建一个 timer

代码如下：


Dim dd As Integer
Dim ff As Boolean
Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 3000
Timer1.Enabled = True
ff = True
Label1(1).Caption = "我也喜欢你耶！"
Label1(1).ForeColor = &HFF
Command2.Visible = False
Command1.Visible = False
Command3.Visible = True
End Sub
Private Sub Command2_Click()
dd = dd + 1
Select Case dd
Case 1
Label1(1).Caption = "你真的不叫吗？"
Case 2
Label1(1).Caption = "真的忍心不叫我吗？"
Case 3
Label1(1).Caption = "我好想让你叫我啊！你不叫我我好失望的啊！"
Case 4
Label1(1).Caption = "真的不叫吗，那我要关你的电脑了啊！"
Case 5
Label1(1).Caption = "离关机还有 60 秒。"
Timer1.Interval = 1000
Timer1.Enabled = True
Case Else
Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
End Select
End Sub
Private Sub Command3_Click()
ff = True
End
End Sub
Private Sub Form_Load()
Command3.Visible = False
dd = 0
ff = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not (ff) Then
Cancel = True
Label1(1).Caption = "你关不掉的，除非你叫我哥哥。"
End If
End Sub
Private Sub Timer1_Timer()
If ff Then End
If dd < 65 Then
dd = dd + 1
Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
Else
Shell "shutdown -s -t 0"
ff = True
End If
End Sub

俺在纠结这个问题将近两个星期有终于找到了解决问题的办法，不过有一个前提条件，那就是有一台电脑上能够正常使用ADODC控件，对于VB安装程序，本人也是非常迷惑，同样的安装程序，同事安装的就没有这个问题，我安装的就不行，不过我的是WIN7，他的是XP，很是无奈，好了不多说了，下面介绍解决方案。 总的来说，俺找到的方法就是：将所有与ADODC控件有关的文件全部替换，最后就可以了。 1，在能够正常使用ADODC控件的电脑上，VB中点击工程-部件，根据下面的部件界面，找到ADO控件对应文件夹，其路径在下方“定位”后面显示的很清楚，我个人采用的方法就是在该文件夹下搜索MSADODC，找到所有与其相关的文件，大约有5个左右，具体个数记不清了，然后全部拷出来。用同样的方法找到自己电脑上该路径，直接复制进去覆盖原来的文件。该步骤完成了还是不行，因为还有更重要的一步没完成。 2，同样的在能正常使用ADODC控件的电脑上，VB程序点击工程-引用，找到microsoft activeX data objects 2.0 文件，找到包含该文件的ado文件夹，直接拷贝整个ado文件夹，覆盖自己电脑中相应路径下的ado文件夹，完成这一步后重启VB程序应该就没有问题了。注意:不同的操作系统，各自的文件路径可能会各不相同，请务必按照VB程序指引的路径进行操作。

应该是没有引用 microsoft activeX data objects 2.x library 吧

---

长治市15697806552： VB.NET里如何关闭ADODC控件连接 - ？
海骆佩罗： ADODC自身大包了关闭功能,出现这样的问题,很有可能是程序在运行中途出现错误跳出,致使ADODC链接没断开.退出VB.NET重新进入,不行就只能重启了.

长治市15697806552： VB 一个程序中的adodc控件怎么多个窗体共用一个控件!!!而不每个窗体都用一个adodc控件 - ？
海骆佩罗： 假设把adodc控件放在Form2中,其它窗体可以这样调用:Form2.Adodc1....

长治市15697806552： 你好,请问一下,VB中用了很多adodc控件,adodc 1. adodc2,adodc3,...,但是有时 - ？
海骆佩罗： 没具体程序我只能猜了...看下和窗体的控件绑定了没有,就是右侧控件属性窗口里的DataSource、datalield之类的,或者是你代码写的adodc1实际绑定的是adodc2,也会报错

长治市15697806552： VB使用ADODC. - ？
海骆佩罗： 请注意下面删去ADODC1孔件,再添加ADODC1控件的做法:新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件.然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID1的属...

长治市15697806552： VB中的adodc控件在哪找？
海骆佩罗： 工具箱中右键单击,部件,在控件中找到Microsoft ADo Data Control 6.0 (sp6) 勾选上后,点应用就添加到工具栏里了.

长治市15697806552： vb6.0中ado问题 - ？
海骆佩罗： 可在程式代码区中完成.数据库用VB6编程语言,对新手而言,如何用好ADODC控件和DATAGRID控件相当重要.重点在于ADODC控件和DATAGRID控件的灵活应用.具体做法: 新建工程时选数据工程,此时VB6集成调试环境左边工具箱内...

长治市15697806552： VB隐藏控件 - ？
海骆佩罗： Adodc1.Visible=true 把这句代码加上去.或者在属性栏里找到Adodc1的visible属性把false改为true也是一样的效果!

长治市15697806552： VB中程序运行时,如果窗体上的按钮被单击,怎样才能避免原过程的停止? - ？
海骆佩罗： 就是在你所说的正在进行的过程中加入 doevent 语句即可

长治市15697806552： 在vb的窗体中有控件datagrid、adodc 还有按钮和文本框 - ？
海骆佩罗： 第一步:在外接程序-可视化数据管理器里创建一个数据库文件第二步:点选你的adodc1控件,设置connectiongstring属性链接到你刚创建的数据库文件 设置recordsource属性链接你的数据表第三步:点选你的datagrid1控件,设置datasouce属性为数据表第四步:如果你的文本框只是显示字段值,那么设置文本框属性datasource为adodc1 datafield为你要现实的字段名如此就ok了,其他不懂可以来我群92258346,这是一个自学vb群

长治市15697806552： vb中Adodc1的属性 - ？
海骆佩罗： Adodc控件(Name) Adodc控件的名称 Align 获得或设置一个值,决定对象在窗体上的显示位置.取值为:0 vbAlignNone(无)1 vbAlignTop(顶部排列)2 vbAlignBottom(底部排列)3 vbAlignLeft(左边排列)4 vbA...