FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Advantage Data Server con ADO
Posts: 7
Joined: Tue Nov 06, 2007 05:13 PM

Advantage Data Server con ADO

Posted: Wed Nov 14, 2007 04:08 PM

Buen d铆a a la comunicad.

Deseo saber como puedo abrir la base de datos con advantage via ADO ya baje el odbc incluso el OLE Provider, lo 煤nico cual ser铆a el string para realizar la conexi贸n.

Saludos.
Arturo.
M茅xico

Posts: 77
Joined: Wed Jun 28, 2006 06:38 PM

Advantage Data Server con ADO

Posted: Wed Nov 14, 2007 07:30 PM

oConexionAdo:Open("Provider=Advantage.OLEDB.1;User ID=adssys;Data Source=diccionario.add;Persist Security Info=False;ServerType=ADS_REMOTE_SERVER;LockMode=ADS_COMPATIBLE_LOCKING")

saludos

Posts: 7
Joined: Tue Nov 06, 2007 05:13 PM

Gracias.

Posted: Wed Nov 14, 2007 09:13 PM

Y sabras de que forma se puede hacer mediante ODBC igual con ADO.

Saludos

Posts: 7
Joined: Tue Nov 06, 2007 05:13 PM

Hola Alex_cyr

Posted: Wed Nov 14, 2007 10:17 PM

Saludos.

Sabr谩s como puedo solucionar el siguiente error?

Error ador.recordset/9 El proveedor actual no admite la interfaz necesaria para la funcionalidad 脥ndice.: SEEK

El c贸digo que tengo es el siguiente:

oDatos:LockType := 4 //adLockOptimistic = 3, adReadOnly = 1
oDatos:CursorLocation := 3 //adUseServer = 2 , adUseClient = 3
oDatos:CursorType := 2 //adOpenKeyset = 1
oDatos:Source:=cComando
oDatos:ActiveConnection(oCon)
oDatos:Open()
oDatos:Sort := "Nom_Prod DESC"
oDatos:Seek("RESISTENCIAS", 1)

Agradecere tu ayuda.

Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM

Advantage Data Server con ADO

Posted: Thu Nov 15, 2007 08:42 AM
Para el tema de connections string tanto via ole db como odbc, puedes mirar esta entrada de mi blog ( http://bielsys.blogspot.com/2007/11/ado-connectionstring.html ).
Con referencia a lo del seek, no sabria decirte, pues no utilizo el metodo seek, ni el motor ADS. En este link pone algo de documentaci贸n de como usar seek con ADO http://support.microsoft.com/kb/287638/es.

Suponiendo que fuera una limitaci贸n del motor de base de datos, otra alternativa sin indice seria con el metodo FIND.
oRs:Find( "Campo LIKE '"+cBuscar,,1)
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/

Continue the discussion