vb6 0 DataGrid 刪除當前所選行的資料

private sub mshfgrid_click()

end sub

if msgbox("您確定刪除編號是：[.]" & "] ?", vbquestion + vbyesno, "刪除") = vbyes then

set resdel = new

delete from userinfo where userid='" & "'", conn, 1, 2

msgbox "刪除成功！ ", vbinformation, "成功"

if <>0 then

select * from viewuserinfo", conn, 1, 1

set = resdel

if <>0 then

set resdel = nothing

end if

如果有什麼不明白的地方，可以再問我。

想法。 將寫入 datagrid1 的資料建立為零小時表。

從零時間表寫入 datagrid1 時，將從零時間表中刪除所選資料行。

資料寫入 datagrid1。

以下是刪除按鈕**。 rec 來定義。 dim rec as new recordset

if < 1 then

msgbox ("未找到資料資訊，請確認！ ")vbokonly, "錯"

exit sub

elseif msgbox("資料刪除是不可逆的，請確認！ ",vbyesno) =vbyes then

end if

end if

雙擊DataGrid中的一行，獲取當前行中某個欄位的值（其中乙個單元格：即資料庫對應的字段，如何設定此列中的哪個欄位是第乙個字段）。 若要顯示此值，請使用：

欄位名稱可以是以 0 開頭的序號")

樓上可能不會，你想要"雙擊"，好像只能用js實現，樓上都是在伺服器端**，好嗎？

dim myconn as

myconn = new

strcon

dim del as oledbcommand = new oledbcommand(sqldel, myconn)

然後，可以再次幫助頂部資料表顯示。

您的變數名 st0 是在 command1 click（） 中宣告的，那麼如何在 command2 click（） 中識別它呢？

按如下方式修改它：private st0 as new'定義 stordext 物件。

private sub command1_click() '詢問。

dim cn as new '定義資料庫物件。

dim sl as string

provider=;persist security info=false;user id=sa;initial catalog=xiewei;data source=pc-20110605tmui"

sl = "select * from xwuser "

sl, cn, adopenkeyset, adlockoptimistic

set = st0

end sub

private sub command2_click() '刪除

end sub

注意：不需要刪除記錄。

在資料網格中的 click 事件上新增文字框名稱。 text=ado 控制項名稱。 recordset("欄位的名稱"這樣就完成了你的請求並解釋了原因，因為當datagrid進行點選選擇時，當前記錄會被移動到你點選的資料行，所以你可以直接用文字框的text屬性直接顯示，當然在顯示之前必須繫結資料控制項，否則就顯示不出來了！

還可以報告繫結資料控制語句的錯誤，如以下設定文字框名稱所示。 datasource=ado 控制項名稱。

用於繫結資料。 如果有多行，請迴圈完成該過程。

datarowview drv = as datarowview;

當您更新繫結資料表的選定行時，資料庫的相應行也會被刪除。

或; 刪除要刪除的行，而不會影響更新時的資料庫。

最後; 僅具有非約束力。

能。