Visual Basic - Conexion Ado y tablas de FoxPro 2.6

Life is soft - evento anual de software empresarial
 
Vista:

Conexion Ado y tablas de FoxPro 2.6

Publicado por Gino (1 intervención) el 02/01/2004 19:42:28
Tengo un problema, me conecto a un base de FoxPro mediante Ado, funciona bien en mi Pc, pero cuando lo instalo en las maquinas clientes no funciona, me sale un error "Automatización de ActiveX " o en otras no me sale nada, las maquinas clientes son win98 y las maquinas donde se desarrolla tienen winxp y win98, he instalado el MDAC 2.0, 2.1...2.7 y en las maquinas clientes y no pasa nada.
Espero me puedan ayudar,
Este es mi codigo:
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cmd As ADODB.Command
Dim SQL As String
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set rsFilter = New ADODB.Recordset
Set Cmd = New ADODB.Command
Dim ConnStr As String
ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver (*.dbf)};UID=;SourceDB=G:\SISTEMAS\SUPERVI;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Cn.Open ConnStr
SQL = "SELECT DEPENDE.DEPENDE as CodDepende, DEPENDE.NOMBRE as NombreDependencia " & _
"FROM DEPENDE " & _
"WHERE (((DEPENDE.COD)=" & glsIdCliente & ")) ORDER BY DEPENDE.DEPENDE ;"
Cmd.CommandText = SQL
Cmd.CommandType = 1 'SQL statement
Set Cmd.ActiveConnection = Cn
Rs.CacheSize = 10



Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder