ASP.NET - Ayuda delete

 
Vista:

Ayuda delete

Publicado por HAF (138 intervenciones) el 11/05/2006 12:25:18
Saludos,

Tengo una tabla en access y puedo hacer consultas con senencias sql pero al momento de eliminar siempre me da un error.

La tabla de LLama Jack el campo se llama ip de tipo texto

lo hago de la siguente manera:
STRSQL = "DELETE FROM jack WHERE IP = '" & TXTIP.Text & "' "
cmd = New OleDbDataAdapter(STRSQL, cnn)
dt = New DataTable
cmd.Fill(dt)

el error es el siguiente :

No se pudo eliminar nada en las tablas especificadas.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.Data.OleDb.OleDbException: No se pudo eliminar nada en las tablas especificadas.

Error de código fuente:

Línea 159: cmd = New OleDbDataAdapter(STRSQL, cnn)
Línea 160: ' dt = New DataTable
Línea 161: cmd.Fill(dt)
Línea 162:
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda delete

Publicado por josu (89 intervenciones) el 15/05/2006 12:55:22
hola, creo que lo que pones despues del comando
cmd = New OleDbDataAdapter(STRSQL, cnn)
o eso creo yo aun soy bastante novato en esto pero te voy a poner un ejemplo que tengo yo que a mi me funciona y espero que te sirva:

Private Sub D_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim oConn As New OleDb.OleDbConnection
Dim oCmd As New OleDb.OleDbCommand
Dim oDa As New OleDb.OleDbDataAdapter
Dim destino As String

destino = "C:\Inetpub\wwwroot\kk\identifikazioa.mdb"
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destino
oCmd.CommandText = "DELETE FROM Tabla1 WHERE (usuario = @USUARIO and contraseña = @CONTRASEÑA)"
oCmd.Parameters.Add(New OleDb.OleDbParameter("@usuario", SqlDbType.Text))
oCmd.Parameters.Add(New OleDb.OleDbParameter("@contraseña", SqlDbType.Text))
oCmd.Parameters("@usuario").Value = TextBox1.Text
oCmd.Parameters("@contraseña").Value = TextBox2.Text
Try
oCmd.Connection = oConn
oDa.SelectCommand = oCmd
oConn.Open()
oCmd.ExecuteNonQuery()
Catch ex As Exception
TextBox1.Text = "esto es un asko"
End Try
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

espero haberte echau una mano un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar