Ver Mensaje Individual
  #3 (permalink)  
Antiguo 06/10/2006, 10:09
eduardo90
(Desactivado)
 
Fecha de Ingreso: julio-2006
Mensajes: 273
Antigüedad: 17 años, 9 meses
Puntos: 5
Pregunta Ayuda desesperada 2

Imports System.Data.SqlClient

Public Class Form1

Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDataAdapter As SqlDataAdapter


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Crea una nueva conección
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=Inventario;uid=sa;pwd =;"

'Crea un Adaptador
oDataAdapter = New SqlDataAdapter()

'CREA COMANDOS PARA LA INSERCIÓN

Dim oCmdInsercion As New SqlCommand("DELETE * FROM Persona" & _
"(Nombre,Apellido,Edad) VALUES(@Nombre,@Apellido,@Edad)", oConexion)

oDataAdapter.DeleteCommand = oCmdInsercion
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Nombre", SqlDbType.NVarChar))
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Apellido", SqlDbType.NVarChar))
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Edad", SqlDbType.NVarChar))

'CREA COMANDOS PARA LA ELIMINACIÓN


'Crea la consulta y lo asigna al adaptador
Dim oCmdConsulta As New SqlCommand("SELECT * FROM Persona", oConexion)

oDataAdapter.SelectCommand = oCmdConsulta

'Crea un conjunto de datos
oDataSet = New DataSet()
Me.CargaDatos()
End Sub

Private Sub CargaDatos()
oDataSet.Clear()

oConexion.Open()
oDataAdapter.Fill(oDataSet, "Persona")
oConexion.Close()

Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Persona"
End Sub

Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
Dim Resultado As Integer

oDataAdapter.DeleteCommand.Parameters("@Nombre").V alue = Me.txtNombre.Text
oDataAdapter.DeleteCommand.Parameters("@Apellido") .Value = Me.txtApellido.Text
oDataAdapter.DeleteCommand.Parameters("@Edad").Val ue = Me.txtEdad.Text

oConexion.Open()
Resultado = oDataAdapter.DeleteCommand.ExecuteNonQuery()
oConexion.Close()

Me.CargaDatos()

MsgBox("REGISTRO BORRADO")
End Sub

y me dá el siguiente error

Line 1: Incorrect syntax near '*'. ¿Que diablos es eso?