vb怎么与access连结起来又怎么修改啊

[rayuser1314520]

才学vb所以不懂怎么弄各位别介意啊

[守城小轩]

提供你一个ado打开access的方法!
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim ConnStr As String

ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\vb6db\mdb\stock01.mdb"
conn.Open ConnStr

rs.CursorLocation = adUseClient
rs.Open "股票行情表", conn, adOpenKeyset, adLockPessimistic
End Sub

Private Sub Command1_Click() ' 显示 Recordset 的所有记录数据
Dim S As String, i As Integer

rs.MoveFirst
List1.Clear
While Not rs.EOF
S = ""
For i = 0 To rs.Fields.Count - 1
S = S & rs.Fields(i).Value & vbTab
Next
List1.AddItem S
rs.MoveNext
Wend
End Sub

[射天狼]

连接ACCESS与修改数据的贴子在论坛里一搜索一堆~~

[mmcgzs]

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim ConnStr As String

ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\vb6db\mdb\stock01.mdb"
conn.Open ConnStr

rs.CursorLocation = adUseClient
rs.Open "股票行情表", conn, adOpenKeyset, adLockPessimistic
End Sub

Private Sub Command1_Click() '修改第一条数据的时间值
rs("addtime")=now
rs.update
rs.close
end sub