Power Builder - EJecutar un query de SQL Server 7.0 desde PB

 
Vista:

EJecutar un query de SQL Server 7.0 desde PB

Publicado por Guillermo Rebaza Cotrina (52 intervenciones) el 16/07/2004 19:33:53
Hola amigos, tengo una consulta deseo que desde el Power Builder se ejecute un query que lo tengo en un archivo.sql, es decir por ejemplo si tengo un query para crear una tabla yo quiero ejecutarlos desde el pb se puede??
Muchas gracias de antemano por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:EJecutar un query de SQL Server 7.0 desde PB

Publicado por Carlos (4 intervenciones) el 18/07/2004 20:20:36
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;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:EJecutar un query de SQL Server 7.0 desde PB

Publicado por Guillermo (6 intervenciones) el 21/07/2004 19:04:07
Muchas gracias carlos me sirvio bastante tu ayuda.

Guillermo Rebaza
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar