Que tal, buen día a todos
Tengo un grave problema con las sentencias SQL
de ADS, ninguna me funciona., Dejaron de funcionar
Funcionaban muy bien y tengo reportes y consultas
pero dejaron de funcionar, sera que le borre alguna
línea en el fuente., si alguien ya le paso, porfa que me
eche una manita. (Utilizo tablas libres ADT)
Así es como ago las sentencias
Me marca error 7200 y el "MIALIAS" me lo da vacío
Asi es como inicializo
Así es como abro una tabla
Ya no se como buscarle
Ando desesperado, jejejejeje
Saludos.
Tengo un grave problema con las sentencias SQL
de ADS, ninguna me funciona., Dejaron de funcionar
Funcionaban muy bien y tengo reportes y consultas
pero dejaron de funcionar, sera que le borre alguna
línea en el fuente., si alguien ya le paso, porfa que me
eche una manita. (Utilizo tablas libres ADT)
Así es como ago las sentencias
Select 0
ADSCreateSQLStatement("MIALIAS",3)
cSQL := "SELECT {static} * from ARTICULOS"
ADSExecuteSQLDirect(cSQL)
MsgInfo("error AdsExecuteSqlDirect(cSql)" + CRLF + "Error:"+cValtochar( AdsGetLastError() ) )
Select MIALIAS
DbGoTop()
Browse()Me marca error 7200 y el "MIALIAS" me lo da vacío
Asi es como inicializo
REQUEST HB_LANG_ES
REQUEST DBFCDX, DBFFPT
REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,OrdKeyGoto,AdsGetRelKeyPos,AdsSetRelKeyPos
RddRegister( "ADS", 1 )
RddSetDefault("ADS")
SET(_SET_OPTIMIZE, .T.)
AdsSetServerType(2)
AdsSetFileType(3)
AdsLocking( .F. ) // <<==== .T.
AdsRightsCheck( .F. )Así es como abro una tabla
FUNCTION ABRE(cDbf,lShared)
LOCAL cAlias := cDbf, cDriver:=DbSetDriver(), nDbSel := Select(cDbf)
LOCAL cAlias1:= cDbf, cNombreADT := cDbf
Default lShared := .T.
IF nDbSel > 0
cAlias := New_Alias(cAlias1)
ENDIF
TRY
DbUseArea(.T.,cDriver,cDbf,cAlias,lShared,.F.)
SELECT &cAlias
IF AdsIsTableEncrypted()
AdsEnableEncryption("PASWORD...")
ENDIF
CATCH
?"Error : NO se pudo Abrir Archivo..."+cDbf+" Alias : "+cAlias
Cerrar()
END
RETURN (cAlias)Ya no se como buscarle
Ando desesperado, jejejejeje
Saludos.