关于数据库的增、删、改、查，类似于delphi中的如：

Question

1、
 qryMain.Close;
  qryMain.SQL.Clear;
  qryMain.SQL.Add('select * from Terminal_Manager');
  qryMain.Open;  qryMain.insert;  //增       
qryMain.FieldByName 'NAME').AsString      :=Edit1.Text          ;         
  qryMain.Post;  qryMain.delete;//删
  qryMain.edit;  // 改     
qryMain.FieldByName 'NAME').AsString      :=Edit1.Text          ;         
  qryMain.Post;  qryMain.Close;
  qryMain.SQL.Clear;
  qryMain.SQL.Add('select * from Terminal_Manager where  .....');
  qryMain.Open;
2、连接同一目录下的数据库，如何在Adodc1.ConnectionString=“”写，而且使得DataGrid1能够自动获得Adodc1.RecordSource = "select * from cjq"后各字段的数据

Answer 1

Dim Conn As ADODB.Connection
Dim Rs As ADODB.RecordsetPrivate Sub Form_Load()
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source= " & App.Path & "\db.mdb;"
    Conn.Open
End Sub    Rs.Open "insert into", Conn, adOpenKeyset, adLockOptimistic  '增
    Rs.Open "delete from table", Conn, adOpenKeyset, adLockOptimistic '删
    Rs.Open "update ", Conn, adOpenKeyset, adLockOptimistic  '改

Answer 2

Private Sub Command1_Click()
        Dim StrSql As String
        
        Adodc1.ConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=E:\程序\CODE收藏\CODE.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
        StrSql = "SELECT * FROM main"
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = StrSql
        Set DataGrid1.DataSource = Adodc1
End Sub

Answer 3

Dim Rs As New ADODB.Recordset
Dim Cnn As New ADODB.ConnectionPrivate Sub Command1_Click()
        Dim StrSql As String
        Dim CnnStr As String
        
        CnnStr = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=E:\程序\CODE收藏\CODE.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
        Cnn.CursorLocation = adUseClient
        Cnn.Open CnnStr
        
        StrSql = "SELECT * FROM Main"
        Rs.CursorLocation = adUseClient
        Rs.Open StrSql, Cnn, adOpenKeyset, adLockBatchOptimistic
        Set DataGrid1.DataSource = Rs
        DataGrid1.Refresh
End SubPrivate Sub Command2_Click()
        Rs.AddNew
        Rs.Fields("ID") = "9283"
        Rs.Fields("TypeID") = "00016"
        Rs.UpdateBatch adAffectAllChapters
End Sub