请教：如何把数据写入Access文件的表里面

[Jason78]

请问如何编程把数据写入Access的表里面。

情况如下：
往文本框text1，text2里面输入数字，
单击按钮Command1，
实现把文本框中的数据分别写到Access文件database.mdb里面的表input里面去。

请前辈们指点小弟一个示例程序，
谢谢大家。

[huangjianyou]

"insert into input(字段名1,字段名2) values(" & val(text1.text) & "," & val(text2.text) & ")"
是字符就要用单引号引住。

^_^

[yangzhixue]

Public Sub AddGameFile(sFile$, GameID As Long)
On Error Resume Next
Dim sSql$, Rs, bFile() As Byte
sSql = "select * from FileInfo"
Set Rs = CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3 ' adUseClient
Rs.CursorType = 1 'adOpenKeyset
Rs.LockType = 3 'adLockOptimistic
Rs.Open sSql, Conn, , 2
Rs.AddNew
Rs("FilePathName") = sFile
Rs("FilePathNameA") = sFile
Rs("GameID") = GameID
Rs("FileDate") = Now()
Open sFile For Binary As #1
ReDim bFile(1 To LOF(1))
Get #1, 1, bFile
Close #1
Rs("FileContent").AppendChunk = bFile
Rs.Update
Rs.Close
End Sub

[zcm123]

赞成
"insert into input(字段名1,字段名2) values(" & val(text1.text) & "," & val(text2.text) & ")"
是字符就要用单引号引住。