
y este es el codigo de ese form:
Código:
alguien sabe que pasa? ya probe de todo, y sigue sin andar...Dim Cambio As Boolean
Dim nuevoU As New ADODB.Recordset
Private Sub Command1_Click()
If Cambio = True Then
With nuevoU
.ActiveConnection = Data
.Open ("Select * from users where user like'" & Usuar & "'")
End With
If (nuevoU.EOF = True) And (nuevoU.BOF = True) Then
If Contr = Contr2 Then
Data.Execute ("Insert Into Users ( User, Clave,Recordar) Values ( '" & Usuar & "', '" & Contr & "', 'False')")
nuevoU.Close
MsgBox "Usuario Creado"
Unload Me
Main.Show
Else
MsgBox "Las Contraseñas no coinciden"
nuevoU.Close
End If
Else
MsgBox "Ya existe el usuario"
nuevoU.Close
End If
Else
MsgBox "Debes introduir un nuevo usuario y contraseña"
End If
End Sub
Private Sub Command2_Click()
If nuevoU.State = 1 Then
nuevoU.Close
End If
Unload Me
Main.Show
End Sub
Private Sub Form_Load()
Cambio = False
End Sub
Private Sub Usuar_Change()
Cambio = True
End Sub
Muchas Gracias!
(Pato)²
No funcó eso...




