FoxPro/Visual FoxPro - ejecutar instruccion desde campo memo

   
Vista:

ejecutar instruccion desde campo memo

Publicado por patrick (5 intervenciones) el 15/11/2008 02:30:42
Hola amigos de la web, quisiera saber si se puede ejecutar la instruccion "CREATE TABLE" con los datos restantes en un campo memo, a ver me explico con un ejemplo:

Quiero crear una serie te tablas, cuya informacion de los campos estan dentro de una tabla llamada estructura.dbf que consta de dos campos: systabla y sysmemo, en el systabla esta el nombre de la tabla y en el sysmemo esta la informacion de (codigo c(10), nombre c(60), sueldo n(10,2), estado l).

Quisiera crear una rutina, que lea cada registro y que al asignarle los valores de los campos me cree las tablas que estan descritas, algo como esto

sele estructura
scan
CREATE TABLE systabla (sysmemo)
endscan

e intentado agregandole "&" pero igual no funciona.

Alguno de ustedes sabe si se puede hacer...

Agradezco de antemano el interes.

Patrick
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 instruccion desde campo memo

Publicado por Gabriel (112 intervenciones) el 18/11/2008 21:28:24
Hola, aquí tienes un ejemplo con cursores:

*-- Copiar y ejecutar ---------------------
CREATE CURSOR cTmp (c1 c(20), c2 m)
insert into cTmp values('tabla1', '(campo1 c(10), campo2 n(10,2))')
insert into cTmp values('tabla2', '(camp1 c(10), camp2 n(10,2))')
insert into cTmp values('tabla3', '(cam1 c(10), cam2 n(10,2))')
insert into cTmp values('tabla4', '(ca1 c(10), ca2 n(10,2))')

SELECT cTmp
SCAN
* Creamos la cadena y la almacenamos en la variable lcScript
TEXT TO lcScript TEXTMERGE NOSHOW
CREATE CURSOR <<cTmp.c1>> <<cTmp.c2>>
ENDTEXT
EXECSCRIPT(lcScript)
ENDSCAN
*--------------------------------------

Espero te sirva...... Suerte.

Gabriel Sánchez.
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