反过程做过,从ACCESS到ORACLE中 思路是用查询语句从ACCESS中把数据导到DataTable中,然后再把它插入到数据库中。 下面是把DataTable中插入数据库的代码: '--------------------------------------------------------------- ' 函数功能:把DataTable表中数据更新到指定的Oracle表中 ' 参数: ''strTableName:orcle数据库中的表名 ''dt:要插入的表 ' 创建标识:[ghli][2008-07-30] '---------------------------------------------------------------- Public Function DataTableToDB(ByVal strTableName As String, ByVal dt As DataTable) Dim dtResult As New DataTable Dim myCommand As OracleDataAdapter Dim myBuilder As OracleCommandBuilder Dim strCom As String = "select * from " + strTableName myCommand = New OracleDataAdapter(strCom, myORACLEConnection) myBuilder = New OracleCommandBuilder(myCommand) myCommand.Fill(dtResult) For Each rowItem As DataRow In dt.Rows Dim newRow As DataRow = dtResult.NewRow() newRow.ItemArray = rowItem.ItemArray dtResult.Rows.Add(newRow) Next myCommand.InsertCommand = myBuilder.GetInsertCommand myCommand.Update(dtResult) Return Nothing End Function
在程序里,需要把一段查询的结果存储到ACCESS中
这样有什么好方法导出到ACCESS,如果把查询结果导出到TXT,ACCESS有语句能把TXT改入吗?
思路是用查询语句从ACCESS中把数据导到DataTable中,然后再把它插入到数据库中。
下面是把DataTable中插入数据库的代码: '---------------------------------------------------------------
' 函数功能:把DataTable表中数据更新到指定的Oracle表中
' 参数:
''strTableName:orcle数据库中的表名
''dt:要插入的表
' 创建标识:[ghli][2008-07-30]
'----------------------------------------------------------------
Public Function DataTableToDB(ByVal strTableName As String, ByVal dt As DataTable)
Dim dtResult As New DataTable
Dim myCommand As OracleDataAdapter
Dim myBuilder As OracleCommandBuilder
Dim strCom As String = "select * from " + strTableName
myCommand = New OracleDataAdapter(strCom, myORACLEConnection)
myBuilder = New OracleCommandBuilder(myCommand)
myCommand.Fill(dtResult)
For Each rowItem As DataRow In dt.Rows
Dim newRow As DataRow = dtResult.NewRow()
newRow.ItemArray = rowItem.ItemArray
dtResult.Rows.Add(newRow)
Next
myCommand.InsertCommand = myBuilder.GetInsertCommand
myCommand.Update(dtResult)
Return Nothing
End Function