Volver a conectar BD daptive server Anywhere con PB. 9
Hola gran experto Carlos Charly, acudo ti porque veo que tu eres el que más responde creo yo, admiro tu capacidad, tu sencillez, ayudame con este problema que tengo hace año y medio, ya que lo he preguntado varias veces ya tiempo y no recibo respuesta, sabes tengo un pequeño aplicativo que hice en PB. 9 que se conecta a una BD de Adaptive server Anywhere 8. Sybase hasta ahí bien corre, pero cuando llevo mi aplicativo con mi Base de datos a otra pc que tiene PB. 9, tengo el problema como hago para volver a conectar esa BD, me he guiado con las BD ejemplo que viene con SQL Adaptive Anywhere ODBC: peat, EAS Demo DB V9, he visto sus propiedades y parámetros y he puesto a mi BD, para Crear mi DSN cuando estoy creando esta DSN con todos los parámetros le doy en el botón: Test connection para probar la conexión sale este error: Connection failed: Unable to start specified: I/0 error, he direccionado bien mi Base de datos, cree mi profile mi DSN con la BD Creada al ejecutar en PB. 9 sale el cuadro de dialogo: ODBC Configuration for Adaptive Server Anywhere 8, donde cree mi DSN y sus parámetros, y cuando doy en aceptar sale: SQLSTATE=08001 ... ODBC Driver () Unabled to connect to database server: Unable to start specified database: I/0 error... Experto como hago para volver a conectarlo sin tener que crear otra BD, o que hice mal o como hacerlo a través de un archivo .INI por favor, en mi aplicación tengo este script:
// Profile Comercio
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=Comerci;UID=dba;PWD=sql'"
Connect;
if sqlca.SQLCode<>0 then
MessageBox("Error de conexion"+&
String(sqlca.SQLCode),sqlca.SQLErrText)
Return
else
open(w_principal)
end if
Muchas gracias por tu ayuda Carlos te publicare como más grande de los epertos PB en mi ranking por tu humildad...
// Profile Comercio
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=Comerci;UID=dba;PWD=sql'"
Connect;
if sqlca.SQLCode<>0 then
MessageBox("Error de conexion"+&
String(sqlca.SQLCode),sqlca.SQLErrText)
Return
else
open(w_principal)
end if
Muchas gracias por tu ayuda Carlos te publicare como más grande de los epertos PB en mi ranking por tu humildad...
1 respuesta
Respuesta de carloscharly
1