Protected Function OutToAccess(ByVal dtSource As DataTable, ByVal strSavePath As String) As Boolean
Try
Dim clg As Catalog = New Catalog
clg.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + strSavePath + ";Jet OLEDB:Engine Type=5")
Dim dtResult As ADOX.Table = New ADOX.Table
dtResult.Name = "QueryResult"
'根据的Table里面的表结构生成一个新的表.
For Each colTemp As DataColumn In dtSource.Columns
Dim axCol As ADOX.Column = New ADOX.Column
With axCol
.Name = colTemp.ColumnName
.Type = GetAdoxType(colTemp.DataType.Name)
End With
dtResult.Columns.Append(axCol)
Next
dtResult.Keys.Append("PK", KeyTypeEnum.adKeyPrimary, dtResult.Columns.Item(0))
clg.Tables.Append(dtResult)
'建立连接到目标MDB文件
Dim cn As System.Data.OleDb.OleDbConnection
Dim da As System.Data.OleDb.OleDbDataAdapter
Dim ds As DataSet = New Data.DataSet
cn = New System.Data.OleDb.OleDbConnection("provider = microsoft.jet.oledb.4.0;" & _
"data source = " + strSavePath)
da = New System.Data.OleDb.OleDbDataAdapter("select * from QueryResult", cn)
cn.Open() '打开连接
da.Fill(ds, "QueryResult")
ds.Tables("QueryResult").Clear()
'填充数据到新表里面
For Each rowSource As DataRow In dtSource.Rows
ds.Tables("QueryResult").Rows.Add(rowSource.ItemArray)
Next
Dim tempBuilder As OleDb.OleDbCommandBuilder
tempBuilder = New OleDb.OleDbCommandBuilder(da)
da.Update(ds, "QueryResult") '更新数据库
cn.Close()
Catch ex As Exception
Throw New Exception("输出到Access出错:" + ex.Message)
Return False
End Try
Return True
End Function
比如说Dataset中有18条数据,但在MDB文件中就只有十七条,第一条不见了
