Visual Basic - ayuda con error en registro de nuevo usuario

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con error en registro de nuevo usuario

Publicado por principiante.exe (3 intervenciones) el 31/10/2010 01:06:38
tengo el siguiente codigo en un commandbutton

Set Recor = Conex.Execute("SELECT Usuarios.usuario FROM Usuarios WHERE Usuarios.usuario='" & Text1.Text & "' ;")
If Recor.Fields(0) = Text1.Text Then
MsgBox "Ya existe el nombre de usuario", vbCritical, "Atencion"
Else
Set Recor = Conex.Execute("SELECT Usuarios.IDusuario FROM Usuarios WHERE Usuarios.IDusuario='" & Text3.Text & "' ;")
If Recor.Fields(2) = Text3.Text Then
MsgBox "Ya existe el ID de usuario", vbCritical, "Atencion"
Else
Set Recor = Conex.Execute(" INSERT INTO `usuarios` ( `usuario` , `contraseña` , `IDusuario` )VALUES ('" & Text1.Text & "','" & Text2.Text & "'," & Text3.Text & ");")
End If
End If
End If

el problema es q si ingreso los datos mal (ya existe el nombre de usuario o la ID) salta al msgbox, pero si lo hago bien me da error
localice el error y agregue esto:

If Recor.EOF = True Then
MsgBox "Error", vbCritical, "Atencion"
Else

pero si doy datos correctos siempre salta error, me puden ayudar???
(estoy obligado a usar mysql)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con error en registro de nuevo usuario

Publicado por XHkrElite (518 intervenciones) el 31/10/2010 02:01:09
intentale asi:

Private Sub Command1_Click()
Set Recor = Conex.Execute("SELECT Usuarios.usuario FROM Usuarios WHERE Usuarios.usuario='" & text1.Text & "' ;")
If text1 = "" Then Exit Sub 'Si no hay nada escrito en el text1 detener proceso
If Recor.Fields(0) = text1.Text Then
MsgBox "Ya existe el nombre de usuario", vbCritical, "Atencion"
ElseIf Recor.Fields(0) <> text1.Text Then
Set Recor = Conex.Execute("SELECT Usuarios.IDusuario FROM Usuarios WHERE Usuarios.IDusuario='" & Text3.Text & "' ;")
End If

If Recor.Fields(2) = Text3.Text Then
MsgBox "Ya existe el ID de usuario", vbCritical, "Atencion"
ElseIf Recor.Fields(2) <> Text3.Text Then
Set Recor = Conex.Execute(" INSERT INTO `usuarios` ( `usuario` , `contraseña` , `IDusuario` )VALUES ('" & text1.Text & "','" & Text2.Text & "'," & Text3.Text & ");")
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con error en registro de nuevo usuario

Publicado por principiante.exe (3 intervenciones) el 31/10/2010 20:33:11
el error continua, bof o eof es true y muere ahi. Agradesco la respuesta, si os surge otra solucion porfa posteen.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con error en registro de nuevo usuario

Publicado por principiante.exe (3 intervenciones) el 31/10/2010 21:13:48
lo consegui por mi mismo . si a alguien le es de utilidad aqui esta:

Private Sub Command1_Click()
'consulta /casa/ para ver y luego insertar datos de un nuevo usuario.

Set Recor = Conex.Execute("SELECT Usuarios.usuario FROM Usuarios WHERE Usuarios.usuario='" & Text1.Text & "' ;")
If Recor.EOF = True Then
Set Recor = Conex.Execute("SELECT Usuarios.IDusuario FROM Usuarios WHERE Usuarios.IDusuario='" & Text3.Text & "' ;")
If Recor.EOF = True Then
Set Recor = Conex.Execute(" INSERT INTO `usuarios` ( `usuario` , `contraseña` , `IDusuario` )VALUES ('" & Text1.Text & "','" & Text2.Text & "'," & Text3.Text & ");")
MsgBox "Nuevo usuario agregado a la Base de Datos.", vbInformation, "Atencion"
End If
MsgBox "Ya existe el nombre de usuario o ID de usuario.", vbCritical, "Atencion"
Else
If Recor.Fields(0) = Text1.Text Then
MsgBox "Ya existe el nombre de usuario o ID de usuario.", vbCritical, "Atencion"
Else
If Recor.Fields(2) = Text3.Text Then

End If
End If
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar