Problemas con Select

[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

[karlaoax]

Buen tip que aplicare con este nuevo componente que se me hace muy interesante :P MyDac & MySQL

[[Caral]]

Hola
Muy interesante Roman, lo tendre en cuenta si algun dia uso mydac, por ahora con my escaso ado, necesito el mensaje. , que envidia.
Saludos

[[Lepe]]

El problema de parámetros, tampoco es grabe, en lugar de llamar a ShowMessage, llamamos a nuestra rutina:

Código Delphi [-]
procedure VerSentenciaSql(dt:TMDOQuery);
var i:Integer;
    Sql:string;
    ReplaceTo:string;
begin
  sql := dt.SQL.Text;
  for i := 0 to dt.params.count - 1 do
  with dt.Params[i] do
  begin
    case datatype  of
      ftDate : ReplaceTo := FormatDateTime('dd/mm/yyyy',AsDAte);
      ftDatetime: ReplaceTo := FormatDateTime('dd/mm/yyyy hh:nn:ss', AsDAtetime);
      ftTime : ReplaceTo := FormatDateTime('hh:nn:ss', Astime);
    else
      ReplaceTo := AsString;
    end;
    sql := ReplaceText(sql, ':'+Name,  ReplaceTo);

  end;
  ShowMessage(dt.sql.text);
end;

No incluirá las comillas simples, pero como ya sabemos, eso no es problema cuando se usa parámetros.

Saludos