Urgente: Actualizar un registro

[alejimram_22]

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

[rikimm]

Te falta el codigo sql del upadte que sera mas o menos haci "update * from tabla y pones los campos y donde estas tomado esos campos where id o d donde va a actualizar"

seria asi :

Código C#:

Sql = "UPDATE [Cliente] SET [nombre] = '" + textBox2.Text + "', apellido = '" + textBox3.Text + "' , telefono=" + textBox5.Text + ", direccion='" + textBox4.Text + "', mail='" + textBox6.Text + "', mascota='" + textBox7.Text + "', raza='" + textBox8.Text + "', color='" + textBox9.Text + "', señas='" + richTextBox1.Text + "', M='" + radioButton1.Checked + "', F='" + radioButton2.Checked + "', edad='" + comboBox1.Text + "' WHERE [Id2] ='" + comboBox2.Text + "' ;";
 

lo puse en c#porque es lo que estoy ocupando pero es lo mismo en vb saludos

[neo101]

saludos, pues mira... yo no sé si sea el efecto del foro pero aqui:

'Actualiza la información
gs_Consulta = "Update Datos set" & _
"Codigo = " & CStr(Me.txt_codigo.Text) & _

donde señalo en negrita; quizá te falte un espacio pero no sé si te marque error o q onda... para mi; la instruccion queda asi: "Update datos setCodigo = '<tucodigo>'..."

Espero haberte ayudado, saludos...

Aparte, como consejo; ¿porque no utilizas un Commandbiulder y una sola conexion parra que automatizes tus operaciones SQL? Te dejo un enlace para que lo cheques...

Generar Comandos con SQLCommandBuilder