ACCESS vba 代码出错，如何修改？

叶不归树

Private Sub cmd_d_Click()

Dim dh1, tm1, path As String
Dim dt1 As Date
Dim a As Long

path = "d:/access/wenjian.txt"
a = 0

Open path For Input As #1

Do Until EOF(1)
Line Input #1, sdata
dh1 = Trim(Left(sdata, 10))
tm1 = Trim(Mid(sdata, 30, 12))
dt1 = Date
CurrentDb.Execute ("insert into 订单表(条码,订单号,日期) values(tm1,dh1,dt1)")
a = a + 1
Loop
MsgBox ("OK")

End Sub

本意是想读取文本数据到ACCESS表格中，出错如下：运行时错误“3061”，参数不足，期待是3。看错误应该是VALUES后面三个参数出错了，不知道如何修改，请指教

Gemmy

1. 
   
2. CurrentDb.Execute ("insert into 订单表(条码,订单号,日期) values(" & tm1 & "," & dh1 & "," & dt1 & ")")
   

复制代码

zhangjimfu

1. INSERT INTO tblPLValues
   
2. SELECT StoreNumber,AccountSubject,FinYear,StoreBrand,ReportKind,BudgetOrFact,Balance as January
   
3. FROM (SELECT *
   
4. FROM [Help$A3:J245] IN 'C:\Documents and Settings\jfliu\桌面\Access\AccessStudyExample\First\FirstExcelData.xls'[Excel 8.0;]
   
5. WHERE Balance<>0 and ReportType='PL');
   

复制代码

仅用SQL代码导入,txt文件更换路径即可,详见帮助文档

lawrence-wang

应改成这样，注意单引号：
CurrentDb.Execute ("insert into 订单表(条码,订单号,日期) values('" & tm1 & "','" & dh1 & "','" & dt1 & "')")


---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---
Excel Access VBA 软件/函数服务，按需开发。淘宝店 http://shop33428818.taobao.com/