以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  做一个EXCEL导入程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128828)
--  作者：hopestarxia
--  发布时间：2018/12/16 1:42:00
--  做一个EXCEL导入程序
请问想做一窗口如下：

图片点击可在新窗口打开查看此主题相关图片如下：t1.jpg
图片点击可在新窗口打开查看

“选择文件”控件代码如下：
With e.For m
    Dim dlg As New OpenFileDialog
    dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"
    If dlg.ShowDialog = DialogResult.Ok Then
        .Controls("TextBox1").value = dlg.FileName
        .Controls("ComboBox1").Value = ""
        .Controls("Table1").Table.DataTable.DataRows.clear()
        .Controls("ComboBox1").Select()
    End If
End With
例如对应的数据库下（SQL2005）有表名称为部门表，选择的EXCEL文件内容也与数据库表字段一致。
想将EXCEL文件导入到数据库下，请问老师“导入数据”功能按钮处代码应该如何写才能实现功能？
--  作者：y2287958
--  发布时间：2018/12/16 10:02:00
--  
http://www.foxtable.com/webhelp/scr/0684.htm
--  作者：有点甜
--  发布时间：2018/12/16 21:17:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0685.htm

 

http://www.foxtable.com/webhelp/scr/2334.htm

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101056&skin=0

 
--  作者：hopestarxia
--  发布时间：2018/12/23 11:17:00
--  
谢谢老师指导