VB6.0连接access2003数据库的方法

在

工程里

找到部件

在部件里找到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

VB6.0使用ADO和datagrid连接access数据库的语句是：

    Dim cn As New ADODB.Connection '定义数据库的连接

    Dim rs As New ADODB.Recordset

    Dim sql As String

    sql = "select * from guzhang_sj" ' where madanhao='1'"

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"

    cn.Open

    rs.CursorLocation = adUseClient

    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

        Set DataGrid1.DataSource = rs

---