用sql语句录入时提示数据类型不匹配

baowang519 · 发表于 2011-7-16 20:51

前辈们：我在excel中用sql语句向access录入数据时提示数据类型不匹配，应该怎样修改？我把原程序截屏，请前辈们帮忙修改一下！
代码为：
Private Sub CommandButton1_Click()
Dim conn As Object
Dim Sql$, i$
Dim nRow As Long
nRow = Sheet4.Range("a14").End(xlUp).Row
Sql = "insert into [消费记录] select * from [excel 12.0;database=" & ThisWorkbook.FullName & "].[Sheet4$a3:bl" & nRow & "]; "
Set conn = CreateObject("adodb.connection")
With conn
      .Provider = "microsoft.ACE.oledb.12.0"
      .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\shuju.accdb"
      .Open
End With
conn.Execute (Sql)

conn.Close
Set conn = Nothing

End Sub

[ 本帖最后由 baowang519 于 2011-7-16 21:06 编辑 ]

学生甲1 · 发表于 2011-7-16 21:00

这里边有例子,你看一下就知道了.
http://club.excelhome.net/thread-742437-1-1.html

学生甲1 · 发表于 2011-7-16 21:02

你上传一个附件,我帮你看一看.

baowang519 · 发表于 2011-7-16 21:07

您好！已经补充上去了！

学生甲1 · 发表于 2011-7-16 21:44

你的版本太高,我打不开,我改了一下代码,你复制进去试一试.
Private Sub CommandButton1_Click()
Dim conn As Object
Dim Sql$, i$
Dim nRow As Long
nRow = Sheet4.Range("a14").End(xlUp).Row
Sql = "insert into [消费明细] select * from [excel 12.0;database=" & ThisWorkbook.FullName & ";hdr=yes,imex=1].[Sheet4$a3:bp" & nRow & "]; "
Set conn = CreateObject("adodb.connection")
With conn
      .Provider = "microsoft.ACE.oledb.12.0"
      .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\shuju.accdb"
      .Open
End With
conn.Execute (Sql)

conn.Close
Set conn = Nothing

End Sub

kongtou · 发表于 2011-7-16 21:44

建议你不要设置数字格式，用常规格式好了，数字它默认用文本格式存储的，不影响效果。

学生甲1 · 发表于 2011-7-16 21:45

刚才错了一个符号,改一下.
Private Sub CommandButton1_Click()
Dim conn As Object
Dim Sql$, i$
Dim nRow As Long
nRow = Sheet4.Range("a14").End(xlUp).Row
Sql = "insert into [消费明细] select * from [excel 12.0;database=" & ThisWorkbook.FullName & ";hdr=yes;imex=1].[Sheet4$a3:bp" & nRow & "]; "
Set conn = CreateObject("adodb.connection")
With conn
      .Provider = "microsoft.ACE.oledb.12.0"
      .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\shuju.accdb"
      .Open
End With
conn.Execute (Sql)

conn.Close
Set conn = Nothing

End Sub

baowang519 · 发表于 2011-7-16 22:10

原帖由 学生甲1 于 2011-7-16 21:44 发表
你的版本太高,我打不开,我改了一下代码,你复制进去试一试.
Private Sub CommandButton1_Click()
Dim conn As Object
Dim Sql$, i$
Dim nRow As Long
nRow = Sheet4.Range("a14").End(xlUp).Row ...

运行时错误424
要求对象

baowang519 · 发表于 2011-7-16 22:13

原帖由 kongtou 于 2011-7-16 21:44 发表
建议你不要设置数字格式，用常规格式好了，数字它默认用文本格式存储的，不影响效果。

用常规格式，会不会影像计算功能？

学生甲1 · 发表于 2011-7-17 15:21

原帖由 baowang519 于 2011-7-16 22:10 发表

运行时错误424
要求对象

我发的第一段代码少了一个符号,请用第二段代码.

		自动登录	找回密码
密码			免费注册

[求助] 用sql语句录入时提示数据类型不匹配