急.....请大家帮忙.

[soso119]

公司做项目,要用vb6.0,以前从没有用过,我现在有一个Access的数据库,名字是test.mdb
里面有两个字段 Name,age.要用ado访问它们(不用data控件),请问要怎么样写代码,最好能写一个可以Run起来的,比如增加一个记录. 感激!

[soso119]

补充一下,test.mdb里面已经建好了一张Atable的表,

[Wat5]

引用 MicroSoft ActiveX Data Objects 2.0 Library 以上

Option Explicit

Dim Cnn As ADODB.Connection

Private Sub CmdAdd_Click()

Cnn.Execute "Insert Into 表(Name,Age) Values('张三',18)"

End Sub

Private Sub Form_Load()

Dim strCurPath As String

If Right(App.Path, 1) = "\" Then
strCurPath = App.Path
Else
strCurPath = App.Path & "\"
End If

Set Cnn = New ADODB.Connection
With Cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCurPath & "Test.mdb;Mode=Read|Write;Persist Security Info=False"
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Open
End With

End Sub

[zjcxc]

'引用 MicroSoft ActiveX Data Objects 2.0 Library 以上
Sub access()
Dim iRe As ADODB.Recordset
Dim iConc As String

iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=c:\test.mdb" 'c:\test.mdb是你的数据库名
Set iRe = New ADODB.Recordset
With iRe
.CursorLocation = adUseClient
.Open "select Name,age from 你的表名", iConc, adOpenKeyset, adLockOptimistic
End With
MsgBox iRe.Fields("name") '你的处理语句
End Sub

[zy0123]

'modle1.bas

Public Enum DO_SQL
SQL_Read = 1
SQL_Write = 3
End Enum


public Conn as object

'打开数据库
Public Sub LoadDataBase()
Dim StrSQL As String
StrSQL = "DBQ=数据库名.mdb" + ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = CreateObject("ADODB.CONNECTION")
Conn.Open StrSQL
End Sub

'查询数据库
Public Sub OpenData(ByRef rs As Object, ByVal SQL_String As String, DoWhat As DO_SQL)
'Dim Rs As Object
Set rs = CreateObject("ADODB.RecordSet")
rs.Source = SQL_String '"select * from user where username='" & u & "'"
rs.Open rs.Source, Conn, 1, DoWhat
End Sub

'关闭查询
Public Sub CloseData(ByRef rs As Object)
On Error Resume Next
rs.Close
Set rs = Nothing
End Sub

'刷新数据
Public Sub RefData(ByRef rs As Object, Optional StillOpen As Boolean)
rs.Update
If Not StillOpen Then
rs.Close
Set rs = Nothing
End If
End Sub

public sub CloseDatabase
conn.close
end sub

好用100%
运行程序时，先调用loaddatabase，以后就可以用opendata，closedata,regdata操作了,程序运行玩了再调用closedatabase.