Saer040375
Apr 7th, 2000, 05:42 AM
HY Everybody!, I'm interacting with .dbf tables and .mdb.
So, I decided to use ODBC, it worked fine in WIN 95, 'till
I use WIN 98, guess it could be the ODBC32, it seems to be a diferent configuration, but I'm not sure about it. Hope anyone could help, today is friday 04/07/2000 I have to release it next monday.
THIS IS WHERE I DO DE OBJECT CONNECTION
Set ws = Workspaces(0)
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", _ "", dbUseODBC
set conPPay = wrkODBC.OpenConnection("Connection1", , ,"ODBC;DATABASE=;UID=;PWD=;DSN=dsnPPay")
Set conSw = wrkODBC.OpenConnection("Connection2", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnSw")
Set conAP = wrkODBC.OpenConnection("Connection3", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnAP")
Set conHis = wrkODBC.OpenConnection("Connection4", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnHis")
Set conPen = wrkODBC.OpenConnection("Connection5", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnPteAc")
THIS IS WHERE I ASK FOR THE CONNECTION
Set rsActiva = conPPay.OpenRecordset(cSQL, dbOpenDynaset)
If Not rsActiva.EOF Then
rsActiva.MoveLast ' BUSQUEDA EN J:\DB_IVR2\PPAS
BuscarActiva = 0
scad = rsActiva!Tele3 & Space(5) & rsActiva!fecha3 & Space(5) & rsActiva!cotra3
aRespuesta(0, 0) = rsActiva!Tele3:
aRespuesta(0, 1) = "" & rsActiva!fecha3
aRespuesta(0, 2) = "" & rsActiva!hora3:
.....etc.
So, I decided to use ODBC, it worked fine in WIN 95, 'till
I use WIN 98, guess it could be the ODBC32, it seems to be a diferent configuration, but I'm not sure about it. Hope anyone could help, today is friday 04/07/2000 I have to release it next monday.
THIS IS WHERE I DO DE OBJECT CONNECTION
Set ws = Workspaces(0)
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", _ "", dbUseODBC
set conPPay = wrkODBC.OpenConnection("Connection1", , ,"ODBC;DATABASE=;UID=;PWD=;DSN=dsnPPay")
Set conSw = wrkODBC.OpenConnection("Connection2", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnSw")
Set conAP = wrkODBC.OpenConnection("Connection3", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnAP")
Set conHis = wrkODBC.OpenConnection("Connection4", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnHis")
Set conPen = wrkODBC.OpenConnection("Connection5", , , "ODBC;DATABASE=;UID=;PWD=;DSN=dsnPteAc")
THIS IS WHERE I ASK FOR THE CONNECTION
Set rsActiva = conPPay.OpenRecordset(cSQL, dbOpenDynaset)
If Not rsActiva.EOF Then
rsActiva.MoveLast ' BUSQUEDA EN J:\DB_IVR2\PPAS
BuscarActiva = 0
scad = rsActiva!Tele3 & Space(5) & rsActiva!fecha3 & Space(5) & rsActiva!cotra3
aRespuesta(0, 0) = rsActiva!Tele3:
aRespuesta(0, 1) = "" & rsActiva!fecha3
aRespuesta(0, 2) = "" & rsActiva!hora3:
.....etc.