SystemReady = False
Try
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
If Connections.Contains("test") Then Connections.Delete("test")
Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")
For Each tn As String In Connections("test").GetTableNames
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "test"
cmd.CommandText = "SELECT * From {" & tn & "}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim fdr As DataRow = DataTables(tn).Find("主键列名 = '" & dr("主键列名") & "'")
If fdr Is Nothing Then fdr = DataTables("员工").AddNew()
For Each dc As DataCol In dt.DataCols
fdr(dc.name) = dr(dc.name)
Next
Next
Next
End If
[此贴子已经被作者于2017/8/24 23:37:18编辑过]
加好友 
发短信
Post By：2017/8/24 20:59:00 [显示全部帖子]
