看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《yauhh (姚呵呵)》之銘言: ※ 引述《yukimir (小環)》之銘言: : Protected Sub dg_DeleteCommand(ByVal source As Object, ByVal e As : System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg.DeleteCommand : Dim con As OleDbConnection : Dim com As OleDbCommand : Dim provider = "provider=microsoft.jet.oledb.4.0" : Dim database = "data source=" & Server.MapPath("db2.mdb") : con = New OleDbConnection(provider & ";" & database) : con.Open() : com.CommandText = "delete from guestbook where 標題 =" & : dg.DataKeys(e.Item.ItemIndex) : com.ExecuteNonQuery() : con.Close() : data() : End Sub 我把上面那段改成 Protected Sub dg_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg.DeleteCommand Dim con As OleDbConnection Dim com As OleDbCommand Dim sqlstr As String Dim provider = "provider=microsoft.jet.oledb.4.0" Dim database = "data source=" & Server.MapPath("db2.mdb") con = New OleDbConnection(provider & ";" & database) con.Open() sqlstr = "delete from guestbook where 標題 = '" & dg.DataKeys(e.Item.ItemIndex) & "'" com = New OleDbCommand(sqlstr, con) com.ExecuteNonQuery() con.Close() data() End Sub 結果可以刪了 可是會同時刪我按的那筆和它的下一筆資料 如果想刪最下面的一筆就會發生問題這樣! 這樣的話要怎麼辦┬︿┬? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.121.111.61