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

Question

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

Answer 1

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

Answer 2

引用 MicroSoft ActiveX Data Objects 2.0 Library 以上Option ExplicitDim Cnn As ADODB.ConnectionPrivate Sub CmdAdd_Click()
    
    Cnn.Execute "Insert Into 表(Name,Age) Values('张三',18)"
    
End SubPrivate 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

Answer 3

'引用 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

Answer 4

'modle1.basPublic 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 Subpublic sub CloseDatabase
conn.close
end sub好用100%
运行程序时，先调用loaddatabase，以后就可以用opendata，closedata,regdata操作了,程序运行玩了再调用closedatabase.