以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  做一个EXCEL导入程序  (http://www.foxtable.com/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
--  
谢谢老师指导