Select filtrando caracteres

Question

salve!como eu poderia escrever esse SELECT:selecione o maior valor do campo �referencia� da tabela �livros�, quando o valor  contiver nos seus dois primeiros caracteres as letras �AB�[code:1:0d6466be3...

Rjun · Answer

Acho que voc� inverteu a posi��o do caracter coringa. Ele deve vir apos o �AB�.[code:1:986dbd75ba]DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := �AB��;[/code:1:986dbd75ba]...

Mahdak · Answer

[quote:86650ba429=�Rjun�]Acho que voc� inverteu a posi��o do caracter coringa. Ele deve vir apos o �AB�.[code:1:86650ba429]DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := �AB��;[/code:1:86650ba429][/quote:86650ba429]Rjun... nao deu certo naofiz desse jeito mais nao adiantou, ele ainda continua sem verificar os dois primeiros caracteres da string.......

Rjun · Answer

Precisa colocar o texto entre aspas no SQL. Fa�a assim:[code:1:f23943b7f9]DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := QuotedStr(�AB��); [/code:1:f23943b7f9]...

Mahdak · Answer

[quote:a1fdd941fd=�Rjun�]Precisa colocar o texto entre aspas no SQL. Fa�a assim:[code:1:a1fdd941fd]DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := QuotedStr(�AB��); [/code:1:a1fdd941fd][/quote:a1fdd941fd]na verdade nao � bem um texto em s� que o sistema checa, mas sim um campo de uma tabela Interbase. mas esse campo � uma string de no maximo 2 caracteres, entao eu considero como um texto, mas mesmo assim ainda nao funcionou... vou colar aqui o c�digo desse procedure pra vc dar uma analizada... e vou indicar onde est� o problema...[]�s[code:1:a1fdd941fd]procedure TMateriais.Btn_NovoClick(Sender: TObject);varCod1                 : integer;ref1,ref2,ref3, cod2 : String;begin        if combo_area.Text = �� then    begin        ShowMessage(�O campo "�rea" est� vazio, por favor escolha uma �rea.�);    end       else          begin              // Gera o C�digo do material ESSE BLOCO EST� OK              DM.qry_MatCod.Open;              DM.qry_MatCod.SelectSQL.Clear;              DM.qry_MatCod.SelectSQL.add(�SELECT (MAX(CODIGO) + 1 ) PROX FROM LIVROS�);              dm.qry_MatCod.open;              cod1 := dm.qry_MatCod.Fields&#91;0&93;.AsInteger;              if cod1 = null then              begin                  cod1:=0;              end                else                    cod1:=cod1;                    Edit_Codigo.Text := FloatToStr(cod1);                    // esse select seleciona a palavra que vai antes o ponto (o c�digo da area escolhida) ESSE BLOCO TAMBEM EST...

Rjun · Answer

Eu dei uma mexida no seu c�digo. Veja se funciona.

procedure TMateriais.Btn_NovoClick(Sender: TObject);
var
  Cod1: integer;
  ref1,
  ref2,
  ref3,
  cod2: String;
begin
  if combo_area.Text = �� then
    ShowMessage(�O campo "�rea" est� vazio, por favor escolha uma �rea.�);
  else
  begin
    // Gera o C�digo do material ESSE BLOCO EST� OK
    DM.qry_MatCod.SelectSQL.Clear;
    DM.qry_MatCod.SelectSQL.Add(�SELECT (MAX(Codigo) + 1) PROX FROM LIVROS�);
    DM.qry_MatCod.Open;
    try
      cod1 := dm.qry_MatCod.Fields[0].AsInteger;
    finally
      DM.qry_MatCod.Close;
    end;

    if (cod1 = null) then
      cod1 := 0;

    Edit_Codigo.Text := FloatToStr(cod1);

    // esse select seleciona a palavra que vai antes o ponto (o c�digo da area escolhida) ESSE BLOCO TAMBEM EST� OK
    DM.qry_ArNovo.SelectSQL.Clear;
    DM.qry_ArNovo.SelectSQL.Add(�SELECT * FROM Area WHERE Nome LIKE :Consulta �);
    DM.qry_ArNovo.ParamByName(�Consulta�).AsString := �� + ��� + combo_area.Text + ���;
    DM.qry_ArNovo.Open;
    try
      cod2 := DM.Qry_ArNovo.FieldByName(�PSEUDONIMO�).AsString;
    finally
      DM.qry_ArNovo.Close;
    end;

    // *********** PROBLEMAS AQUI, VERIFICAR POR QUE NAO EST� FAZENDO A CHECAGEM *******
    {
      selecione o maior valor do campo "referencia" da tabela "livros", quando o valor
      contiver nos seus dois primeiros caracteres as letras "AB"
    }
    // esse select seleciona o numero que vai ap�s o ponto, que contenha antes do ponto "cod2",
    // POR�M NAO ESTA FUNCIONANDO, OU SEJA, ELE EST� GERANDO O C�DIGO A PARTIR DOS PRIMEIROS
    // REGISTROS DA TABELA, E NAO OS REGISTROS DO SELECT

    DM.qry_MatNovo.SelectSQL.Clear;
    DM.qry_MatNovo.SelectSQL.Add(�SELECT MAX(Referencia) AS PROX FROM Livros WHERE Referencia LIKE :PCodigo�);
    DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := QuotedStr(Cod2 + ���);
    DM.qry_MatNovo.Open;
    try
      ref1 := QuotedStr(DM.qry_MatNovo.FieldByName(�PROX�).AsString);
    finally
      DM.qry_MatNovo.Close;
    end;

    if ref1 = null then
      ref1 := �0�;

    ShowMessage(ref1);

    // remove as letras e o ponto decimal para a consulta deixando apenas
    // os numeros referentes ao material
    ref2 := FilterChars(Ref1, [�0�..�9�]);
    ref3 := IntToStr(StrToInt(ref2) + StrToInt(�1�)); //
    edit_CodigoR.Text := Cod2 + �.� + ref3;
  end;
end;

Mahdak · Answer

nao deu certo nao R.Jun....acho que o problema � s� nesse select mesmo...nao to conseguindo me achar nessa resolu��o...[code:1:aebf654fee]// *********** PROBLEMAS AQUI, VERIFICAR POR QUE NAO EST� FAZENDO A CHECAGEM *******                    { selecione o maior valor do campo "referencia" da tabela "livros", quando o valor                      contiver nos seus dois primeiros caracteres as letras "AB"                      }                    // esse select seleciona o numero que vai ap�s o ponto, que contenha antes do ponto "cod2"                    DM.qry_MatNovo.Open;                    DM.qry_MatNovo.SelectSQL.Clear;                    DM.qry_MatNovo.SelectSQL.add(�SELECT MAX(REFERENCIA) PROX FROM LIVROS where REFERENCIA Like:PCodigo �);                    DM.qry_MatNovo.Params&#91;0&93;.AsString;                    DM.qry_MatNovo.ParamByName(�PCodigo�).AsString := QuotedStr(Cod2+���);                    dm.qry_MatNovo.open;                    ref1 := QuotedStr(DM.qry_MatNovoPROX.AsString);[/code:1:aebf654fee]...

F�rum Select filtrando caracteres #296201