Question

SQL通过 vb运行from语法错误

Private Sub Command9_Click()
Dim cn As ADODB.Connection ' 定义Excel 连接

Set cn = New ADODB.Connection

' 初始化commandialog1 的属性，选取Excel 文件，文

' 件名保存在CommanDialog1.filename 中备用

CommonDialog1.Filter = " 电子表格文件(.xls) |*.xls"

CommonDialog1.DialogTitle = " 请选择要导入的文件"

CommonDialog1.Action = 1
MsgBox CommonDialog1.FileName

CommonDialog1.ShowOpen ' 设置连接SQL 数据库的连接字符串

strtemp = " provider=sqloledb;server=FENGQIQING;uid=sa;pwd=123456;database=integral"

' 设置Excel 数据连接

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties='Excel 8.0;HDR=Yes';Data Source=" & CommonDialog1.FileName & ""

cn.Open strconn
MsgBox "已打开excel数据库连接"

' 设置Excel 记录集

' 循环将Excel 数据文件中的各个数据表写入数据库

strsql2 = "insert into integral.客户明细 select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=G:\VB\客户明细.xls',客户明细$)"

cn.Execute strsql2, lngRecsAff, adExecuteNoRecords

MsgBox "成功导入--"
rstschema.MoveNext

' 释放资源
rstschema.Close
cn.Close
Set cn = Nothing
Set rstschema = Nothing

End Sub

Answer 1

你搜索一下吧