大家好我是第一次用VB写程序,想问一下怎么用VB连接ACCESS数据库中的表?????又怎么操作表???---------在线等待!!!

Question

大家好!我的问题如题目所述!!!!!!!!!!!!!我的ACCESS 数据库名字是:WCHB!!!!!!!!!!保存在应用程序所在的目录下!!!用最简单的方法连接和操作应该怎么办?????????????????????????????????????????????????????????大家帮忙??????

Answer 1

'連接
   Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEST.mdb;User Id=admin;Password=;"
   Cn.Openselect * from table 'TEST.MDB中的任一表

Answer 2

简单例子：'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\WCHB.mdb;Jet OLEDB:DataBase password=;"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Dim i As Long
    While Not rs.Eof
        For i=0 To rs.Fields.Count-1
            Debug.Print rs(i)
        Next
        rs.MoveNext
    Wend
    rs.Close
    cn.Close
    Set rs=Nothing
    Set cn=Nothing
End Sub

Answer 3

最简单的方法~
添加一个data控件~~DatabaseName属性为"数据路径和名"
RecordSource填表名就OK了~~
或者这样写
Private Sub Form_Load()
Data1.DatabaseName = "路径+数据库名"
Data1.RecordSource = "表名"
End Sub
这样就连接了数据~~具体你怎样操作就要看你自己了~~

Answer 4

操作的时候是不是对着data控件操作啊 ????比如插入数据

Answer 5

Data1.Refresh                '刷新数据库
Data1.Recordset.AddNew       '添加记录
Data1.Recordset.Edit         '修改记录
Data1.Recordset.Delete       '删除记录
Data1.Recordset.Update       '更新数据库
无论添加、修改或删除记录后都要更新数据库,否则不会保存~~

Answer 6

说错了~~删除不用更新数据库~~~
不过删除记录后最好用Data1.refresh 刷新一下数据库 ~

Answer 7

这里有个很简单的示例：http://www.mndsoft.com

Answer 8

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Option ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
 ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开Access的连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 9

TXT------------------>ACCESS
ACCESS--------------->TXT
Dim sStr As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Open App.Path + "\turkey.txt" For Input As #1
 While Not EOF(1)
  Input #1, sStr
  rs.AddNew
  rs(0) = sStr
 Wend
  rs.Update
  rs.Close
End SubPrivate Sub Form_Load()
 mdbPath = App.Path + "\file.mdb"
 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"
 rs.Open "select * from data", con, adOpenDynamic, adLockOptimistic
End Sub
***************************
Dim sStr As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Open App.Path + "\turkey.txt" For Input As #1
 While Not EOF(1)
  DoEvents
  Input #1, sStr
  rs.AddNew
  rs(0) = sStr
 Wend
  rs.Update
  rs.Close
End SubPrivate Sub Command2_Click()
Open App.Path + "\turkey.txt" For Output As #1
 For i = 1 To 50000
  DoEvents
  Write #1, i
 Next i
Close #1
End SubPrivate Sub Form_Load()
 mdbPath = App.Path + "\file.mdb"
 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"
 rs.Open "select * from data", con, adOpenDynamic, adLockOptimistic
End Sub