Consulta también:
- Diseño de programa en visual
- Crocodile programa - Programas - Educación
- Diseño de impresion word - Guide
- Everest programa - Programas - Monitorización y diagnóstico
- Descargar torrent online sin programa - Guide
- Cheats pokemon rojo fuego visual boy advance - Guide
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
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