请教如何用VB 将数据保存到access内

来源：百度知道 编辑：UC知道 时间：2024/06/18 16:58:46
我的程序中 通过串口连接 text1框内的数据 会不停变化

如何将text1内的数据 每变化一次 自动保存到 access中

每条数据 一共10个字节 ..前5个字节 放在ACCESS表中的第一列 后5个字节放在 第2列
3楼的方法
执行后

Dim Conn As New ADODB.Connection '用户类型未定义

我对VB 连ACCESS 一点不懂 希望再解答下

'先 工程->引用 : Microsoft Activex Data Object Library 2.1
Private Sub Text1_Change()
Dim Sql As String, S As String
S = Text1.Text

If Len(S) <> 10 Then Exit Sub

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Sql = "Select * From [Mydate]" '将Mydate换成你的表名
Rs.Open Sql, Conn, 1, 3
Rs.AddNew
Rs(0) = Left(S, 5) '第一列
Rs(1) = Right(S, 5) '第二列
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

在text1的change里写登库！~

具体怎么操作你点我的名字 空间里有我的网盘地址 那里有个timeinsert的程序 和你这个差不多 只不过那个是根据时间来插入的！~

在程序里引用ado

Dim Conn As ADODB.Connection '定义连接对象
set conn=new adodb.connection ‘设置连接对象
........（使用CONN的所有方