VB6.0怎么与外部Access数据库连接?

VB6与数据库的连接方法很多，取决于你的目的，如果你主要是为了把数据按照传统的表格方式展现出来，那么你可以用DBGrid之类的控件，里面可以设置数据源，然后自动他就会自动获取数据源里面的信息并显示出来，也可以进行一些简单的数据修改 *** 作。如果你想要对数据进行比较复杂的程序处理，那么可以使用ADO对象来连接和查询数据库，里面有一个RecordSet对象，可以对查询的结果进行遍历，分析等。

对Access数据库加密一般都是使用Access软件实现吧？我不清楚代码怎么实现，但是用软件就只需要在菜单 *** 作就可以了。具体来说就是文件菜单选择打开，在”打开“后面的下拉式莱单中选为独占模式打开，这样打开文件后，使用工具菜单里面的安全，里面就有设置数据库密码

在

工程里

找到部件

在部件里找到Microsoft

ADO

Control

6.0,勾上，点应用，工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上，VISIBLE属性设置成不可见。再拖放一个按钮，一个

文本框

，连接语句这么写：

Private

Sub

Command1_Click()

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0Data

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

---