vb中复制数据库的一条记录到另一个相同的数据库中（access文件) vb中二个access数据库,怎样把其中一个库里的一个表通过...
VB\u7f16\u7a0b\u540c\u4e00\u4e2aaccess\uff0c\u4e24\u4e2a\u76f8\u540c\u7c7b\u578b\u4e0e\u6392\u5217\u3002\u60f3\u8ba9\u5176\u4e2d\u4e00\u4e2a\u8868\u7684\u4e00\u884c\u6570\u636e\u590d\u5236\u5230\u53e6\u4e00\u4e2a\u8868\u4e2d\u7684\u67d0\u4e00\u884c\u91cc\u9762\u3002\u5728\u5de5\u4f5c\u8868\u4e2d\u53ef\u4ee5\u76f4\u63a5\u7528vlookup\u5b8c\u6210\uff0c\u5982\u679c\u975e\u5f97vba\uff0cvba\u4e2d\u4e5f\u53ef\u4ee5\u8c03\u7528\u5de5\u4f5c\u8868\u51fd\u6570\u3002 Sub test() With Sheets("sheet2") For c = 5 To 100 Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0) Next End With End Sub
\u53ea\u80fd\u7528\u5bfc\u51fasql\u7684\u65b9\u6cd5\uff1a
\u5373\uff0c
\u4e00\u3001\u628a\u539f\u6570\u636e\u5e93\u6240\u6709\u6570\u636e\uff0c\u5bfc\u51fa\u6210sql\uff1b
\u4e8c\u3001\u518d\u65b0\u6570\u636e\u5e93\u6267\u884c\u8fd9\u4e9bsql\u8bed\u53e5\u3002
全部打开，按条插入
如：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
利用Dataset的Copy方法即可。
先获取一个表的数据到DataSet中，查询另一个表中的信息到NewDataset中，
NewDataset = dataset.copy
最后用DataAdapter更新一下NewDataset 就好了。
打开二个库的相同的表，按条插入就行了呀。
for i=1to3
绛旓細select * into 鏂拌〃 from 鏃ц〃 杩愯鍚,浼氭柊寤涓涓鏂拌〃,灏嗗師鏉ョ殑鍚屽悕琛ㄨ鐩
绛旓細Private Sub Combo1_Click()Set Re = New ADODB.Recordset Set conn = New ADODB.Connection Dim sql, biao As String conn.CursorLocation = adUseClient sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\鏁版嵁搴鍚.mdb;Persist Security Info = False"conn.Open sql b...
绛旓細newtable = "info_copy"conn.Execute "SELECT * INTO " & newtable & " FROM " & oldtable'澶嶅埗鎿嶄綔 conn.Close Set conn = Nothing End Sub '娌＄湅娓呬綘鐨勮姹傦紝琛ュ厖涓涓嬶紝ACCESS 涓嶆敮鎸佽法鏁版嵁搴撶殑琛ㄦ牸澶嶅埗鐨SQL璇彞 'SQL鏁版嵁搴撴敮鎸侊紝涓嬮潰鏄疭QL鐨勬柟娉 Private Sub Command1_Click()Dim conn ...
绛旓細jaaabpvb杩炴帴acess鏁版嵁搴寰堝鏄,浣犲悗闈㈠啓鐨勪笢瑗挎垜涓嶆槑鐧,鎶婁笅闈㈢殑浠ｇ爜copy浣犵殑vb涓殑涓涓妯″潡涓氨鍙互鎿嶄綔acess鏁版嵁搴撲簡 '浣跨敤鏂规硶锛1銆佽皟鐢⊿etConnStr鍑芥暟锛屼骇鐢熻繛鎺ュ瓧绗︿覆銆2銆佹墦寮鏁版嵁搴撹繛鎺ワ紝3銆傛墽琛孍xecuteSQL鍑芥暟杩斿洖缁撴灉闆嗐'=== 蹇呴』寮曠敤ADO2.5搴撴柟鍙繍琛 === 'VB鏁版嵁搴撶紪绋嬬殑妯″潡锛屾紨绀...
绛旓細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杩炴帴acess鏁版嵁搴寰堝鏄,浣犲悗闈㈠啓鐨勪笢瑗挎垜涓嶆槑鐧,鎶婁笅闈㈢殑浠ｇ爜copy浣犵殑vb涓殑涓涓妯″潡涓氨鍙互鎿嶄綔acess鏁版嵁搴撲簡 '浣跨敤鏂规硶锛1銆佽皟鐢⊿etConnStr鍑芥暟锛屼骇鐢熻繛鎺ュ瓧绗︿覆銆2銆佹墦寮鏁版嵁搴撹繛鎺ワ紝3銆傛墽琛孍xecuteSQL鍑芥暟杩斿洖缁撴灉闆嗐'=== 蹇呴』寮曠敤ADO2.5搴撴柟鍙繍琛 === 'VB鏁版嵁搴撶紪绋嬬殑妯″潡锛屾紨绀哄浣曠敤A...
绛旓細鍙兘鐢ㄥ鍑簊ql鐨勬柟娉曪細鍗筹紝涓銆佹妸鍘鏁版嵁搴鎵鏈夋暟鎹紝瀵煎嚭鎴恠ql锛涗簩銆佸啀鏂版暟鎹簱鎵ц杩欎簺sql璇彞銆
绛旓細鏄疺B6锛岃繕鏄vb.net 濂戒箙娌＄敤浜嗐傛槸鍦ㄥ悓涓鏈嶅姟鍣ㄤ笂鍚楋紵璁剧疆涓篶ommand鐨凷QL璇彞 insert into [name2].dbo.[FMECA琛ㄦ牸] select * from [name1].dbo.[FMECA]鐒跺悗鎵ц銆傛敞锛氬鏋淔MECA琛ㄦ牸涓仛闆嗙储寮曠殑瀛楁鍙戠敓閲嶅锛岃鍙ユ墽琛屼細鍑洪敊銆
绛旓細鍋囪绐椾綋鍚嶇О涓篎orm1,浣犳坊鍔犲叚涓帶浠跺嚭鏉 琛ㄦ牸鎺т欢DataGridView1,DataGridView2 鎸夋壄鎺т欢鍥涗釜Button1,Button2,Button3,Button4 鐒跺悗娓呯┖绐椾綋閲屾墍鏈変唬鐮佷娇鐢ㄦ垜鐨勪唬鐮佸氨琛屼簡 Imports System.Data.OleDb Public Class Form1 Public LeafFileName As String = CurDir() & "\Access.mdb" '杩欓噷鏄鏁版嵁搴鏂囦欢...
绛旓細浣犺繖涓棶棰橀棶鐨勪篃澶矖绯欎簡 濡傛灉浠呬粎鏄鏁版嵁搴撳鍒琛ㄦ搷浣滅殑璇濆啓鍙ql灏卞彲浠ヤ簡 CREATE TABLE table_a AS SELECT * FROM table_b 杩樻槸璇存瘡褰撲竴涓〃閲岄潰鏂板涓鏉¤褰曞彟澶寮犺〃涔熻鏂板璁板綍锛熻繖涓氨鏄啓涓Е鍙戝櫒灏卞彲浠ヤ簡 鍙互鎶婇棶棰樻弿杩扮殑娓呮鐐
