189477_es-ES

liliconcom

¿Cómo obtener el contenido del cuadro de edición de texto en "variable"?

Hola,

Estoy buscando una alternativa al cambio manual de variable (" Lote de Inspección ") dentro del propio script.

 

antiguo scrip:

 

Names Default To Here( 1 );
Open Database(
"DBQ=X:...
WHERE User1 LIKE '%Inspection Lot%'", "HSS"
);

 

 

Intenté esto - a continuación, pero no funciona. El script se está ejecutando, pero no se usó la "variable". Probablemente algo está mal con el formato. Buscando consejo.

Gracias.

 

nueva versión del guión:

 

Names Default To Here( 1 );
win = New Window( "Edit Box - Enter the Inspection Lot",
<<MODAL></MODAL>

 

Re: ¿Cómo convertir el contenido del cuadro de edición de texto en "variable"?

Muchas, muchas gracias. Mi primer cuadro de diálogo funciona. ¡Estoy tan feliz!

Re: ¿Cómo convertir el contenido del cuadro de edición de texto en "variable"?

Algunas sugerencias para publicar en este foro:

 

• Aplique sangría a su código (clic con el botón derecho > Reformatear secuencia de comandos)
• Pegue el código en el foro usando el botón .Eso retendrá los colores de sintaxis.

 

A tu problema.Mi código verifica si se ingresó un valor en el cuadro de texto.Si hay un valor allí, crea una cadena SQL usando la variable sql y luego llama a Open Database.Su código llama a una base de datos abierta con el comando IF dentro.Eso no funcionará.

 

Prueba este código:

 If( tbox_value != "",
  sql = Eval Insert(
   "SELECT TRBallShearHSBTTSF.Sample, Test, .... 
FROM TRBallShearHSBTTSF INNER JOIN SSBallShearHSBTTSF
ON TRBallShearHSBTTSF.Sample = SSBallShearHSBTTSF.Sample
WHERE User1 LIKE '%^tbox_value^%'");
  );

  dsn_string = "DBQ=X:\- ...HS.mdb;DefaultDir=X:\- ...;Driver={Driver do Microsoft Access (*.mdb)};DriverId=..;FIL=MS Access;FILEDSN=X:\...dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";

  Open Database(dsn_string, sql, "HSS-Dage 4000");
);

Re: ¿Cómo convertir el contenido del cuadro de edición de texto en "variable"?

Hola,

muchas gracias por tu rapida respuesta. Desafortunadamente, no sé mucho sobre programación y todavía estoy luchando; vea a continuación:

 

Lo siento, no entendí dónde colocar el "Comando IF".

 

Open Database(
 "DBQ=X:\- ...HS.mdb;DefaultDir=X:\- ...;Driver={Driver do Microsoft Access (*.mdb)};DriverId=..;FIL=MS Access;FILEDSN=X:\...dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;",
 If( tbox_value != "",
  sql = Eval Insert(
   "SELECT TRBallShearHSBTTSF.Sample, Test, .... 
FROM TRBallShearHSBTTSF INNER JOIN SSBallShearHSBTTSF
ON TRBallShearHSBTTSF.Sample = SSBallShearHSBTTSF.Sample
WHERE User1 LIKE '%^tbox_value^%'",
   "HSS-Dage 4000"
  )
 )
);

Re: ¿Cómo convertir el contenido del cuadro de edición de texto en "variable"?

Está llamando a la variable para su texteditbox "texteditbox", lo cual está permitido pero no es una buena práctica de programación.Aquí se explica cómo usar el valor ingresado en el cuadro de edición de texto:

Names Default To Here( 1 );
tbox_value = "";
win = New Window( "Edit Box - Enter the Inspection Lot",
 <<MODAL></MODAL>

Si ingreso ABC, el registro muestra esto:

sql = "SELECT foo, bar
   FROM utopia
WHERE User1 LIKE '%{ABC}%'";