Test

Variable Global que luego se pone en el owner de cada tabla:

[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...