Comandos SQL en ADS

[Armando]

Amigos:

Algun guru de ADS que me pueda proporcionar un pequeño ejemplo de cómo
ejecutar comandos SQL con ADS ?, que no sea el clásico SELECT * etc etc.
por ejemplo el comando INSERT, DELETE, CREATE, etc.

Lo he intentado así pero no funciona.

Code: Select all  Expand view

    ADSPrepareSQL( hStatement,"CREATE TABLE Meses( " +;
                        "Numero Numeric(3,0)," +;
                        "Descripcion Char(10)) IN DATABASE")
    ADSExecuteSql(hStatement)
 

Estoy tratando ADS con diccionario.
Saludos y gracias por el aporte

[Patricio Avalos Aguirre]

Hola

Yo lo hago de esta manera, puede que te sirva

Code: Select all  Expand view

AdsConnect60( AdsServer, AdsConnect, "adssys", cPass,, @hConAds )

cSql := "UPDATE PATENTE "+;
      "SET MODELO='"+oDbf:Nom_Modelo + "' "+;
      "WHERE cod_marca='"+cCodMar+"' and marca = '"+cNomMar + "' and modelo='"+cModelo+"'"

if !SqlEjecute( "ALIASDB", cSql, hConAds )
   MsgInfo( "Error..." )
endif
 

Code: Select all  Expand view

#include "ads.ch"
function SqlEjecute( cNewAlias, cSql, hConnection )
local cAlias := ALIAS(), lReturn := .t.

DEFAULT hConnection := ViewUsu():hConnection

Select 0

if !AdsCreateSqlStatement( (cNewAlias), ADS_CDX, hConnection )
    MsgInfo("error AdsCreateSqlStatement()" + CRLF + "Error:"+cValtochar( AdsGetLastError() ) )
    lReturn :=  .f.
endif

if lReturn .and. !AdsExecuteSqlDirect(cSql)
    (cNewAlias)->( dbCloseArea() )
    lReturn :=  .f.
    MsgInfo("error AdsExecuteSqlDirect(cSql)" + CRLF + "Error:"+cValtochar( AdsGetLastError() ) + CRLF + cSql )
    if file( "c:\SqlError.txt" )
        ferase( "c:\SqlError.txt" )
    endif
    Logfile( "c:\sqlError.txt", { cSql }  )
endif

if !empty( cAlias )
    select (cAlias)
endif

hConnection := NIL

return( lReturn )
 

//---------------------------------------------------------------------------------------

lo otro puedes crear las tablas con dbCreate(.. y este automaticamente lo inserta en el diccionario de datos

[MarioG]

Armando
Pasame tu correo y e envio un PDF

Saludos

[Armando]

Amigos:

Patricio, efectivamente con DBCreate() puedo crear las tablas pero me interesa aprender por el
lado de los comandos SQL, estoy enamorado de ellos , voy a probar tu ejemplo y ya te
contaré.

Mario:

Mi correo es soisa2002 @ Prodigy.net.mx

Gracias a todos

[Armando]

Patricio:

Excelente ejemplo, funciona de 100.

Muchas gracias