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
- Code: Select all Expand view
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
- Code: Select all Expand view
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
- Code: Select all Expand view
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.
