通过VB如何实现将SQL数据从一张表复制到另一张表

将表a1复制成表a2

select

into

a2

from

a1

如果想加入条件

select

into

a2

from

a1

where

字段1='mmm'

将a1表中的字段1为"mmm"的记录复制成表a2

在工程里引用microsoft activex data objects 27 library

Dim cn As New ADODBConnection, rs1 As New ADODBRecordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句

Private Sub Form_Load()

cnOpen "provider=microsoftjetoledb40;data source=" + AppPath + "\数据库名mdb" + ""

sql = "select from 表名"

rs1Open sql, cn

rs1MoveFirst

Do While Not rs1EOF

Combo1AddItem rs1("字段名")

rs1MoveNext

Loop

rs1Close

End Sub

如果你还有什么不懂的，可以百度搜下：编程回忆录，他们现在正在录制这方面的教程，都是零基础开始，由浅入深。

Sub 修改并保存()

Dim I

X = WorksheetFunctionMatch([B1], Sheets("基础数据")Range("A:A"), 0)

Range("A3:D3")Copy Sheets("基础数据")Cells(X, "a")

Sheets("基础数据")Select

Sheets("基础数据")Range("a" & X & ":" & "d" & X)InteriorColorIndex = 3 '修改过的区域填充红色

End Sub

代码复制到 修改表里

Private Sub Command1_Click()

Dim conn As ADODBConnection

Dim rs As ADODBRecordset

Dim strSql As String

Set conn = OpenConnForAccess("testmdb")

strSql = "insert into b select from c"

RunTrans strSql, conn

end sub

Public Function OpenConnForAccess(ByVal FileName As String) As ADODBConnection

Dim AdoConn As New ADODBConnection

With AdoConn

ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & FileName & ";Persist Security Info=False"

Open

End With

Set OpenConnForAccess = AdoConn

End Function

Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODBConnection)

With AdoConn

BeginTrans

Execute tranSql

CommitTrans

End With

End Function

两张表格的字段不是完全相同的

___________________________

strSql = "insert into b(id,num) select id,num from c"

以上就是关于通过VB如何实现将SQL数据从一张表复制到另一张表全部的内容，包括:通过VB如何实现将SQL数据从一张表复制到另一张表、VB6.0编程，想把ACCESS07数据库【ABC】中表1中的所有内容都复制到同一数据库的表2里面，求代码。、vb，vbA *** 作EXCEL怎么把指定数据复制到另一工作表符合条件的相应位置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！