vb数据库vb数据库vb数据库

利用Adodc和DataGrid对数据库文件经行连接

'建立数据源的连接
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ddgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 点单历史表"
Set DataGrid1.DataSource = Adodc1

并设置DataGrid的DataSouce属性为Adodc1


利用Data和DBgrid进行数据库文件的连接
Data1.DatabaseName = App.Path & "\yyjxc.mdb"
Data1.RecordSource = "select * from ypxx"
Data1.Refresh


Adodc1.RecordSource = "select * from Press_ifm where " & Frm_Main.CMB_CX.Text & " like" + Chr(34) + Frm_Main.TXT_CXNR.Text + "*" + Chr(34) + ""
Adodc1.Refresh

VB6.0 中连接加密的Access数据库

　　以前曾看过介绍如何在Visual Basic中连接和使用Access数据库的技术文章，实际上在专业的数据库软件开发中，为了确保数据库中信息的安全，往往要求对数据库文件进行加密，以防止非法用户通过其它的常规手段将其打开。那么，在Visual Basic中如何建立与加密的数据库的连接呢？笔者在开发本校的宿舍管理信息系统中，总结了一些方法和技巧，现写出来与同行交流。

　　一、建立数据库

　　因为在Visual Basic 6.0中有的数据库连接方式不支持Access 2000版本格式的数据库，为了便于说明问题，本文所提的数据库以Access 97版本数据库为例。

　　在Microsoft Access 97中建立一个数据库，如：ssgl.mdb，并设置密码，如：“1234”，再将数据库文件和VB中创建的工程文件放在同一目录下。

　　如果用户的计算机上只有Access 2000的话，可以先在Access 2000中建立ssgl.mdb数据库，并设置密码，再用Access 2000中的“数据库实用工具”将数据库转换成Access 97版本的格式。

　　当然也可以直接在Visual Basic 6.0集成开发环境中通过“可视化数据管理器”来创建数据库，再到Access 97中设置密码。

　　通过对数据库文件设置密码，一般情况下，非法用户就不能用常规的手段打开数据库了，对数据库中的信息起到了一定的安全和保密作用。

　　二、连接加密的Access数据库

　　在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。开发人员可以根据自身的条件和用户的需求进行选择。

　　限于篇幅，下面只介绍加密的Access数据库与没有加密的Access数据库在连接时的不同之处。关于没有加密的数据库的连接及访问的方法读者可以参阅其它资料。

　　1、使用控件

　　① Data控件

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