如何将ACCess的一个表里的一个字段按指定条件复制到另一个ACC数据库 在ACCESS数据库中，怎样把一个表的某些字段的某些记录复制...

\u5728ACCESS\u6570\u636e\u5e93\u4e2d\uff0c\u600e\u6837\u628a\u4e00\u4e2a\u8868\u7684\u67d0\u4e9b\u5b57\u6bb5\u7684\u67d0\u4e9b\u8bb0\u5f55\u590d\u5236\u5230\u53e6\u4e00\u4e2a\u8868

\u53ef\u5148\u7528\u6570\u636e\u7ba1\u9053\u5728PB\u4e2d\u5efa\u7acb\uff08\u6216\u5bfc\u5165\u5230\uff09\u4e00\u4e2a\u6570\u636e\u5e93\uff0c\u5728\u901a\u8fc7\u6570\u636e\u7a97\u53e3\u4fdd\u5b58\u4e3a\u4f60\u60f3\u8981\u7684\u4efb\u4f55\u683c\u5f0f\u7684\u6587\u4ef6\u5305\u62ecexcel
String ls_File, ls_Path, ls_Ext
Integer li_Value
li_Value = GetFileSaveName ("\u6253\u5370\u5230\u6587\u4ef6", ls_Path, ls_File, "DOC", &
"\u6587\u672c\u6587\u4ef6; (*.CSV), *.CVS," + &
"\u6587\u672c\u6587\u4ef6Tab (*.TXT), *.TXT," + &
"dBASE II (*.DBF), *.DBF," + &
"dBASE III (*.DBF), *.DBF," + &
"DIF\u6587\u4ef6 (*.DIF), *.DIF," + &
"Excel\u6587\u4ef6 (*.XLS), *.XLS," + &
"HTML\u6587\u4ef6 (*.HTM), *.HTM," + &
"PSR\u6587\u4ef6 (*.PSR), *.PSR," + &
"SQL\u6587\u4ef6 (*.SQL), *.SQL," + &
"\u591a\u683c\u5f0f\u6587\u4ef6 (*.SYL), *.SYL," + &
"Lotus1-2-3 (*.WKS), *.WKS," + &
"Lotus1-2-3 (*.WK1), *.WK1," + &
"WMF Windows (*.WMF), *.WMF")

IF li_Value 1 THEN RETURN
IF ls_Path = '' THEN RETURN
IF FileExists(ls_Path) THEN
Beep(3)
IF MessageBox('\u7cfb\u7edf\u4fe1\u606f', '\u6587\u4ef6:'+ls_Path+'\u5df2\u5b58\u5728, \u8986\u76d6\u5417(Yes/No)?', Question!, YesNo!, 2)=2 THEN RETURN
END IF
ls_Ext = Upper(Right(ls_Path, 3))

CHOOSE CASE ls_Ext
// CASE "prn"
// dw_preview.Object.Datawindow.Print.FileName = ls_Path
// dw_preview.Print()
CASE 'CSV'
li_Value = dw_preview.SaveAs(ls_Path, CSV!, FALSE)
CASE 'DBF'
li_Value = dw_preview.SaveAs(ls_Path, dBASE3!, FALSE)
CASE 'DIF'
li_Value = dw_preview.SaveAs(ls_Path, DIF!, FALSE)
CASE 'XLS'
li_Value = dw_preview.SaveAs(ls_Path, Excel!, FALSE)
CASE 'HTM'
li_Value = dw_preview.SaveAs(ls_Path, HTMLTable!, FALSE)
CASE 'PSR'
li_Value = dw_preview.SaveAs(ls_Path, PSReport!, FALSE)
CASE 'SQL'
li_Value = dw_preview.SaveAs(ls_Path, SQLInsert!, FALSE)
CASE 'SYL'
li_Value = dw_preview.SaveAs(ls_Path, SYLK!, FALSE)
CASE 'TXT'
li_Value = dw_preview.SaveAs(ls_Path, Text!, FALSE)
CASE 'WKS'
li_Value = dw_preview.SaveAs(ls_Path, WKS!, FALSE)
CASE 'WK1'
li_Value = dw_preview.SaveAs(ls_Path, WK1!, FALSE)
CASE 'WMF'
li_Value = dw_preview.SaveAs(ls_Path, WMF!, FALSE)
END CHOOSE

Beep(3)
IF li_Value=1 THEN
MessageBox('\u7cfb\u7edf\u4fe1\u606f', '\u6570\u636e\u4fdd\u5b58\u5b8c\u6bd5!')
ELSE
MessageBox('\u7cfb\u7edf\u4fe1\u606f', '\u6570\u636e\u4fdd\u5b58\u9519\u8bef!')
END IF

select * into newtable from table where \u5b57\u6bb5 like '%\u4e2d%'
\u6216\u5982\u679c\u53e6\u4e00\u5f20\u8868\u5df2\u7ecf\u5b58\u5728,\u5219\u7528\u4e0b\u9762\u7684:
insert into newtable
select * from table where \u5b57\u6bb5 like '%\u4e2d%'
\u5982\u679c\u4e0a\u9762\u7684\u8bdd,\u8981\u6ce8\u610f\u5b57\u6bb5\u662f\u5426\u4e00\u6837\u591a,\u6216\u5b57\u6bb5\u7c7b\u578b\u662f\u5426\u4e00\u81f4\u7684\u95ee\u9898.

function loadA()set rs=createobject("adodb.recordset")
sql="select * from test where id>500"
rs.open sql,conn,1,1
if not rs.eof thenfor i=1 to rs.recordcountid=rs("id")add2test2 idrs.movenextnextend ifset rs=nothingend function function add2test2(nid) set rs=createobject("adodb.recordset")
sql="select * from test2"
rs.open sql,conn,1,3
rs.addnewrs("kid")=nidset rs=nothingend function 直接<%loadA%>

选择--复制--粘贴

access 濡備綍灏嗕竴涓〃涓殑涓涓瀛楁鐨勬墍鏈夊肩疮鍔犲悗璧嬪肩粰鍙︿竴涓〃涓殑鏌...
绛旓細select sum(浣犺绱姞鐨勫瓧娈) as qty from table where 鍐鎶qty鐨勫艰緭鍑鸿祴缁檛extbox 鍐嶆妸textbox鐨勫兼洿鏂板埌鍙涓涓〃涓殑鏌愪釜瀛楁

Access涓浣曞皢涓涓〃涓殑璁板綍鎻掑叆鍒板彟涓涓Access鐨琛ㄤ腑?
绛旓細SQL璇彞搴旇鍐欏湪娌℃湁鏁版嵁鐨勯摼鎺ヤ腑 insert into [琛ㄥ悕] select * from [鏈夋暟鎹殑鏁版嵁搴撳悕].[琛ㄥ悕]杩欑鍐欐硶瑕佷繚璇佷袱涓暟鎹簱鐨勮矾寰勪竴鏍,濡傛灉涓嶄竴鏍凤紝鍙姞涓奫鏈夋暟鎹殑鏁版嵁搴撳悕]鐨勮矾寰 姣斿 鏈夋暟鎹殑鏁版嵁搴撳湪D锛氱洏 insert into [琛ㄥ悕] select * from d:\[鏈夋暟鎹殑鏁版嵁搴撳悕].[琛ㄥ悕]

access 濡備綍灏嗕竴涓〃鐨鏌愪釜瀛楁鐨勬暟鎹鍒板彟澶栦竴涓〃鐩稿悓瀛楁閲岄潰?
绛旓細鏁版嵁搴揳琛1鏈夊鍙枫佸鍚,鏁版嵁搴揵琛2涔熸湁瀛﹀彿銆佸鍚嶃傛垜瑕鎶鏁版嵁搴揳琛1鐨瀛﹀彿銆佸鍚嶅鍏ュ埌鏁版嵁搴揵琛2鐨勫鍙枫佸鍚閲岄潰!瑕鎬庝箞鍋!绱ф!鍋氬嚭鏉ュ姞鍒50鍒!涓妤煎彲浠ョ敤!浣嗘槸瀵煎叆鍒拌〃2鎵... 鏁版嵁搴揳 琛1 鏈夊鍙枫佸鍚,鏁版嵁搴揵 琛2 涔熸湁瀛﹀彿銆佸鍚嶃傛垜瑕佹妸鏁版嵁搴揳 琛1鐨勫鍙枫佸鍚嶅鍏ュ埌鏁版嵁搴揵琛2鐨勫鍙枫...

鎬庝箞鎶奱ccess鏁版嵁搴閲岀殑鐨勪竴涓〃閲涓鍒楃殑淇℃伅 瀵煎叆鍒板彟涓涓〃閲
绛旓細涓涓〃鐨鎶ご蹇呴』涓鏍 浣犺嚜宸辨敼涓涓,娌℃湁鐨勫垪灏辨彃鍏ヤ釜绌虹殑鍒,鎶ご鍚嶅瓧寮勪竴鏍 A琛ㄩ噷闈鎶ご涔熸敼鎴 b1 b2 b3 b4 insert into B select * from A

濡備綍鎶夾CCESS涓鍚涓涓〃閲岀殑涓嶅悓鏍忕洰鍒嗗紑鐜板疄
绛旓細select * from 琛 order by 鍒嗗紑鏄剧ず鐨勫垪

濡備綍灏嗕竴涓猘ccess鏁版嵁搴涓殑鏁版嵁瀵煎叆鍒板彟涓涓猘ccess鏁版嵁搴撲腑
绛旓細濡備綍灏涓涓access鏁版嵁搴涓殑鏁版嵁瀵煎叆鍒板彟涓涓猘ccess鏁版嵁搴撲腑 杩欐椂涓鑸殑鍒嗕簩绉嶆儏鍐碉紝涓鏄湁鍚屾牱鐨勪竴寮犺〃锛岄偅鐩存帴鍙互鎸夋潯鐩 杩涜insert into 鎿嶄綔 浜屾槸锛屾病鏈夎繖涓〃锛屽氨闇瑕佺紪鍐橲QL璇彞锛屽垱寤轰竴寮犵浉鍚岀殑琛紝鐒跺悗鍐嶈繘琛屾暟鎹殑鏉＄洰鐨勬搷浣溿

璋佺煡閬access涓浣曟妸涓涓〃鏍肩殑鏁版嵁杩藉姞鍒板彟涓涓凡缁忔湁鐨勬暟鎹?
绛旓細鎵撳紑鍘琛ㄦ牸鐨鏁版嵁琛-->鐐规枃浠->鑾峰彇澶栭儴鏁版嵁->瀵煎叆->閫夋嫨鎵瑕佽拷鍔犵殑access搴-->閫夋嫨杩藉姞鐨勮〃

Access鏁版嵁搴撴湁涓や釜琛,灏嗕竴涓〃涓殑閮ㄥ垎鏁版嵁杞Щ鍒板彟涓琛
绛旓細insert into A select col1,col2,col3 ..from B where 鍚勭鏉′欢

access 濡備綍浠涓涓〃閫夋嫨澶氫釜瀛楁涓殑涓琛屾暟鎹斁鍒板彟涓涓〃
绛旓細鍒涘缓涓涓鏇存柊鏌ヨ 鏌ヨ閲岄潰鍐檚ql璇彞锛屽锛 insert into newTable select column1,column2,column3,column5 from oldTable

access閲 鎬庝箞璋冪敤涓涓〃涓殑瀛楁鍊
绛旓細鐩存帴浠ヤ笅涓涓瀛楁鏃跺啓涓涓"瀛﹀垎"鐨勫彸鍑昏繖涓瓧娈,閫夋嫨"鐢熸垚鍣" 鏁堟灉:

扩展阅读：永久免费access进销存软件 ... access合二为一查询 ... access多个表的交叉查询 ... access拆分记录成两个表 ... access免费永久激活 ... 更新查询access ... access两个查询合并 ... access两表交叉查询 ... access怎么基于两个表查询 ...