Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "订单"
mg.DataTableName = "订单"
mg.Merge()
End If
换成
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel||*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "订单"
mg.DataTableName = "订单"
mg.Merge()
End If
我想要点击的时候可以选择的导入EXCEL表,请问要如何实现,这样写的话,会提示导入的数据库文件出错
[此贴子已经被作者于2013-4-9 16:58:20编辑过]