vb+Access, 怎么将数据库中一个表的数据移到同一个数据库中的另外一个表中

给写详细些最好能举个例子

举报该问题

第1个回答 2008-12-12

用SQL语句。
加入你想把A表的数据移动到B表中。
那么

对应的语句
insert into A select * from B

把这个语句写到你程序相应的位置就可以了塞。

相似回答

利用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 Function OpenConnForAccess(ByVal FileName As String)...

用VB代码将access数据库中的一张表结构及数据复制到另外一张新表中...答：Public Function SetConnStr(ByVal DbName As String) As String '生成数据库连接字符串,参数为数据库名(全路径)SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"End Function Public Function ExecuteSQL(ByVal Sql As String, ByVal Co...

VB6.0编程,想把ACCESS07数据库【ABC】中表1中的所有内容都复制到同一数...答：Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句 Private Sub Form_Load()cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""sql = "select *...

vb中怎样将access数据表中的一列数据复制到另外一个已经存在的表...答：使用insert函数试试。

怎么复制VB数据库里面的表格到另外一个数据库答：Dim mdbfile As String '数据库名，需要手工指定 Dim oldtable As String '旧表名 Dim newtable As String '新表名 Set conn = CreateObject("ADODB.Connection")mdbfile = "D:\Software\ast541g\ast541g\ASTRO3.mdb"conn.Open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;...

如何在VB 6.0中实现ACCESS数据库的一个表全部添加到另一个表答：'在工程---部件中添加 microsoft ADO data contcrol 6.0 '在窗体添加两个adodc控件，分别连接好数据库和所需导入导出的表 'adodc1连接要导入的表，adodc2连接要导出的表 Private Sub Command1_Click()Dim i, j As Integer Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then Adodc2....

大家正在搜