目的很簡單：就是將串口傳來的資料存入資料庫。可是寫了一段程式顯示：實時錯誤91 物件變數或with塊變數未設定。請高手指點
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # of
Dim hk As Variant
'Dim conn As New adodb.Connection
xv: hk = MSComm1.Input
If Check2.Value = 1 Then
Text1.Text = Text1.Text & Hex(hk(0)) & " "
Else
Text1.Text = Text1.Text & hk
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("資料") = Text1.Text
End If
If MSComm1.InBufferCount <> 0 Then
GoTo xv
End If
End Select
End Sub
uj5u.com熱心網友回復：
Adodc1是否有在視窗上放入控制元件，是否有設定了資料庫相關引數？uj5u.com熱心網友回復：
adodc1控制元件沒有與資料庫建立連接吧uj5u.com熱心網友回復：
http://download.csdn.net/detail/veron_04/3827200uj5u.com熱心網友回復：
'┏〓〓〓〓〓〓〓〓〓 GetRsFromMdb,start 〓〓〓〓〓〓〓〓〓┓
'［簡介］：
'讀取ACCESS mdb格式檔案中指定表格資料
Function GetRsFromMdb(MdbFile As String, Table, Optional Where As String, Optional Pass As String, Optional ErrInfo As String, Optional User As String) As ADODB.Recordset
'[mycode_id:44],edittime:2012/4/13 8:14:13
On Error GoTo Err
ErrInfo = ""
Dim conn As ADODB.Connection
Dim Sql As String
Set conn = CreateObject("adodb.connection")
conn.Open "dbq=" + MdbFile + ";defaultdir=;driver={microsoft access driver (*.mdb)};", User, Pass
Set GetRsFromMdb = CreateObject("adodb.recordset")
Sql = "select * from [" & Table & "] " & Where
GetRsFromMdb.Open Sql, conn, 1, 3
Exit Function
Err:
DebugErr "GetRsFromAccdb"
ErrInfo = "錯誤號：" & Err.Number & vbCrLf & "錯誤資訊：" & Err.Description
End Function
'┗〓〓〓〓〓〓〓〓〓 GetRsFromMdb,end 〓〓〓〓〓〓〓〓〓┛
DIM rS AS ADODB.RECORDSET
SET RS=GetRsFromMdb("C:\1.MDB","表1")
RS.ADDNEW
RS("欄位1")="33"
RS.UPDATE
RS.CLOSE
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/147758.html
標籤：VBA
上一篇：Trim(txtUserName.Text = "")與Trim(txtUserName.Text） = ""有區別嗎
下一篇：關于一段vbs代碼時候存在問題