IT博客-千千-文章分类-VB

怎样才能在VB6.0 中连接Access 2003数据库

千千 — Sun, 21 Jan 2007 09:43:00 GMT

1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。)
2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613)
你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉.
1、使用控件

① Data控件

Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种：

一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。

另一种方法是在运行时，通过代码对connect属性赋值来实现。如：

Data1.connect=”; pwd=1234”

Data1.DatabaseName=APP.path + “\ssgl.mdb”

其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。

②Adodc控件

Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。

通过Adodc控件连接加密的数据库的方法也有两种：

一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。

另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。

2、使用数据对象

① DAO数据对象

要能正确引用DAO数据对象来建立与数据库的连接，应先在VB集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO 3.51 Object Library”选项来添加DAO数据对象类型库。

接下来就可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。

Dim db AS DataBase

Set db=OpenDataBase(App.path + “\ssgl.mdb” , False , False , ” ; pwd=1234”)

② ADO数据对象

ADO是Microsoft推出的处理关系数据库和非关系数据库中信息的最新技术，也是Microsoft推崇的用于数据连接和访问的技术。在VB 6.0中，Adodc控件、ADO数据对象及DataEnvironment（数据环境设计器）都采用的是ADO技术，因而它们处理加密的Access数据库的方法类似。

要能正确引用ADO数据对象，应在VB 6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library”选项来添加ADO数据对象类型库。

可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。

Dim cnn AS ADODB.Connection

Dim rst AS ADODB.Recordset

Set cnn=New ADODB.Connection

Cnn.Provider= ”Microsoft.Jet.OLEDB.3.51”

Cnn.ConnectionString= ”Data Source=” & App.path & ”\ssgl.mdb;” & _

” ;Jet OLEDB:Database password=1234”

cnn.Open

③ 使用DataEnvironment（数据环境设计器）

有两种方法可以通过DataEnvironment连接到加密的Access数据库：

一种方法是在设计状态时，在DataEnvironment的connection对象的ConnectionSource属性的有效连接字符串后加上” ;

Jet OLEDB: Database password=1234”

另一种方法是在DataEnvironment_Initialize()事件中编写如下代码：

Private sub DataEnvironment_Initialize( )

Dim strconn AS string

Strconn=” Provider=Microsoft.Jet.OLEDB.3.51;” & _

”Data Source=” & App.path & “\ssgl.mdb;” & _

”; Jet OLEDB: Database password=1234”

DataEnvironment1.connection1.connectionstring=strconn

End sub
不知道你看得明不明白啊?^_^

-------------------------------------------------------------------------------------------------

数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。具体做法：
新建工程时选数据工程，此时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控件再添其他内容。

千千 2007-01-21 17:43 发表评论

我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框

千千 — Sun, 21 Jan 2007 09:42:00 GMT

我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框)做一个能索引ACCESS数据库一列数据.也就是说想要输入的内容可以在"下拉文本框中选取,应该怎么做啊?高手请指点!

问题补充：怎样将字段的值添加到Combo里面?

比较常用的是遍历数据集的方法。
首先将游标指向第一行数据，接着把第一行中那个字段的值添加到Combo里面，再将游标移至下一行。
重复上面的操作直到遍历整个数据集。
如果高手们有更好的方法，请不吝赐教哦。

千千 2007-01-21 17:42 发表评论

with...end with

千千 — Sun, 21 Jan 2007 09:40:00 GMT

用来简化某个多次重复出现的对象名
例如在Form2中调用Form1的对象：
Form1.text1.text="XXX"
Form1.text2.text="XXXXX"
Form1.text3.text="XXXX"
就可以写成
With Form1
.text1.text="XXX"
.text2.text="XXXXX"
.text3.text="XXXX"
end With

-------------------------------------------------------
例如：
with text1
.text="你好"
.multiline=true
.locked=true
.maxlength=10
end with

这个就相当于
text1.text="你好"
text1.multiline=true
text1.locked=true
text1.maxlength=10

千千 2007-01-21 17:40 发表评论

VB6.0 直接在DataGrid 中进行增，删，改操作，然后会直接保存到ACCESS

千千 — Sun, 21 Jan 2007 09:40:00 GMT

如果只涉及到一个表的话，只要Set dataGrid1.DataSource = rs 就可以了。
如果涉及到几张表的话这个方法就不好用了。不过你可以判断记录集的状态：
rs.Status = adRecModified 记录被修改
rs.Status = adRecNew 记录是新建的
rs.Status = AdRecDeleted 记录被删除
然后执行相应的sql语句就可以了

DATAGRID是数据感知控件,换句话说,只要用ADO连接数据库,只要少量代码或者0代码实现以上要求,具体是否允许添加删除,右击控件选择属性,设置.
具体的操作是
1:添加ADODC控件
2:添加DATEGRID控件
3:设置ADODC1的连接字符串,指定ACCESS数据库(详细操作不用我说了吧)
4:设置ADODC1的RECORDSOURCE,一般指表名
5:设置DATEGRID的RECORDSOURCE为ADODC1
6:设置DATAGRID的允许的操作
7:在FORM_LOAD中写ADODC1.REFRESH就可以了
在所有数据控件中,我个人认为DATAGRID是最简单的.

千千 2007-01-21 17:40 发表评论

vb6.0查询ACCESS

千千 — Sun, 21 Jan 2007 09:39:00 GMT

vb6.0查询ACCESS

解决时间：2007-1-7 22:01

现有ACCESS2000数据库文件tel.mdb，内有一表list,其中有字段id、num、area、t。现在通过 num 查询 area。用VB6.0怎么实现。

----------------------------------------------------------------------------------------------

用Text1做查询输入,这里num属数值字段,用Adodc1控件连接数据库,用
DataGrid1做显示查询结果,在DataGrid1的属性页中选其DataSource为Adodc1.如果num字段为文本,则将sql句改为:
sql = "select area from list where num ='" & Val(Text1) & "'"

Private Sub Command1_Click()
sql = "select area from list where num =" & Val(Text1)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\te1.mdb;Persist Security Info=False"
Adodc1.RecordSource = sql
Adodc1.Refresh'对查询更新
DataGrid1.Refresh
End Sub

千千 2007-01-21 17:39 发表评论

IT博客-千千-文章分类-VB

怎样才能在VB6.0 中连接Access 2003数据库

我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框

with...end with

VB6.0 直接在DataGrid 中进行增，删，改 操作 ，然后会直接保存到ACCESS

vb6.0查询ACCESS

VB6.0 直接在DataGrid 中进行增，删，改操作，然后会直接保存到ACCESS