no puedo conectarme en la 3ra ves
Publicado por emersonmadrid (1 intervención) el 30/08/2006 21:08:45
ahi va esto me esta matando en la tercera vez que ingraso un usario y pass erroneo me sale sqlcode -1 por que pasa eso en la 3ra ves que intento conectarme
///*eme*/
sqlca = create uo_trans
SetPointer(HourGlass!)
double sqlcacode
//if NOT vg_conectado then
is_nomruta = wf_obtiene_ruta()
SQLCA.DBMS = ProfileString(is_nomruta,'SQLCA_PAL','DBMS',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogId = ProfileString(is_nomruta,'SQLCA_PAL','LogID',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogPass = ProfileString(is_nomruta,'SQLCA_PAL','LogPass',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.ServerName = ProfileString(is_nomruta,'SQLCA_PAL','ServerName',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.Database = ProfileString(is_nomruta,'SQLCA_PAL','Database',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
CONNECT;
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
IF SQLCA.SQLCODE <> 0 THEN
messagebox('SQLCA',"Falló la conexión a la base de datos del sistema. Reintente " +&
"más tarde", StopSign!)
Halt
else
vg_conectado = TRUE
end if
///* Construimos nombre de usuario */
//vg_usuario = f_nombrecompleto (vg_apellidopaterno, vg_apellidomaterno, vg_nombres)
//
//DESTROY vl_encriptador
//DESTROY vl_cryptoAPI
//
///* Registramos información del usuario */
////f_clientinfo (Lower (vg_nombrecortosistema + "_" + vg_login), SQLCA)
//
//Close (w_conexion)
//
/*eme*/
DataStore Ds
long count
Ds = Create DataStore
Ds.dataObject = "d_usuario_mantenimiento"
Ds.setTransObject(SQLCA)
Ds.retrieve()
count = Ds.rowcount()
messagebox("count",count)
Integer Found
Found = Ds.find("IdUsuario ='" + Trim(sle_codigo.text) + "'",1,Ds.rowcount())
//messagebox("x",found)
If Found > 0 Then
If Trim(Sle_Clave.Text) = Ds.object.clave[Found] Then
gs_usuario = sle_codigo.text
Open(w_main)
f_opcionesusuario(Trim(sle_codigo.text))
Destroy(Ds)
Close (Parent)
Else
MessageBox ("Error","La clave es incorrecta. Intente de nuevo",exclamation!)
End If
Else
MessageBox ("Error","No se ha encontrado el usuario",exclamation!)
End If
Destroy(Ds)
///*eme*/
sqlca = create uo_trans
SetPointer(HourGlass!)
double sqlcacode
//if NOT vg_conectado then
is_nomruta = wf_obtiene_ruta()
SQLCA.DBMS = ProfileString(is_nomruta,'SQLCA_PAL','DBMS',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogId = ProfileString(is_nomruta,'SQLCA_PAL','LogID',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogPass = ProfileString(is_nomruta,'SQLCA_PAL','LogPass',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.ServerName = ProfileString(is_nomruta,'SQLCA_PAL','ServerName',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.Database = ProfileString(is_nomruta,'SQLCA_PAL','Database',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
CONNECT;
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
IF SQLCA.SQLCODE <> 0 THEN
messagebox('SQLCA',"Falló la conexión a la base de datos del sistema. Reintente " +&
"más tarde", StopSign!)
Halt
else
vg_conectado = TRUE
end if
///* Construimos nombre de usuario */
//vg_usuario = f_nombrecompleto (vg_apellidopaterno, vg_apellidomaterno, vg_nombres)
//
//DESTROY vl_encriptador
//DESTROY vl_cryptoAPI
//
///* Registramos información del usuario */
////f_clientinfo (Lower (vg_nombrecortosistema + "_" + vg_login), SQLCA)
//
//Close (w_conexion)
//
/*eme*/
DataStore Ds
long count
Ds = Create DataStore
Ds.dataObject = "d_usuario_mantenimiento"
Ds.setTransObject(SQLCA)
Ds.retrieve()
count = Ds.rowcount()
messagebox("count",count)
Integer Found
Found = Ds.find("IdUsuario ='" + Trim(sle_codigo.text) + "'",1,Ds.rowcount())
//messagebox("x",found)
If Found > 0 Then
If Trim(Sle_Clave.Text) = Ds.object.clave[Found] Then
gs_usuario = sle_codigo.text
Open(w_main)
f_opcionesusuario(Trim(sle_codigo.text))
Destroy(Ds)
Close (Parent)
Else
MessageBox ("Error","La clave es incorrecta. Intente de nuevo",exclamation!)
End If
Else
MessageBox ("Error","No se ha encontrado el usuario",exclamation!)
End If
Destroy(Ds)
Valora esta pregunta
0