解决方案: VB6.0 中使用ADODC 代码编译器打不开 提示用户定义类型未定义

1 篇文章 0 订阅

VB6.0 中使用ADODC 代码编译器打不开 提示用户定义类型未定义

最近维护一段很老的代码,是VB6.0写的。在虚拟机中安装好所有的环境(WIN7+VB6 SP6),包括添加好ADO 2.8, 但发现每次遇到ADODC控件,就提示“用户类型未定义。。。。”

搜索百度无果,去谷歌就找到了。知道国内朋友也许需要维护一些老程序,在这里分享一下吧。

其实,只要更新这个包就行 Windows6.1-KB2640696-v3-x86.msu。

https://www.microsoft.com/en-us/download/confirmation.aspx?id=28422

如何上谷歌,我就不谈了,大家都是IT人员,都知道如何翻墙的了。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: VB6.0可以使用ADO来连接mysql,下面是一个简单的例子:Dim Conn As ADODB.Connection Set Conn = New ADODB.Connection Conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _ "SERVER=server_name;" & _ "DATABASE=database_name;" & _ "UID=user_name;" & _ "PWD=password;" Conn.Open ### 回答2: VB6.0连接MySQL的代码如下: 首先,需要添加MySQL Connector/ODBC驱动程序,然后创建一个新的VB6.0项目。 1. 在VB6.0项目打开工具箱,右键点击空白区域,选择“添加组件”。在弹出的对话框,勾选“Microsoft ActiveX Data Objects 2.x Library”和“Microsoft ADO Data Control”并点击“确定”。 2. 在VB6.0界面添加一个ADO控件(ADODC),这是用于连接数据库和执行数据库操作的控件。双击ADODC控件,在属性窗口设置“ConnectionString”属性为连接MySQL的数据库信息。如下所示: ADODC.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};" &_ "Server=服务器地址;Port=端口号;Database=数据库名;User=用户名;Password=密码;Option=3;" 其,服务器地址为MySQL服务器的IP地址,端口号为MySQL服务器的端口(默认为3306),数据库名为要连接的数据库名称,用户名和密码为登录MySQL所使用用户名和密码。 3. 在VB6.0添加一个Command按钮,双击该按钮,在代码视图添加以下代码ADODC.RecordSource = "SELECT * FROM 表名" ADODC.Refresh 其,表名为要查询的表名,该代码用于从MySQL数据库查询数据并显示在VB6.0界面。 4. 在VB6.0添加一个FlexGrid控件(MSFlexGrid),用于显示从MySQL数据库查询到的数据。双击FlexGrid控件,在代码视图添加以下代码: Set MSFlexGrid1.DataSource = ADODC.Recordset 该代码,MSFlexGrid1为FlexGrid控件的名称,通过设置其DataSource属性为ADODC的Recordset,可以将查询结果显示在FlexGrid控件。 5. 运行项目,点击Command按钮,即可从MySQL数据库查询数据并显示在FlexGrid控件。 以上就是用VB6.0连接MySQL的代码。需要注意的是,连接MySQL数据库时需要确保安装了MySQL Connector/ODBC驱动程序,并且使用正确的数据库信息进行连接。 ### 回答3: 在VB6.0连接MySQL数据库,首先需要引用相关的数据库驱动程序,一般使用ADODB来进行数据库连接,以下是连接MySQL数据库的代码示例: 1. 首先,在VB6.0的工具箱,引入Microsoft ActiveX Data Objects 2.8库。 2. 在代码模块,声明一个ADODB.Connection对象和一个ADODB.Recordset对象。 3. 在需要连接数据库的地方,使用以下代码创建数据库连接: ``` Dim conn As New ADODB.Connection conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=服务器地址;Database=数据库名;User=用户名;Password=密码;" conn.Open ``` 其,“服务器地址”为MySQL服务器的IP地址或域名,“数据库名”为要连接的数据库名称,“用户名”和“密码”为正确的数据库登录凭证。 4. 连接数据库后,可以执行SQL语句或操作数据库记录,以下是一个简单的查询示例: ``` Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM 表名", conn Do While Not rs.EOF ' 进行相应的操作,例如将记录输出到文本框或列表框 ' 可以使用 rs.Fields("字段名") 来访问各个字段的值 rs.MoveNext Loop rs.Close ``` 其,“表名”为要查询的表名称。这段代码会将查询的结果逐行输出,你可以根据需要进行相应的操作和逻辑。 5. 在结束时,需要关闭数据库连接并释放对象: ``` rs.Close Set rs = Nothing conn.Close Set conn = Nothing ``` 这是连接MySQL数据库的简单示例代码,你可以根据具体需求进行相应的调整和扩展。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值