| Urgente: Actualizar un registro
Hola expertos, estoy haciendo una pantalla en vb 2008 y necesito actualizar un registro de la base de datos que esta en access pero no se como hacerlo, les muestro el código que tengo y me dicen que error hay ó que me falta.
Gracias por su ayuda.
Dim s_dt As New DataTable
'Se almacena la información en la tabla Datos
Try
gsa_cnn.ConnectionString = gsa_conexion
gs_Consulta = "Select * from Datos where Codigo = '" & Me.txt_codigo.Text & "'"
'Abro la conexión
gsa_cnn.Open()
gsa_da = New OleDb.OleDbDataAdapter(gs_Consulta, gsa_cnn)
gsa_da.Fill(s_dt)
'gsa_cnn.Close()
If s_dt.Rows.Count = 0 Then
gsa_cnn.ConnectionString = gsa_conexion
gs_Consulta = "Insert INTO Datos (Codigo,Nombre,Domicilio," & _
"Colonia,Delegacion,CP,Ciudad," & _
"Estado,RFC,CURP,Nota,Telefono1," & _
"Telefono2,Movil,Nombre_comercial)" & _
" values ('" & Me.txt_codigo.Text & "','" & Me.txt_nombre.Text & "','" & Me.txt_cyn.Text & "','" & _
Me.txt_colonia.Text & "','" & Me.txt_deleg.Text & "','" & Me.txt_cp.Text & "','" & _
Me.txt_ciudad.Text & "','" & Me.cbo_estado.Text & "', '" & Me.txt_rfc.Text & "','" & _
Me.txt_curp.Text & "','" & Me.txt_notas.Text & "','" & Me.txt_tel1.Text & "','" & _
Me.txt_tel2.Text & "','" & Me.txt_movil.Text & "','" & Me.txt_ncomercial.Text & "')"
'Abro la conexión
'gsa_cnn.Open()
'gsa_da = New OleDb.OleDbDataAdapter(gs_Consulta, gsa_cnn)
'gsa_da.Fill(s_dt)
gsa_cnn.Close()
MsgBox("La información ha sido Guardada", MsgBoxStyle.Information, Me.Name)
Call Limpiar()
Else
'Actualiza la información
gs_Consulta = "Update Datos set" & _
"Codigo = " & CStr(Me.txt_codigo.Text) & _
", Nombre = " & CStr(Me.txt_nombre.Text) & _
", Domicilio = " & CStr(Me.txt_cyn.Text) & _
", Colonia = " & CStr(Me.txt_colonia.Text) & _
", Delegacion = " & CStr(Me.txt_deleg.Text) & _
", CP = " & CStr(Me.txt_cp.Text) & _
", Ciudad = " & CStr(Me.txt_ciudad.Text) & _
", Estado = " & CStr(Me.cbo_estado.Text) & _
", RFC = " & CStr(Me.txt_rfc.Text) & _
", CURP = " & CStr(Me.txt_curp.Text) & _
", Nota = " & CStr(Me.txt_notas.Text) & _
", Telefono1 = " & CStr(Me.txt_tel1.Text) & _
", Telefono2 = " & CStr(Me.txt_tel2.Text) & _
", Movil = " & CStr(Me.txt_movil.Text) & _
", Nombre_comercial = " & CStr(Me.txt_ncomercial.Text) & "'"
'gsa_da = New OleDb.OleDbDataAdapter(gs_Consulta, gsa_cnn)
gsa_da.Update(s_dt).ToString()
gsa_cnn.Close()
End If
Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.Information, Me.Name)
End Try |