Cadena de conexión

IF InTestMode()=False THEN
 Server = "192.168.0.100"
ELSE
 Server = "192.168.0.101"
END
HDescribeConnection("HFSQL","admin","",Server,"NOM_BASE_DATOS",hAccessHFClientServer)
HOpenConnection("HFSQL")
HChangeConnection("*","HFSQL")

 

 

otro apunte

en mi caso, utilizo HFSQL

conBD is Connection
IF InTestMode() THEN
conBD..Provider = hAccessHFClientServer
conBD..User = "admin"
conBD..Password = "seiya"
conBD..Server = "localhost"
conBD..Database = "RefaccionariaWeb"
conBD..CryptMethod = hCryptNo
ELSE
conBD..Provider = hAccessHFClientServer
conBD..User = "admin"
conBD..Password = "leviatan"
conBD..Server = "18.189.13.14"
conBD..Database = "RefaccionariaWeb"
conBD..CryptMethod = hCryptNo
END
HChangeConnection("*", conBD)
HOpenConnection(conBD)