DataGrid 的內容儲存在 access 中（ADODB 的輸入）。

你想按照資料網格中的條件展示從乙個表中查詢到的資料，修改完成後，點選確定按鈕將資料傳輸到另乙個表，然後刪除原表中的資料，對吧？

以上**應填寫查詢按鈕，點選後，會根據條件對需要修改的資料進行調查處理。

在 sub 之外定義 ADO 物件，即定義公共 ADO 物件。

定義兩個結果集：

dim rs1 as new

dim rs2 as new

rs1 中的資料是有條件地搜尋到的資料，使用 rs2 執行的 SQL 語句"select * from zuizhong"

資料審核完成後，點選儲存按鈕，將修改結果儲存在原始資料庫的DataGrid中（，然後RS1再次執行SQL語句（MSSQL）進行查詢，並將RS1中的資料新增到RS2中（; "xuehao")="學生證")……最後，刪除 RS1 （

呵呵，希望能幫到你。

附錄：呵呵，你可能高估了datagrid的功能，雖然datagrid有修改資料的功能，但是在做資料庫程式的時候，我們從來不會用到它的功能，因為它非常不安全。 另外，你不能在不更新資料的情況下斷開表A的連線，將資料網格重新連線到表b，應該是在重連的同時，資料網格中的資料也會發生變化，你只能將資料網格中的記錄一一讀出，並將它們新增到zǔ表中，但是資料網格中的資料讀取起來比較麻煩， 所以我的建議是：

1.修改資料後，直接儲存到原表中。

2.將原始表中的修改資料新增到最終表中。

3.從原始表中刪除資料。

如果你還有問題，你可以把專案發給我，我會幫你修改，或者我會舉個例子發給你。

dim cn as new '* 資料庫連線變暗為新'* 資料庫記錄 dim mssql 作為字串

private sub form load（）*連線到資料庫源。

aduseclient

provider=;" &

data source=" & "\"

mssql="select * from luru"

mssql, cn, adopendynamic, adlockpessimistic

set = rs

end sub

private sub cmdok_click()if <>0 then

do while not

mssql ="insert into zuizhong(xuehao,xingming,xingbie,chushengnianyue) values('" & rs!xuehao & "','" & rs!xingming & "','" & rs!

xingbie & ','" & rs!chushengmianyue & "')"

mssqlloopmssql="delete from luru"

mssqlend sub

太專業了，看得頭暈目眩。

老闆真是個高手。

將 DataGrid 資料來源設定為 adodb

使用 for 迴圈將每行資料惰性化到表 2 中

將資料寫入另乙個表。

insert

設定資料網格資料格式。

語句沒有問題，只要時間段內有資料即可。

生成的安裝檔案已完全安裝在新計算機上。 在您的本地，有乙個開發環境。

關鍵是：

set = 記錄集。

你怎麼查詢，張貼**出來，看看你改變。

設計了以下形式，包括以下控制項，標籤;

文字的屬性為空; 標題為查詢的命令; 乙個資料控制項，其 databasename 屬性值是資料庫的特定位置; 資料來源屬性值為 data1 的 MSSflexGrid 控制項

private sub command1_click()= "select * from （table name） where （field name） ='" & "'"

if then

a = msgbox("查詢結束！ ")

（欄位名稱）。"

end if

end sub

你根本不需要**，你使用乙個datagrid“aftercolupdate”事件，並在這個過程中新增乙個句子“msgbox”"更新成功！ "“您的庫將使用 DataGrid 進行更新！ 我已經用了n次了！