关于VB+access创建超市管理系统的问题

Question

怎样在VB中引用access 中的表，使之链接，成为超市管理系统....
希望高手指点指点,谢谢了

Answer 1

  cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\****.mdb"
  sql1 = "select * from 表"
  rs1.Open sql1, cn, adOpenKeyset, adLockOptimistic

Answer 2

http://download.csdn.net/source/1498324

Answer 3

给段简单的代码吧。
Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rs1 As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    Dim strprovider As String
    Dim strdatasource As String
    Dim strdatabasename As String
    Dim strconn As String
        strprovider = "provider=microsoft.jet.oledb.4.0;"
        strdatasource = App.Path
        strdatabasename = "\db1.mdb"
        strdatasource = "data source=" & strdatasource & strdatabasename
        strconn = strprovider & strdatasource
        Set conn = New ADODB.Connection
        conn.Open strconn
        Set rs = New ADODB.Recordset
        'Set rs1 = New ADODB.Recordset
        'Set rs2 = New ADODB.Recordset
        
        rs.CursorType = adOpenStatic '设置记录集的属性
       rs.CursorLocation = adUseClient
       rs.LockType = adLockPessimistic
       rs.Source = "select * from 用户表 where 用户名='" & Combo4.Text & "'"
       rs.ActiveConnection = conn
       rs.Open
       
       Text5.Text = rs.Fields(1).Value
       rs.Close

Answer 4

也太多了吧，这样不是少些很多吗
cn.Open"provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\****.mdb"
   sql1 = "select * from 表"
  rs1.Open sql1, cn, adOpenKeyset, adLockOptimistic
或者用adodc控件：
   with adodc
    .connectstring="provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\****.mdb"
     .datasource="select * from 表"
    set datagrid1.datasource=adodc
    .refresh
   end with

Answer 5

到这里下载一个。vbhao 或者VBGOOD 等等。······