Diseño de programa en visual

Cerrado
The deivid - 16 mar 2010 a las 18:23
 PRECIOSA - 20 abr 2010 a las 20:01
Qtal.., saludos.., estoy elaborando un programa en visual basic6.0.., ya todos los botones responden a la accion pero solo unop nop que es el de "Guardar"(Para q guarde la informacion en las tablas de acces...,) les agradeseria mucho su ayuda... quien tenga lo posibilidad de ayudarme rpndo el msj...!!! le puedo enviar el programa....

1 respuesta

SOLO TIENES QUE ESCRIBIR ESTO, TIENES QUE CAMBIAR EL NOMBRE DE TUS CAMPOS QUE TIENES DECLARADOS EN TU BD. Y EN TU FORMULARIO TIENES QUE TENER UN ADODC1 PARA QUE PUEDAS CONECTAR LA BD.

Private Sub Command1_Click()
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew

If Text1.Text = "" Then
MsgBox "FALTA CAMPO USUARIO"
ElseIf Text2.Text = "" Then
MsgBox "FALTA CAMPO CONTRASEÑA"
ElseIf Text3.Text = "" Then
MsgBox "FALTA CAMPO NOMBRE"
ElseIf Text4.Text = "" Then
MsgBox "TE FALTA TU APELLIDO PATERNO"
ElseIf Text5.Text = "" Then
MsgBox "TE FALTA TU APELLIDO MATERNO"
Else


Adodc1.Recordset.Fields("usuario") = UCase(Text1.Text)
Adodc1.Recordset.Fields("contraseña") = Text2.Text
Adodc1.Recordset.Fields("nombre") = Text3.Text
Adodc1.Recordset.Fields("ap-pterno") = Text4.Text
Adodc1.Recordset.Fields("ap-mterno") = Text5.Text

Adodc1.Recordset.Update

MsgBox "TUS REGISTROS SE HAN GUARDADO"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""

End If
0