VB6.0连接access2003数据库的方法
我是刚入门的新手,在网上找了很多资料也没看个明白,请高人指点,我在窗体中添加了data数据库,connect设置为pwd=123。databasename设置是数据库路径...
我是刚入门的新手,在网上找了很多资料也没看个明白,请高人指点,我在窗体中添加了data数据库,connect设置为pwd=123。databasename设置是数据库路径,其他的我就不知道怎么弄了,网上说要引用里添加ado3.51,但是我的vb6.0引用里根本就没有这项,我只是想连接到数据库,然后窗体里的文本框能显示(读取)出数据库的内容,请问该怎么做,请不要复制网上那些看不懂的函数,该设置些什么,或者在哪里添加哪些代码,越简单明了越好,在此先谢谢高手
展开
展开全部
在工程里找到部件 在部件里找到Microsoft ADO Control 6.0,勾上,点应用,工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上,VISIBLE属性设置成不可见。再拖放一个按钮,一个文本框,连接语句这么写:
Private Sub Command1_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...."
Adodc1.RecordSource="Select * From ACCESS 表"
Adodc1.Refresh
'----------//这就是连接数据库字符串,要引用数据就该这么写
If Not Adodc1.RecordSET.EOF Then
'---------//必须排除数据连接异常,不然查询数据时每次提示响应连接
Text1=Adodc1.RecordSet.Fields("字段名")
'--------让文本框显示查询列第一个记录
End If
End Sub
Private Sub Command1_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...."
Adodc1.RecordSource="Select * From ACCESS 表"
Adodc1.Refresh
'----------//这就是连接数据库字符串,要引用数据就该这么写
If Not Adodc1.RecordSET.EOF Then
'---------//必须排除数据连接异常,不然查询数据时每次提示响应连接
Text1=Adodc1.RecordSet.Fields("字段名")
'--------让文本框显示查询列第一个记录
End If
End Sub
网易云信
2023-12-06 广告
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询