Question

VB如何读取ACCESS记录和把TEXT控件的内容写入ACCESS

VB如何读取ACCESS记录和把TEXT控件的内容写入ACCESS
希望能详细点..最好能有完整点源码给我....

Answer 1

个人建议，access数据库用DAO最好，因为有部分的ADO属性在access里不能使用。以下是DAO的内容，楼上的是ADO的内容，
'引用DAO，这是必须的
Set con = OpenDatabase(App.Path & "数据库名.mdb") '中间放数据库完整路径就行，如果数据库在程序目录下，直接用 app.Path & "数据库名.mdb"
1.你的第一个问题
strsql = "select * from 表名 " '读取access 表里的内容
Set rs = con.OpenRecordset(strsql)
do until rs.eof
'处理结果集的过程
rs.movenext
loop
2.第二个问题
'strsql="update 表名 set 字段名='"& trim(text1.text) &"'where……" '把text内容写入数据库
'con.Execute(strsql)
如果还要完整点的，就把你数据库，表名，字段名都告诉我吧,QQ联系也行

Answer 2

dim conn As New ADODB.Connection
dim ConnString As String
dim sql as string
Dim rs As New ADODB.Recordset
ConnString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\数据库名.mdb;Jet OLEDBatabase Password=数据库密码"
If conn.state <> 1 Then
conn.Open (ConnString)
End If
sql="select * from 表名 where 关键字段名='" & Text8.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
text9.text=rs.rs.Fields(ID)