Excel数据导入数据库

[buzhunmeiyouni]

create proc p_daoru
@sql varchar(8000), --查询语句
@path nvarchar(1000), --文件存放目录
@fname nvarchar(250), --文件名
@sheetname varchar(250)='' --要创建的工作表名,默认为文件名
as
set @sql='insert into table select * from openrowset(''MICROSOFT.ACE.OLEDB.12.0'',''Excel 8.0;HDR=YES
;DATABASE='+@path+@fname+''',['+@sheetname+'$])'

vb 怎么调用这个存储过程 把客户选择 的excel文件内容导入数据库，excel的路径不是固定的
各位帮下忙，最好能给点代码

[buzhunmeiyouni]

各位人呢？求救啊

[buzhunmeiyouni]

Private Sub Command2_Click()

Dim db As New ADODB.Connection
Dim sPath As String

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"

sPath = App.Path + "\backup.xls"
Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")

db.Close
Set db = Nothing
End Sub

怎么把绝对的路径换成打开文件夹后自己选择的文件的路径

[脆皮大雪糕]

用common dialog 调用windows标准系统对话框，选择路径，有API方式也有一个VB自带控件可以用，具体的问问度娘吧，过节综合症，懒得贴代码

[qq_38115572]

很简单的呀，去bing.com直接搜索！！