Hola amigo necesito sacar la informacion de un Sistema que esta diseñado con Visual Basic 6.0, como lo podre hacer, desde ya Gracias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Conectar con Visual Basic
La mejor manera, creo yo, es con ado. podrás tener todos los datos a tu disposición. Salu2
Horacio, pero con ADO cual seria la conexion
saludos
Fijate en esta página, aqui tenés todas ( creo ) las conexiones a las bases de datos más comunes http://www.connectionstrings.com/. En el caso de que las BBDD sean access, esta es la cadena "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + cFilePath( hb_argv( 0 ) ) + ;
"Sbtest.mdb;User Id=admin;Password=;"
Espero te sirva
Salu2
prueba de esta manera
TRY
oConnection := CreateObject( "ADODB.Connection" )
CATCH oError
MsgStop( "No se ha podido crear el 'ADODB.Connection' "+ oError:Description )
RETURN
END
sConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\basemdb\base.mdb; Persist Security Info=False"
TRY
oConnection:Open( sConnectionString )
CATCH oError
MsgStop( "No se ha podido crear el connectionstring"+ oError:Description )
RETURN
END
TRY
oRecordSet := CreateObject( "ADODB.RecordSet" )
CATCH oError
MsgStop( "No se ha podido crear el RECORDSET"+ oError:Description )
RETURN
END
oRecordSet:CursorLocation := adUseClient
oRecordSet:LockType := adLockReadOnly //adLockOptimistic
oRecordSet:CursorType := adOpenForwardOnly//adOpenDynamic
oRecordSet:ActiveConnection(oConnection)
sSQLQuery := "SELECT * FROM TABLA"
TRY
oRecordSet:Open( sSQLQuery, oConnection )
CATCH oError
MsgStop( "No se ha podido crear el consulta SQL"+ oError:Description )
RETURN
END
oRecordSet:MoveFirst()
DO WHILE !oRecordSet:EOF
if oRecordSet:Fields(0):Value = "xxx"
//BLA..
endif
oRecordSet:MoveNext()
ENDDO
oRecordSet:Close()Saludos
Patricio
__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Patricio
__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl