boton guardar, eliminir y actualizar en visua 2012

[lilianamaite01]

Hola espero puedan ayudarme estoy haciendo un proyecto en visual studio 2012 y tengo un problema al guardar, actualizar y eliminar un paciente en una sola ejecución.

Ocurre que los botones para cada función los tengo con los códigos que hacen ese trabajo...

Pero guardo un paciente y a lo que quiero modificar o eliminar otro paciente me dice REFERENCIA A OBJETO NO ESTABLECIDA COMO INSTANCIA DE UN OBJETO

Ejecuto el programa primero guardo un paciente se me guarda con éxito; a lo que voy al formulario donde tengo un datagrib con los pacientes creados doy click a una fila se me abre el formulario con los datos llenos del paciente seleccionado y doy al boton eliminar y me da el error mencionado;

lo mismo pasa si modifico los datos y doy click en botón modificar me da el mismo error..

Los códigos aparentemente están bien porque hice 3 ejecuciones y en la primera ejecución guarde satisfactoriamente, en la segunda ejecución elimine con éxito y en la tercera ejecución actualice correctamente.

COMO HAGO PARA REALIZAR LAS TRES OPERACIONES EN UNA SOLA EJECUCION????????

este codigo me dijeron que utilice pero me da este error

a lo que quiero guardar, actualizar o eliminar a un paciente me sale error EXECUTENONQUERY: LA PROPIEDAD CONNECTION NO SE A INICIALIZADO no se a que se refiere ese error....


Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click

Try
Using cmd As New SqlCommand()
cmd.CommandText = "inset into CLIENTES CODIGO_CLIENTES=@CODIGO_CLIENTES,CI_DEL_CLIENTE= @CI_DEL_CLIENTE,FECHA= @FECHA,NOMBRE= @NOMBRE,APELLIDOS= @APELLIDOS,DIRECCION= @DIRECCION,EDAD= @EDAD,SEXO= @SEXO,PROFESION=@PROFESION,TELEFONO=@TELEFONO,CELU LAR=@CELULAR,CORREO_ELECTRONICO= @CORREO_ELECTRONICO,OD_ESFERA=@OD_ESFERA,OD_CILIND RO=@OD_CILINDRO,OD_EJE= @OD_EJE,OD_PRISMA=@OD_PRISMA,OD_ADICCION=@OD_ADICC ION,OI_ESFERA=@OI_ESFERA,OI_CILINDRO=@OI_CILINDRO, OI_EJE=@OI_EJE,OI_PRISMA=@OI_PRISMA,OI_ADICCION=@O I_ADICCION,DP=@DP,ALT=@ALT, OBSERVACION_CLIENTE= @OBSERVACION_CLIENTE"

cmd.Parameters.AddWithValue("@CODIGO_CLIENTES", CODIGO_CLIENTESTextBox.Text)
cmd.Parameters.AddWithValue("@CI_DEL_CLIENTE", CI_DEL_CLIENTETextBox.Text)
cmd.Parameters.AddWithValue("@FECHA", FECHADateTimePicker.Text)
cmd.Parameters.AddWithValue("@NOMBRE", NOMBRETextBox.Text)
cmd.Parameters.AddWithValue("@APELLIDOS", APELLIDOSTextBox.Text)
cmd.Parameters.AddWithValue("@DIRECCION", DIRECCIONTextBox.Text)
cmd.Parameters.AddWithValue("@EDAD", EDADTextBox.Text)
cmd.Parameters.AddWithValue("@PROFESION", PROFESIONTextBox.Text)
cmd.Parameters.AddWithValue("@SEXO", SEXOComboBox.Text)
cmd.Parameters.AddWithValue("@TELEFONO", TELEFONOMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CELULAR", CELULARMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CORREO_ELECTRONICO", CORREO_ELECTRONICOTextBox.Text)
cmd.Parameters.AddWithValue("@OD_ESFERA", OD_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OD_CILINDRO", OD_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OD_EJE", OD_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OD_PRISMA", OD_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OD_ADICCION", OD_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@OI_ESFERA", OI_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OI_CILINDRO", OI_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OI_EJE", OI_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OI_PRISMA", OI_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OI_ADICCION", OI_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@DP", DPTextBox.Text)
cmd.Parameters.AddWithValue("@ALT", ALTTextBox.Text)
cmd.Parameters.AddWithValue("@OBSERVACION_CLIENTE" , OBSERVACION_CLIENTETextBox.Text)

conexion.Open()
cmd.ExecuteNonQuery()
conexion.Close()
MessageBox.Show("GUARDADO CON EXITO")
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
'mostrargrid()
Limpiar()
If (Not IsNothing(conexion)) Then
conexion.Close()
conexion = Nothing
End If
End Try

End Sub

Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click

Try
Using cmd As New SqlCommand()
cmd.CommandText = "update CLIENTES set CODIGO_CLIENTES=@CODIGO_CLIENTES,CI_DEL_CLIENTE= @CI_DEL_CLIENTE,FECHA= @FECHA,NOMBRE= @NOMBRE,APELLIDOS= @APELLIDOS,DIRECCION= @DIRECCION,EDAD= @EDAD,SEXO= @SEXO,PROFESION=@PROFESION,TELEFONO=@TELEFONO,CELU LAR=@CELULAR,CORREO_ELECTRONICO= @CORREO_ELECTRONICO,OD_ESFERA=@OD_ESFERA,OD_CILIND RO=@OD_CILINDRO,OD_EJE= @OD_EJE,OD_PRISMA=@OD_PRISMA,OD_ADICCION=@OD_ADICC ION,OI_ESFERA=@OI_ESFERA,OI_CILINDRO=@OI_CILINDRO, OI_EJE=@OI_EJE,OI_PRISMA=@OI_PRISMA,OI_ADICCION=@O I_ADICCION,DP=@DP,ALT=@ALT, OBSERVACION_CLIENTE= @OBSERVACION_CLIENTE WHERE CODIGO_CLIENTES= @CODIGO_CLIENTES"

cmd.Parameters.AddWithValue("@CODIGO_CLIENTES", CODIGO_CLIENTESTextBox.Text)
cmd.Parameters.AddWithValue("@CI_DEL_CLIENTE", CI_DEL_CLIENTETextBox.Text)
cmd.Parameters.AddWithValue("@FECHA", FECHADateTimePicker.Text)
cmd.Parameters.AddWithValue("@NOMBRE", NOMBRETextBox.Text)
cmd.Parameters.AddWithValue("@APELLIDOS", APELLIDOSTextBox.Text)
cmd.Parameters.AddWithValue("@DIRECCION", DIRECCIONTextBox.Text)
cmd.Parameters.AddWithValue("@EDAD", EDADTextBox.Text)
cmd.Parameters.AddWithValue("@PROFESION", PROFESIONTextBox.Text)
cmd.Parameters.AddWithValue("@SEXO", SEXOComboBox.Text)
cmd.Parameters.AddWithValue("@TELEFONO", TELEFONOMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CELULAR", CELULARMaskedTextBox.Text)
cmd.Parameters.AddWithValue("@CORREO_ELECTRONICO", CORREO_ELECTRONICOTextBox.Text)
cmd.Parameters.AddWithValue("@OD_ESFERA", OD_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OD_CILINDRO", OD_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OD_EJE", OD_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OD_PRISMA", OD_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OD_ADICCION", OD_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@OI_ESFERA", OI_ESFERATextBox.Text)
cmd.Parameters.AddWithValue("@OI_CILINDRO", OI_CILINDROTextBox.Text)
cmd.Parameters.AddWithValue("@OI_EJE", OI_EJETextBox.Text)
cmd.Parameters.AddWithValue("@OI_PRISMA", OI_PRISMATextBox.Text)
cmd.Parameters.AddWithValue("@OI_ADICCION", OI_ADICCIONTextBox.Text)
cmd.Parameters.AddWithValue("@DP", DPTextBox.Text)
cmd.Parameters.AddWithValue("@ALT", ALTTextBox.Text)
cmd.Parameters.AddWithValue("@OBSERVACION_CLIENTE" , OBSERVACION_CLIENTETextBox.Text)

conexion.Open()
cmd.ExecuteNonQuery()
conexion.Close()
MessageBox.Show("ACTUALIZADO CORRECTAMENTE")
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
'mostrargrid()
Limpiar()
If (Not IsNothing(conexion)) Then
conexion.Close()
conexion = Nothing
End If
End Try


End Sub

Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click

Try

Using cmd As New SqlCommand()
cmd.CommandText = "delete * from CLIENTES WHERE CODIGO_CLIENTES= @CODIGO_CLIENTES"

conexion.Open()
cmd.ExecuteNonQuery()
conexion.Close()
MessageBox.Show("ELIMINADO CORRECTAMENTE")

End Using

Catch ex As Exception
MessageBox.Show(ex.Message)

If (Not IsNothing(conexion)) Then
conexion.Close()
conexion = Nothing
End If
End Try

End Sub

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

Form2.Show()
Me.Hide()
Limpiar()

End Sub
End Class