'曲线 '救国' 吧::::::::::
Dim sjy As String
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
sjy = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Extended Properties=""EXCEL 8.0;HDR=YES;IMEX=1"""
AddConnection("smc",sjy)
End If
Dim q As new QueryBuilder
q.C
q.TableName = "test"
q.SelectString = "Select * From {sheet1$} "
q.Build
'Maintable = Tables("test")
Dim f As New Filler
f.SourceTable = Datatables("test") '指定数据来源,这里是临时表
f.Datatable = Datatables("入库") '指定数据接收表, 这个是你要追加数据的表
Datatables("入库").datarows.clear() '如果要保留原数据,这行代码就不需要了
f.Fill() If Datatables.Contains("test")
Datatables.Delete("test")
End If
Connections.delete("smc")