2,461
社区成员
发帖
与我相关
我的任务
分享
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