Test
[pic]
Las tablas deben tener la siguiente forma :
[pic]
En Global.
Global Data:
SQLOpenWindowWINDOW('Inicialización de la base de datos'),AT(,,255,30),FONT('MS Sans Serif',8,,FONT:regular),CENTER,GRAY,DOUBLE
STRING('Este proceso podría tomar varios segundos ...'),AT(27,12)IMAGE(Icon:Connect),AT(4,4,23,17)
STRING('Por favor espere mientras el programa se conecta a la base de datos.'),AT(27,3)
END
Enprogram setup:
LOCALE('CLABUTTON','&Aceptar,&Si,&No,A&bortar,&Reintentar,&Ignorar,&Cancelar,&Ayuda')
!Conexión a la base.
!El cursar del mouse con el reloj de arena.
SETCURSOR(Cursor:Wait)!Abro la ventana 'estetica' que se creo en "Global Data"
OPEN(SQLOpenWindow)
!Si se logra abrir la ventana intento conectar !
ACCEPT
IF EVENT() = Event:OpenWindow
!para que no muestre laventana de conexion del motor default
SQL{PROP:LogonScreen}=False
!Traigo del archivo ini el ConnectionString (".\" es para decirle que el ini esta en el dire de la app.)
!La variable"GLO:SQLOwner" es usada en el Owner de cada tabla del dct de Clarion
GLO:SQLOwner = GETINI('test','ConexionBase',,'.\conexion.ini')
OPEN(SQL)
IF ERRORCODE()
Message('Error de conexión :|Código deerror : '&ERRORCODE()&','&' Descipción del error : '&FILEERROR(),'Error de acceso a base de datos !',Icon:Hand,'&Aceptar')
RETURN
ELSE
CLOSE(SQL) !Este CLOSE NO cierra la conexión.
END!IF!Si todo está bien a estas alturas ya estás conectada con la BD.
POST(EVENT:CloseWindow)
END
END
CLOSE(SQLOpenWindow)
SETCURSOR()
El archivo ini se llama "Conexion.ini"
Sucontenido:
[test]
Nombre de la pc server DB User Pass
ConexionBase = 'servidor;DATABASE=base;USER=tttt; password=3333;'
Driver...
Regístrate para leer el documento completo.