为什么总是出现“标准表达式中数据类型不匹配的实时错误”

hilyjuanjuan 2015-06-29 11:50:56
试图将保存有断路器分闸过程的数据的文本文件的数据通过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)出现实时错误:标准表达式数据类型不匹配
...全文
494 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2015-06-29
  • 打赏
  • 举报
回复
Line Input Split
hilyjuanjuan 2015-06-29
  • 打赏
  • 举报
回复
你的意思是?
一如既往哈 2015-06-29
  • 打赏
  • 举报
回复
你可以跟踪看看你的那些变量是否有内容?

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧