UC知道vb 把dbf库的数据导入到mdb库
来源：百度知道 编辑：UC知道 时间：2024/06/07 14:06:23
Dim sql As String
Dim sql1 As String
sql = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & Text3.Text & ";SourceType=DBF; "
sql1 = "select * from " & Text2.Text
mycnn.Open sql
myrst.Open sql1, mycnn, adOpenKeyset, adLockOptimistic
myrst.MoveFirst
Set DataGrid1.DataSource = myrst
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & App.Path & "\test1.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from 123 ", cn, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs
rs.Open "insert into 123 myrst"
最后一句的意思是把myset的记录集插入到rs的数据库，我知道我写的不对，可是应该怎么写呢？
另外插入是一条一条的插入还是整个记录集一次性插入？插入的同时能否判断一下mdb数据库中是否有相同记录，有就不追加了
怎么把已经查询到的记录插入到已经存在的表中？有人能给个提示么？
Dim sql1 As String
sql = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & Text3.Text & ";SourceType=DBF; "
sql1 = "select * from " & Text2.Text
mycnn.Open sql
myrst.Open sql1, mycnn, adOpenKeyset, adLockOptimistic
myrst.MoveFirst
Set DataGrid1.DataSource = myrst
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & App.Path & "\test1.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from 123 ", cn, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs
rs.Open "insert into 123 myrst"
最后一句的意思是把myset的记录集插入到rs的数据库，我知道我写的不对，可是应该怎么写呢？
另外插入是一条一条的插入还是整个记录集一次性插入？插入的同时能否判断一下mdb数据库中是否有相同记录，有就不追加了
怎么把已经查询到的记录插入到已经存在的表中？有人能给个提示么？
首先要确定存在的意思，有些字段不能重复，那么在数据库字段中即可定义为不可重复，这样用错误处理就可解决。
另一种是指两个数据库的某个记录完全一致，只要保留一个，这个只有用查找方法了。