关于用vb完成ACCESS数据库的查询问题(在线等待)!!!可再加分

Question

怎样在vb中完成ACCESS数据库的查询问题？
有现成的源码更好!
可以直接激活SQL语句吗？
结果如何显示？

Answer 1

VB工程中添加“引用”ADO组件
Dim Cn As New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Cn.Open
Cn.CursorLocation = adUseClient
Dim rs As New ADODB.Recordset
Set rs = Cn.Execute("select * from customers")
Debug.Print rs.Fields(0).Value

Answer 2

我想将查询结果显示在另一个界面中，用DataGrid控件，如何将rs 的结果集给此控件，更外在此控件中能否实现删除等功能？

Answer 3

用ADODC做数据源
Dim Lerr As Label
 
 On Error GoTo Lerr
 Sdate = DtoC(Trim(Text1.Text))
 Edate = DtoC(Trim(Text2.Text))
  
  
 SqlStr = "Select UserID,UserCardID,UserName,UserTy,GasNum,GasMon,Sdate,BrName from Remote where  sdate>=" & Sdate & "  and sdate<=" & Edate
 If Trim(Combo1.Text) <> "" Then
  SqlStr = SqlStr & "  And Brname='" & Trim(Combo1.Text) & "'"
 End If
 SqlStr = SqlStr & "  Order by Sdate"
 
 Adodc1.CommandType = adCmdText
 Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=" + App.Path + "\ranqi_ic.mdb;" & _
                    "Persist Security Info=True;" & _
                    "Jet OLEDB:Database Password=hisourcesoft"
 Adodc1.RecordSource = SqlStr
    
 
 Set DataGrid1.DataSource = Adodc1
  Adodc1.Refresh
  DataGrid1.Refresh
  
 With DataGrid1
   .Columns(0).DataField = "UserID"
   .Columns(1).DataField = "UserCardID"
   .Columns(2).DataField = "UserName"
   .Columns(3).DataField = "UserTy"
   .Columns(4).DataField = "GasNum"
   .Columns(5).DataField = "GasMon"
   .Columns(6).DataField = "Sdate"
   .Columns(7).DataField = "BrName"
    
   .Columns(0).Caption = "用户ID"
   .Columns(1).Caption = "用户卡号"
   .Columns(2).Caption = "用户名"
   .Columns(3).Caption = "用户类型"
   .Columns(4).Caption = "气量"
   .Columns(5).Caption = "金额"
   .Columns(6).Caption = "销售日期"
   .Columns(7).Caption = "售气点"
 End With
 Command2.Enabled = True
 If Adodc1.Recordset.RecordCount <= 0 Then
    MsgBox "没有符合条件的记录！", vbOKOnly + vbInformation, "提示"
    Command2.Enabled = False
 End If
 StatusBar1.Panels(1).Text = "共有" & Adodc1.Recordset.RecordCount & "条符合条件的记录"
 
 Exit Sub
Lerr:
   MsgBox Err.Description, vbOKOnly + vbCritical, "提示"

Answer 4

dim N as integer
   dim strSQL as string
   dim conn as new ADODB.connection
   dim rs as new ADODB.recordset   strSQL = app.path & "A.mdb"
   strSQL = Replace(strSQL, "\\", "\")
   
   With conn
       If .State = 1 Then
          .Close
       End If
       .CursorLocation = adUseClient
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
       .Open
   End With   With rs
       .Open "SELECT Id, IDvalue FROM Table1 ORDER BY Id;", conn, adOpenStatic, adLockOptimistic
   End With

Answer 5

set datagrid1.datasource = rs
只要将datagrid的allowupdate, allowadd, allowdelete属性设置为true，就可以全屏直接更改、添加、删除（Delete键)。

Answer 6

用Adodc控件
   设置ConnectionString连接数据库
   查询代码：
   adodc1.datasource="select * from table_name where field1='" & text1.text &"' and field2 ='" & text2.text & "'"
   adodc1.refresh
   form2.datagrid1.datasource=adodc1

Answer 7

各位同志，我连CSDN有些问题，明天见!
我要在下面调试一下，
晚上用用功，分明天再给，我的网页不太好使!

Answer 8

     Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; _
     Data Source=C:\My Documents\form.mdb;Persist Security Info=False"
     Adodc1.Recordset = "select * from 表 where 条件"
     DataGrid1.DataSource = Adodc1