試圖將保存有斷路器分閘程序的資料的文本檔案的資料通過Vb存進Access資料庫中的“斷路器實時分閘程序資料表”中，代碼總是出現問題？剛入手學習Vb和Aceess，希望得到大神的指導？
文本檔案，資料表結構和代碼如下所示：
1）文本檔案：
采集時間 Oi OAd OBd OCd OAp OBp OCp
2015/5/13 11:45:30 0.24 5.12 4.88 5.28 4.96 3.44 3.84
2015/5/13 11:45:31 -0.08 5.04 4.72 4.8 5.04 3.52 3.68
2015/5/13 11:45:33 -0.24 4.8 4.56 5.04 5.04 3.52 3.84
2015/5/13 11:45:36 -0.16 5.04 4.72 4.8 5.04 3.52 3.76
2015/5/13 11:45:37 0.16 4.88 4.64 4.72 4.88 3.44 3.68
2015/5/13 11:45:40 0.32 5.12 4.4 4.88 5.12 3.52 3.76
2015/5/13 11:45:41 0.08 4.96 4.56 4.96 5.04 3.52 3.84
2015/5/13 11:45:42 -0.4 5.04 4.72 5.12 5.04 3.44 3.84
2015/5/13 11:45:45 0.16 5.12 4.56 5.04 4.96 3.52 3.84
2015/5/13 11:45:47 0 4.88 4.56 5.28 4.96 3.52 3.84
2015/5/13 11:45:48 0 5.04 4.56 4.96 4.96 3.52 3.84
2015/5/13 11:45:49 -0.08 5.2 4.48 5.12 5.04 3.44 3.92
2015/5/13 11:45:51 0.08 5.04 4.64 5.04 5.04 3.44 3.84
2015/5/13 11:45:52 0 5.04 4.56 5.28 5.04 3.52 3.84
2015/5/13 11:45:55 -0.16 5.12 4.48 4.96 4.96 3.52 3.84
2015/5/13 11:45:57 -0.08 5.12 4.56 5.12 5.04 3.52 3.92
2015/5/13 11:45:58 0.24 5.12 4.56 4.96 4.96 3.52 3.84
2015/5/13 11:45:59 -0.16 5.04 4.64 4.96 5.12 3.52 3.76
2）資料表結構
欄位名稱 資料型別
分閘采集時間 日期/時間
Oi 文本
OAd 文本
OBd 文本
OCd 文本
OAp 文本
OBp 文本
OCp 文本
3）代碼
Option Explicit
Option Base 1
Dim cnn As ADODB.Connection
Private Sub Command1_Click()
Dim 分閘采集時間$, Oi$, OAd$, OBd$, OCd$, OAp$, OBp$,OCp$
Open "C:\Users\Administrator\Desktop\設計資料\斷路器資料管理系統資料庫\分閘程序資料.txt" For Input As #1
Do While Not EOF(1)
Input #1, 分閘采集時間
Print 分閘采集時間
Loop
Close #1
MsgBox "完成"
End Sub
Private Sub Command2_Click()
Dim sql1$
Dim 分閘采集時間 As Date
Dim Oi$, OAd$, OBd$, OCd$, OAp$, OBp$, OCp$
Open "C:\Users\Administrator\Desktop\設計資料\斷路器資料管理系統資料庫\分閘程序資料.txt" For Input As #1
Do While Not EOF(1)
Input #1, 分閘采集時間
sql1 = "insert into 斷路器實時分閘程序資料表(分閘采集時間, Oi, OAd, OBd, OCd, OAp, OBp, OCp) values ('#" & Trim(分閘采集時間) & "','" & Trim(Oi) & "','" & Trim(OAd) & "','" & Trim(OBd) & "','" & Trim(OCd) & "','" & Trim(OAp) & "','" & Trim(OBp) & "','" & Trim(OCp) & "')"
cnn.Execute (sql1)
Loop
Close #1
cnn.CommitTrans
MsgBox "完成"
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\fenhe.mdb;Persist Security Info=False"
cnn.ConnectionTimeout = 30
cnn.Open
cnn.BeginTrans
End Sub
4）出現實時錯誤：標準運算式資料型別不匹配
uj5u.com熱心網友回復：
你可以跟蹤看看你的那些變數是否有內容？uj5u.com熱心網友回復：
你的意思是？uj5u.com熱心網友回復：
Line InputSplit
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/92467.html
標籤：VBA
上一篇：想撰寫一個VB模塊逐行讀取一個txt檔案的內容并將其內容拆分為二維陣列
下一篇：16進制字串放入陣列