Hola a todos, alguien podria ayudarme???
Tengo un inconveniente para guardar datos en mysql desde visual basic 6, utilizo conexion DAO. El programa se detiene y me indica en la linea .Update, pero no detecto cual es el problema. Mi codigo es el siguiente:
Private Sub cmdguardar_Click()
With contrib
.AddNew
.Fields("con_nombre") = UCase(txtnombre.Text)
.Fields("con_apellido") = UCase(txtapellido.Text)
.Fields("con_ced_id") = Val(txtcedid.Text)
If txtrazonsoc.Text <> "" Then
.Fields("con_razon_social") = UCase(txtrazonsoc.Text)
Else
.Fields("con_razon_social") = ""
End If
If txtruc.Text <> "" Then
.Fields("con_ruc") = txtruc.Text
Else
.Fields("con_ruc") = ""
End If
If txtdireccion.Text <> "" Then
.Fields("con_direccion") = UCase(txtdireccion.Text)
End If
If cbosexo.ListIndex <> -1 Then
.Fields("con_sexo") = cbosexo.ItemData(cbosexo.ListIndex)
End If
If txttelefono.Text <> "" Then
.Fields("con_telefono") = txttelefono.Text
End If
If txtcelular.Text <> "" Then
.Fields("con_celular") = txtcelular.Text
End If
If txtfecnac.Text <> "" Then
.Fields("con_fec_nac") = Trim(txtfecnac.Text)
End If
If txtlugnac.Text <> "" Then
.Fields("con_lug_nac") = UCase(txtlugnac.Text)
End If
If txtemail.Text <> "" Then
.Fields("con_email") = LCase(txtemail.Text)
End If
If txtrmc.Text <> "" Then
.Fields("rmc") = Val(txtrmc.Text)
End If
If cbociudad.ListIndex <> -1 Then
.Fields("id_ciudad") = cbociudad.ItemData(cbociudad.ListIndex)
End If
If cbobarrio.ListIndex <> -1 Then
.Fields("id_barrio") = cbobarrio.ItemData(cbobarrio.ListIndex)
End If
If cbonacional.ListIndex <> -1 Then
.Fields("id_nacionalidad") = cbonacional.ItemData(cbonacional.ListIndex)
End If
If cboestado.ListIndex <> -1 Then
.Fields("id_estado_civil") = cboestado.ItemData(cboestado.ListIndex)
End If
If cboconcateg.ListIndex <> -1 Then
.Fields("id_categ") = cboconcateg.ItemData(cboconcateg.ListIndex)
End If
If cbogruposang.ListIndex <> -1 Then
.Fields("id_grupo_sang") = cbogruposang.ItemData(cbogruposang.ListIndex)
End If
.Update
End With
End Sub
