VFP8+SQLSERVER问题导入多个EXCEL表

[kfzxc]

Local lcConnString
lcConnString = 'driver=SQL Server;server=(local);database=XSCJ;uid=sa;pwd=111111;trusted_connection=no'
* 把这里的密码改成你自己的数据库中密码
lnHandle=Sqlstringconnect(lcConnString)
If lnHandle>0
If SQLExec(lnHandle,[insert into xs1(学号,姓名,专业名) select 学号,姓名,专业名 from OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\test.Xls";User ID=;Password=;Extended properties=Excel 5.0')...sheet1$])>0
Messagebox("成功",64,"信息提示")
Else
Messagebox("失败",64,"信息提示")
Endif
Endif
用这个方法可以导入单个已知表名的EXCEL表。如果我要导入多个EXCEL表，在客户端如何设计？
假如需要弹出“打开”对话框，选中一个导入一个。该怎么写代码呢？另外，如何判断一张表是否已经导入？
请指教

[十豆三]

Local lcConnString
lcConnString = 'driver=SQL Server;server=(local);database=XSCJ;uid=sa;pwd=111111;trusted_connection=no'
* 把这里的密码改成你自己的数据库中密码
lnHandle=Sqlstringconnect(lcConnString)
If lnHandle>0
	Do While .T.
		lcExcelFile= Getfile("XLS","","",0,'选择一个Excel文件！')
		If !File(lcExcelFile) Or !Upper(Justext(lcExcelFile))="XLS"
			If Messagebox("没有选择EXCEL文件或选择的文件不是EXCEL类型文件,是否继续？",4+32+256,"信息提示")=7
				Exit
			Else
				Loop
			Endif
		Endif
		If SQLExec(lnHandle,[insert into xs1(学号,姓名,专业名) select 学号,姓名,专业名 from OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source="]+lcExcelFile+[";User ID=;Password=;Extended properties=Excel 5.0')...sheet1$])>0
			Messagebox("成功导入"+lcExcelFile,64,"信息提示")
		Else
			Messagebox("导入"+lcExcelFile+"失败",48,"信息提示")
		Endif
		If Messagebox("是否继续导入其他文件？",4+32+256,"信息提示")=7
			Exit
		Endif
	Enddo
Endif

[tszsc]

用循环，语句中的'Data Source的值用变量动态指定。

[阿坤哥哥]

先导成DBF，再导入SQL SERVER，DBF的容错性要好一些，要用VFP的强项呀

[zxd518518]

学习

[kfzxc]

非常感谢苹果