Problemas con Select

[[Caral]]

Hola
Para mi:
Codigo es integer y lo llamas deste un edit que es string:
Prueba esto:

Código Delphi [-]
MyQuery.close;
MyQuery.Sql.Text:= 'SELECT codigo,stock,stockminimo'+
                   'FROM articulo'+
                   'WHERE codigo='+IntToStr(txtcodigo.Text);
MyQuery.Sql.Open;
MyQuery.Execute; // esto no lo veo necesario

Para mi si te da error de sintaxis es porque busca txtcodigo como un texto y el campo es numerico por eso al poner el numero 3 en vez de este, te funciona.
Saludos

[[Lepe]]

Resumiendo:
El codigo que tengo eb MyQuery:

Código SQL [-]
SELECT codigo,stock,stockminimo
FROM articulo
WHERE codigo=:codigo // Lo paso como parametro

En mi boton:

Código Delphi [-]
MyQuery.Close;
if not MyQuery.Prepared then MyQuery.Prepare;
MyQuery.ParamByName('codigo').DataType := ftInteger;
MyQuery.ParamByName('codigo').AsInteger := StrToInt(txtcodigo.text);
MyQuery.Open;

Saludos

[roman]

De hecho, si se usa AsTipodeDatos, no es necesario especificar el tipo de datos:

Código Delphi [-]
procedure TParam.SetAsInteger(Value: Longint);
begin
  FDataType := ftInteger;
  Self.Value := Value;
end;

// Saludos

[[basti]]

Empezado por roman

De hecho, si se usa AsTipodeDatos, no es necesario especificar el tipo de datos:

Código Delphi [-]procedure TParam.SetAsInteger(Value: Longint); begin FDataType := ftInteger; Self.Value := Value; end;


// Saludos

Interesante Román, y yo tecleando siempre...
Apuntado para la próxima.

[karlaoax]

De todas formas he tratado de varias formas y:
1.- No me sale el erro mencionado, pero no me muestra los datos que le corresponden a la clave del producto, y ya cheque que los DBedit's estuvieran bien

2.- sigue saliendo el error

Mi codigo esta probado con Interbase y qsi sale....

Sera un error del componente MyDac?

[roman]

¿Cuál es el tipo de datos del campo codigo?

Por otra parte, si donde esté la componente MyQuery incluyes la unidad MyDacVCL, puedes poner la propiedad Debug de MyQuery en true para que te muestre las consultas que va a mandar al servidor. Así te darás cuenta exacta de la consulta que se está mandando.

// Saludos

[karlaoax]

listo, mira siempre que ejecuto mi codigo:

En MYQUERY:
SELECT codigo,stock,stockminimo
FROM productos
WHERE codigo=codigo // Pasado como parametro

En un _Boton
MyQuery1.close;
MyQuery1.SQL.text:='SELECT *FROM productos WHERE codigo="'+txtcodigo.text+'"';
MyQuery1.Open;

Donde txtcodigo es el parametro q le pase de mi consulta, hasta aqui todo bien. Pero cuando pongo un valor cualquiera en txtcodigo de mi formulario, siempre me muestra el registro 1 de mi tabla, y no el que realmente deber de corresponderle al valor escrito. Ya cheque que todo este bien, y no hay problema, ya cambie en mi tabla de Integer a Varchar el campo codigo, y el resultado sigue siendo el mismo.

Creo que el componente tiene fallas, pues ya lo cheque con Interbase y ahi si que funciona. Estoy empezando a utilizar MyDac y ando un poco perdida

[[Caral]]

Hola
Que tal asi:

Código Delphi [-]
MyQuery.close;
MyQuery.Sql.Text:= 'SELECT codigo,stock,stockminimo'+
                   'FROM articulo'+
                   'WHERE codigo='+IntToStr(txtcodigo.Text);
MyQuery.Sql.Open;
Showmessage(MYQuery.SQL.Text);

Con esto veo que datos me envio la sentencia sql.
Correcto Roman?
Saludos

[karlaoax]

Revisado, si pasa mi parametro recibido en mi txtcodigo.
Pero sigue sin mostrarme la informacion que le corresponde a stock y stockminimo.

mis dbedits apuntan a: DATASOURCE1
y el Datasorce su propiedad DATASET: MyTable1

No entiendo que parte de mi codigo esta fallando, si realmente recibe el parametro que le paso, por que no muestra la informacion que le corresponde a mi txtcodigo en sus dbedits correspondientes.

Mi campo CODIGO en mysql es Varchar.

Karla

[roman]

Empezado por Caral

Hola
Que tal asi:

Código Delphi [-]
MyQuery.close;
MyQuery.Sql.Text:= 'SELECT codigo,stock,stockminimo'+
                   'FROM articulo'+
                   'WHERE codigo='+IntToStr(txtcodigo.Text);
MyQuery.Sql.Open;
Showmessage(MYQuery.SQL.Text);

Con esto veo que datos me envio la sentencia sql.
Correcto Roman?
Saludos

En cuanto a esto: MyDac tiene la facilidad de depurar las sentencias SQL que se mandan sin tener que recurrir a poner ShowMessages aquí y allá

Para ello debe agregarse la unidad MyDacVCL en la cláusula uses y poner en true la propiedad Debug de la componente que se desee depurar. Esto- además de la facilidad - tiene la ventaja de que puede verse no sólo el texto de la consulta sino los valores de los parámetros. Por ejemplo, la consulta que aquí nos ocupó, podría (¿debería?) usarse con parámetros:

Código SQL [-]
SELECT *FROM productos WHERE codigo=:codigo

y se sustituye el valor al mandar la consulta:

Código Delphi [-]
MyQuery1.ParamByName('codigo).AsString := txtcodigo.Text;
MyQuery1.Open;

El problema de hacerlo así es que dificulta saber exactamente qué se pasa al servidor, porque MyQuery.SQL.Text contiene el texto antes de sustituir los parámetros. El depurador te mostrará cuáles son esos parámetros.

Cuando lanzas la consulta, MyDac automáticamente te presenta una ventana con estos datos.

// Saludos