RE:EJecutar un query de SQL Server 7.0 desde PB
Claro que puedes hacerlos solo revisa, yo lo hice de esta manera, pegale una revisada.
*************************************************************************
STRING ls_texto, ls_sql
LONG li_FileNum, ll_cont, ll_largotxt
CHAR lc_letra
li_FileNum = FileOpen("tablas.txt", StreamMode!, Read!, LockRead!)
FileRead(li_FileNum, ls_texto)
mle_sql.Text = ls_texto
FileClose(li_FileNum)
ls_texto = mle_sql.text
ll_largotxt = Len (ls_texto)
ls_sql = ""
SetPointer(HourGlass!)
FOR ll_cont = 1 TO ll_largotxt
lc_letra = MID (mle_sql.text, ll_cont, 1)
IF lc_letra <> ';' THEN
IF (ASC(lc_letra) <> 13) AND (ASC(lc_letra) <> 10) THEN
ls_sql = ls_sql + lc_letra
END IF
ELSE
IF LEFT(ls_sql,2) = '--' THEN // Inicio de comentario
// messagebox('COMENTARIO', ls_sql)
ELSE
// messagebox('',ls_sql)
// st_1.text = ls_sql
EXECUTE IMMEDIATE :ls_sql USING SQLCA;
END IF
ls_sql = ""
END IF
NEXT
messagebox('OK', 'TABLAS CREADAS')
**********************************************************************
NOTA: El archivo es un texto. tablas .txt, y dentro de el estan las sentencias, despues de cada sentencia SQL debe haber un (;) esto tambien para las lineas de comentario: Ejm:
-- ELIMINAR TABLAS;
drop table tb_dcrd;
drop table tb_garantias;