problemas para actualizar datos Que tal? Buenas tardes, agradeceria quien pudiera guiarme frente al siguiente inconveniente, no tengo mucha experiencia, este es mi segundo proyecto; mi intención es mostrar a traves de un listview datos que busco por apellido en una base en access, tambien quiero actualizar informacion pero solamente de un registro en un campo a traves de un textbox ( por ejemplo de una persona el campo observacion), el problema es que cuando actulizo no solo actualiza todos los registros que muestra el listview, sino que borra la informacion que coloque anteriormente, y solo deja la nueva que cargue con el Textbox, no logro darme cuenta que estoy haciendo mal, nuevamente agradeceria a quien pudiera guiarme. Saludos y Gracias
Private Sub FrmConsultapacientes_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0; "
dbSource = "Data Source = C:\Pacientes.mdb"
con.ConnectionString = dbProvider & dbSource
End Sub
Private Sub BtBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtBuscar.Click
If TxtApellido.Text = "" Then
MessageBox.Show("Ingrese un Codigo,Apellido y Nombre del Paciente")
Else
con.Open()
Dim Listar As New OleDbCommand
Listar.Connection = con
Listar.CommandType = CommandType.Text
Listar.CommandText = "Select * FROM Paciente WHERE [Apellido] = @apellido"
Listar.Parameters.AddWithValue("@apellido", TxtApellido.Text)
Dim Lector As OleDbDataReader
Lector = Listar.ExecuteReader
Do While Lector.Read
Dim MITem As ListViewItem
MITem = LstConsulta.Items.Add(Lector("CodPaciente"))
MITem.SubItems.Add(Lector("Apellido"))
MITem.SubItems.Add(Lector("Nombre"))
MITem.SubItems.Add(Lector("Edad"))
MITem.SubItems.Add(Lector("Hta"))
MITem.SubItems.Add(Lector("Dbt"))
MITem.SubItems.Add(Lector("Alergias"))
MITem.SubItems.Add(Lector("Epoc"))
MITem.SubItems.Add(Lector("Cirugias"))
MITem.SubItems.Add(Lector("Hijos"))
MITem.SubItems.Add(Lector("Otrosantecedentes"))
MITem.SubItems.Add(Lector("Observacion"))
Loop
Lector.Close()
End If
con.Close()
End Sub
Private Sub BtGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtGuardar.Click
If LstConsulta.SelectedItems(0).Text Then
con.Open()
Dim Actualizar As New OleDbCommand
Actualizar.Connection = con
Actualizar.CommandType = CommandType.Text
Actualizar.CommandText = "Update Paciente set Observacion = '" & TxtObservacion.Text & "'"
Actualizar.ExecuteNonQuery()
End If
con.Close()
End Sub
End Class
