高手请帮忙！！！

[guoyan19811021]

那里有错误？怎么删除不执行？
Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand

Dim dr As DataRow
Dim item As String
Dim cmd As OleDbCommand

Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\oa\db\db.mdb")

Try

conn.Open()
item = DataGrid1.DataKeys(e.Item.ItemIndex).ToString
cmd = New OleDbCommand("delete from Members where username=' " & item & " '", conn)
cmd.ExecuteNonQuery()
Label5.Text = item
TextBox1.Text = item

Catch edelete As Exception

Response.Write(edelete.Message)

Finally

conn.Close()

End Try


Dim objConn As New OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=db.mdb")

'open connection
Dim objCmd As New OleDb.OleDbDataAdapter _
("select * from Members", objConn)
objConn.Open()
'fill dataset
Dim dst As DataSet = New DataSet()
dst.Clear()
objCmd.Fill(dst)
DataGrid1.DataSource = (dst)
DataGrid1.DataBind()
objConn.Close()

End Sub

[ttod_qzstudio]

输出一下item，看是否能取到值？

[jlhdlj]

UP

[timmy3310]

Page_Load的代码贴出来

[liuyong_lll]

你的SQL语句是不是存在问题的？把代码贴出来看看

[guoyan19811021]

item可以取到正确的值
form_load
If Not IsPostBack Then
Dim objConn As New OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=db.mdb")

'open connection
Dim objCmd As New OleDb.OleDbDataAdapter _
("select * from Members", objConn)

'fill dataset
Dim ds As DataSet = New DataSet()
objCmd.Fill(ds)
DataGrid1.DataSource = (ds)
DataGrid1.DataBind()
End If

[timmy3310]

"delete from Members where username=' " & item & " '"
改成：
"delete from Members where username='" & item & "'"

前后各多了一个空格

[guoyan19811021]

谢谢