可以买深圳农民房吗:串口实时数据,用vb实时保存到access,
来源:百度文库 编辑:中科新闻网 时间:2024/05/17 01:28:03
看来楼主的问题是出在数据操作上,
(先做个记号,明天给你贴个范例)
-------------------------------------
最近忙,拖了好些天。先给你个数据库连接、添加记录的简单范例
你每次获取数据后调用数据添加的过程进行实时保存数据即可。
引用外部组件:
Mircosoft ActiveX Data Objects 2.5 Library
模块代码:
Option Explicit
Public Conn As ADODB.Connection
Public rs As ADODB.Recordset
Public strDBFile As String
'#------------------------------------#
'# 设置启动Main过程 #
'#------------------------------------#
Sub Main()
strDBFile = GetAppPath & "DB_Art.mdb"
Call ConnectDB(strDBFile)
frmMain.Show
End Sub
'#------------------------------------#
'# 获取当前相对路径 #
'#------------------------------------#
Public Function GetAppPath() As String
GetAppPath = App.Path & IIf(Len(App.Path) > 3, "\", "")
End Function
'#--------------------------#
'# 数据库连接 #
'#--------------------------#
Public Sub ConnectDB(ByVal strDBFile As String)
Set Conn = New ADODB.Connection
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFile & ";"
End Sub
窗体代码:
'保存数据的过程
Private Function AddData() As Boolean
Dim tRs As New ADODB.Recordset
Dim sSql As String
On Error GoTo Er
sSql = "Select * From 表名称"
tRs.Open sSql, Conn, 1, 2
tRs.AddNew
tRs("字段1") = Text1(0)
tRs("字段2") = Text1(1)
tRs.Update
tRs.Close
Set tRs = Nothing
MsgBox "数据入库成功!", vbOKOnly + vbInformation
AddData = True
Exit Function
Er:
AddData = False
End Function