如何使VB6.0 连接Access数据库

如何使VB6.0 连接Access数据库

下面的网址是我答过的一个题，简洁明了，你看下。这个是VB6与SQL的连接，你要与Access连接，只要更改一句就可以了。将下面的连接字符串改掉：

myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=流水帐;Data Source=."

关于连接字符串，有很多种写法，视情况而不同。

未经芝士回答允音始下许不得转元载本文内容，否则将角视为侵权

具体做法：

新建工程时选数据工程，此时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控件再添其他内容。

会也之等里水些然社特，速群矿参。

《1》。vb菜单->工程->引用（选择1.Microsoft DAO 3.51 Object Library 2.Microsoft Data Binding Collection）确定

《2》。Dim xData As Database '定义数据库 Dim Rs As Recordset '定义数据库字段

《3》。form_load事件中写：Set xData = OpenDatabase(App.Path & "\data.mdb")

版权归芝士没据回答过网站比或原作者所级有

《4》。需要使用数据的时候写：Set Rs = xData.OpenRecordset("select * from 表名")

等实体但求统给口更信，整标。

rs.fields("字段名") 取数据

使用DAO数据编程 明白没有O(∩_∩)O

屏幕录像去网上下载一个录像软件，你自己一看马上就会用的！不信你试试！我就不信你是笨蛋脑袋O(∩_∩)O！

建议先买本书好好学下，如果想弄懂的话。