vb实现Access把一组数据从一个数据库转到另一个数据库

如何用vb把一个数据库里的数据复制到另个数据库中~

用dreamweaver
只需写sql，自动生成结果

方法一：
打开目标数据库，选择文件－获取外部数据－导入，
然后在弹出的窗口中，选择源文件，然后挑选你想要导入的数据即可实现


方法二：
通过sql server数据导入导出工具实现，详情参阅sql帮助

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\library.mdb;Persist Security Info =false"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from A2" '当前文件夹中library库A2表中数据Adodc1.Refresh

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mybook.mdb;Persist Security Info =false"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from A3" 当前文件夹中mybook库A3表数据
Adodc2.Refresh

If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst 'A2表中数据集指针到最前面
If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast 'A3数据集指针到最后
For i = 1 To Adodc1.Recordset.RecordCount
Adodc2.Recordset.AddNew 'A3添加空数据
Adodc2.Recordset.Fields(0).Value = Adodc1.Recordset.Fields(0).Value '将A2当前指针的数据给A3新加数据表中
Adodc2.Recordset.Update 'A3更新
Adodc1.Recordset.MoveNext 'A2指向下一条继续
Next i

病情分析：
过敏性哮喘患者饮食最基本原则就是清淡、松软，适宜多吃易消化且含纤维素丰富的食物，如丝瓜、香蕉、梨等；少吃鸡蛋、肥肉等容易生痰的食物。
指导意见：
由于过敏性哮喘多由过敏因素诱发，因此鱼、虾、河蚌、蟹等腥膻的海味食物以及羊肉、肥肉、鸡蛋、花生、巧克力、糖果、蜂蜜等甜腻食物，应该少吃或最好不吃。

病情分析：
1、避免温差变化，注意保暖，2、预防和及时治疗感冒，3、预防常见过敏原刺激，包括环境和饮食控制，4、避免剧烈运动和疲劳，部分与内分泌或精神有关，注意预防。5、规范治疗，6、原因不同，治疗和预防的方法就不同。
指导意见：
你好：常见致敏食物包括：（一）动物蛋白食品：包括牛奶、鸡蛋、鱼、虾、蟹、羊肉、牛肉、猪肉，鸡肉及其它禽类等。（二）油料作物及坚果类：包括芝麻、花生、黄豆、核桃、榛子、开心果、腰果等。（三）水果及蔬菜类：包括桃、梨、苹果、橘子、荔枝、西瓜、扁豆、番茄、茄子等。（四）谷类：小麦、燕麦、荞麦、玉米等。（五）食物添加剂：以食用色素、防腐剂为主。

你好，过敏性哮喘的饮食宜温热、清淡、松软，可少食多餐。除了忌食肯定会引起过敏或哮喘的食物以外，应避免对其他食物忌口，以免失去应有的营养平衡。在哮喘发作时，还应少吃胀气或难消化的食物，如豆类、山芋等，以避免腹胀压迫胸腔而加重呼吸困难。

使用2个数据连接，
全部打开，按条插入

如：dim conn1 as adodb.connection, conn2 as adodb.connection
dim sqlstr as string
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB.mdb;Persist Security Info=True"
Set conn1 = New ADODB.Connection
conn1.CursorLocation = adUseClient
conn1.Open sqlstr

sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB1.mdb;Persist Security Info=True"
Set conn2 = New ADODB.Connection
conn2.CursorLocation = adUseClient
conn2.Open sqlstr

dim rs as adodb.recordset
dim i as integer, fieldCount as integer

set rs = conn1.execute("select * from table1")
if rs.eof then exit sub
fieldCount = rs.Fields.Count

do while rs.eof = false
sqlstr = "insert into table1 values('"
for i = 0 to fieldCount - 2
sqlstr = sqlstr & rs.fields(i) & "','"
next i
sqlstr = sqlstr & rs.fields(i) & "')"
conn2.execute(sqlstr)
rs.movenext
loop

rs.close
conn1.close
conn2.close

需要，Mark备用

---

通海县19142042032： vb实现Access把一组数据从一个数据库转到另一个数据库 - ？
丘吉西咪： Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\library.mdb;Persist Security Info =false＂ Adodc1.CommandType = adCmdText Adodc1.RecordSource = ＂select * from A2＂ '当前文件夹中...

通海县19142042032： 利用VB语句调用ACCESS数据库,将一张表的全部信息复制到另一张表中 - ？
丘吉西咪： Private Sub Command1_Click() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = OpenConnForAccess(＂test.mdb＂) strSql = ＂insert into b select * from c＂ RunTrans strSql, conn end sub Public ...

通海县19142042032： vb中怎样将access数据表中的一列数据复制到另外一个已经存在的表中.？
丘吉西咪： 使用insert函数试试.

通海县19142042032： 请问怎样用vb语言实现access数据库记录的拷贝? - ？
丘吉西咪： 说思路不说代码,就同时打开两个数据库,把从这个数据库的表里...

通海县19142042032： vb 随机从access数据库中取1条纪录并显示在text文本框中怎么写代码? - ？
丘吉西咪： Private Sub Form_Load()'打开数据库的代码你应该自己写好了吧,所以省略,RandomizeAdodc1.Recordset.MoveFirstFor i = 0 To Int(Rnd(0 * Adodc1...

通海县19142042032： VB操作两个数据库,从A数据库表中查询,然后写入B数据库表中! - ？
丘吉西咪： insert into 数据库1.dbo.表(字段列表) select 字段列表2 from 数据库2.dbo.表 where 条件其中 列表1的项应该与列表2的项是相等的 H字段可以用以下的方式写eg＂insert into 数据库1.dbo.表(列一,列二,列三,列四) select 列一,列二,'＂ & H & ＂' from 数据库2.dbo.表 where 条件＂

通海县19142042032： VB中如何实现将Access数据库中的数据全部列出? - ？
丘吉西咪： 假设你的db1.mdb在你的当前目录下: Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open ＂Pr...

通海县19142042032： 请问用VB能否将将一个二维数组的所有值及其对应位置存入access中 - ？
丘吉西咪： 可以,先在Access中建立一个表保存这个二维数组,假设表名为T,列如下:index1:一维索引 index2:二维索引 value:类型与你的数组元素类型相似,用于保存元素值 用两层for循环,第一次遍历第[i]个元素,第二次读取第[i,k]元素,假如值是v,这样就把(i,k,v)存入表T中即可.

通海县19142042032： VB编程 - 从access数据库里调用数据进行运算. - ？
丘吉西咪： '先引用 : Microsoft Activex Data Objects 2.1 Library Private Sub Command1_Click() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb＂ '请...

通海县19142042032： 想了解一下VB与Access的具体应用.比如我想把从一个仪表上读取到数据以表格的形式保存到电脑中. - ？
丘吉西咪： 答:完全可以.首先要去弄明白这仪表的接口协议.也就是这个仪表设计时候预留的和外部计算机通讯的方式.最多见的是串口的方式,现在有很多仪表有了 USB的接口或者各种总线形式以及HART协议.知道了仪表的情况以后在VB中选用对...