如何用VB代码将access数据库中的一张表复制成另外一张表
例如有数据库（数据.mdb）其中有表table01，
如何编写vb代码实现复制表table01到（数据.mdb）中另命名为table02
急需，
用VB代码将access数据库中的一张表结构及数据复制到另外一张新表中...
'使用方法：1、调用SetConnStr函数，产生连接字符串。2、打开数据库连接，3。执行ExecuteSQL函数返回结果集。'=== 必须引用ADO2.5库方可运行 === 'VB数据库编程的模块，演示如何用ADO连接Access数据库，以及 SQL 查询语言的运用。'引用ADO酷，可以将ADO孔件拖到窗体上再删除就可以了 '=== Public...
利用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把一组数据从一个数据库转到另一个数据库
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 = "sele...
vb+Access, 怎么将数据库中一个表的数据移到同一个数据库中的另外一...
用SQL语句。加入你想把A表的数据移动到B表中。那么 对应的语句 insert into A select * from B 把这个语句写到你程序相应的位置就可以了塞。
如何在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....
vb中怎样将access数据表中的一列数据复制到另外一个已经存在的表...
使用insert函数试试。
vb+access,怎样将某表中一列复制到另一表中
老套路啊，就是在vb中通过adodb连接到access，然后读取其中一张表的数据到内存，然后插入另外一张表就可以。
vb中二个access数据库,怎样把其中一个库里的一个表通过代码复制到另一...
只能用导出sql的方法：即，一、把原数据库所有数据，导出成sql；二、再新数据库执行这些sql语句。
怎么复制VB数据库里面的表格到另外一个数据库
'没看清你的要求，补充一下，ACCESS 不支持跨数据库的表格复制的SQL语句 'SQL数据库支持，下面是SQL的方法 Private Sub Command1_Click()Dim conn Dim mdbfile As String '目标数据库名，需要手工指定 Dim oldtable As String '旧表名 Dim newtable As String '新表名 Set conn = CreateObject("...
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 *...
