| Respuesta: boton guardar, eliminir y actualizar en visua 2012
lo que deseo es que cuando quiero crear un paciente modificar otro paciente y borrar un tercero el problema es que solo me deja hacer un solo procedimiento si al ejecutar el programa primero creo un paciente ya no me deja ni borrar otro paciente ni modificar otro y tampoco me deja crear un nuevo paciente solo me sale el error de
REFERENCIA A OBJETO NO ESTABLECIDA COMO INSTANCIA DE UN OBJETO y de ahi no puedo hacer nada tengo que cerrar y volver a ejecutar el programa este es el codigo de todo el formulario:
Imports System.Data.SqlClient
Public Class Form1
Dim conexion As New SqlConnection("Data Source=ASHLEY;Initial Catalog=BARRAQUEL;Integrated Security=True")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'BARRAQUELDataSet.CLIENTES' Puede moverla o quitarla según sea necesario.
Me.CLIENTESTableAdapter.Fill(Me.BARRAQUELDataSet.C LIENTES)
mostrargrid()
Limpiar()
End Sub
Sub mostrargrid()
Dim da As New SqlDataAdapter("select * from CLIENTES", conexion)
Dim ds As New DataSet()
conexion.Open()
da.Fill(ds, "CLIENTES")
conexion.Close()
Form2.CLIENTESDataGridView.DataSource = ds.Tables("CLIENTES")
End Sub
Sub Limpiar()
CODIGO_CLIENTESTextBox.Text = ""
CI_DEL_CLIENTETextBox.Text = ""
FECHADateTimePicker.Text = ""
NOMBRETextBox.Text = ""
APELLIDOSTextBox.Text = ""
DIRECCIONTextBox.Text = ""
TELEFONOMaskedTextBox.Text = ""
CELULARMaskedTextBox.Text = ""
PROFESIONTextBox.Text = ""
EDADTextBox.Text = ""
SEXOComboBox.Text = ""
CORREO_ELECTRONICOTextBox.Text = ""
OD_ESFERATextBox.Text = ""
OD_CILINDROTextBox.Text = ""
OD_EJETextBox.Text = ""
OD_PRISMATextBox.Text = ""
OD_ADICCIONTextBox.Text = ""
OI_ESFERATextBox.Text = ""
OI_CILINDROTextBox.Text = ""
OI_EJETextBox.Text = ""
OI_PRISMATextBox.Text = ""
OI_ADICCIONTextBox.Text = ""
DPTextBox.Text = ""
ALTTextBox.Text = ""
OBSERVACION_CLIENTETextBox.Text = ""
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
Try
conexion.Open()
Using cmd As New SqlCommand()
cmd.Connection = conexion
cmd.CommandText = "insert 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)
cmd.ExecuteNonQuery()
MessageBox.Show("GUARDADO CON EXITO")
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
Limpiar()
mostrargrid()
End Try
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Try
conexion.Open()
Using cmd As New SqlCommand()
cmd.Connection = conexion
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)
cmd.ExecuteNonQuery()
MessageBox.Show("ACTUALIZADO CORRECTAMENTE")
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
mostrargrid()
Limpiar()
End Try
end sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Try
conexion.Open()
Using cmd As New SqlCommand()
cmd.Connection = conexion
cmd.CommandText = "delete from CLIENTES WHERE CODIGO_CLIENTES= @CODIGO_CLIENTES"
cmd.ExecuteNonQuery()
MessageBox.Show("ELIMINADO CORRECTAMENTE")
mostrargrid()
Limpiar()
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub |