Ajuda com cadastro com TurboDelphi Paradox
Caros amigo, no evento abaixo, quando executo, informa parâmetro P_ VALOR não encontrado, o que pode estar errado? se tiro da constante e dos parâmetros, informa um erro no execSQL que também preciso da ajuda de vocês para compreender.
procedure TfrmRifacil.btnGerarRifaClick(Sender: TObject);
Const
c_SQL_CriaRifa : String = ´INSERT INTO BDRIFACIL ´ +
´ ( NUMERO, TITULO, TITULORESUMO, ´ +
´ VALOR, CORPOTEXTO ) ´ +
´ VALUES ´ +
´ ( :P_NUMERO, :P_TITULO, :P_TITULORESUMO, ´ +
´ :P_ VALOR, :P_CORPOTEXTO ) ´ ;
c_SQL_ListaRifa : String = ´SELECT * FROM BDRIFACIL´;
Var
nInicio : Integer;
nFim : Integer;
begin
dbRifa.Close;
dbRifa.DatabaseName := ExtractFilePath(ParamStr(0)) + ´Banco´;
tbRifa.TableType := ttParadox;
qryRifa.DatabaseName:= ExtractFilePath(ParamStr(0)) + ´Banco´;
nInicio := StrToInt( edtInicial1.Text );
nFim := StrToInt( edtFinal1.Text );
//Gera as rifas
While nInicio <= nFim do
begin
With qryRifa do
Begin
Try
Close;
SQL.Clear;
SQL.Add( c_SQL_CriaRifa );
ParamByName(´P_NUMERO´).AsInteger := nInicio;
ParamByName(´P_TITULO´).AsString := edtTitulo.Text;
ParamByName(´P_TITULORESUMO´).AsString := edtTituloReduzido.Text;
ParamByName(´P_ VALOR´).AsFloat := StrToFloat( edtValor.Text );
ParamByName(´P_CORPOTEXTO´).AsString := memTextoRifa.Text;
ExecSQL;
Except
Begin
MessageDlg(´Error na Criação das Rifas.´ + Chr(13) + ´Entre em contato com o desenvolvedor´ + Chr(13) + ´email: emircalife@yahoo.com.br´, mtError, [mbOK],0);
Exit;
End;
End;
nInicio := nInicio + 1;
End;
End;
//Lista as rifas geradas
With qryRifa do
Begin
Close;
SQL.Clear;
SQL.Add(c_SQL_ListaRifa);
Open;
End;
end;
procedure TfrmRifacil.btnGerarRifaClick(Sender: TObject);
Const
c_SQL_CriaRifa : String = ´INSERT INTO BDRIFACIL ´ +
´ ( NUMERO, TITULO, TITULORESUMO, ´ +
´ VALOR, CORPOTEXTO ) ´ +
´ VALUES ´ +
´ ( :P_NUMERO, :P_TITULO, :P_TITULORESUMO, ´ +
´ :P_ VALOR, :P_CORPOTEXTO ) ´ ;
c_SQL_ListaRifa : String = ´SELECT * FROM BDRIFACIL´;
Var
nInicio : Integer;
nFim : Integer;
begin
dbRifa.Close;
dbRifa.DatabaseName := ExtractFilePath(ParamStr(0)) + ´Banco´;
tbRifa.TableType := ttParadox;
qryRifa.DatabaseName:= ExtractFilePath(ParamStr(0)) + ´Banco´;
nInicio := StrToInt( edtInicial1.Text );
nFim := StrToInt( edtFinal1.Text );
//Gera as rifas
While nInicio <= nFim do
begin
With qryRifa do
Begin
Try
Close;
SQL.Clear;
SQL.Add( c_SQL_CriaRifa );
ParamByName(´P_NUMERO´).AsInteger := nInicio;
ParamByName(´P_TITULO´).AsString := edtTitulo.Text;
ParamByName(´P_TITULORESUMO´).AsString := edtTituloReduzido.Text;
ParamByName(´P_ VALOR´).AsFloat := StrToFloat( edtValor.Text );
ParamByName(´P_CORPOTEXTO´).AsString := memTextoRifa.Text;
ExecSQL;
Except
Begin
MessageDlg(´Error na Criação das Rifas.´ + Chr(13) + ´Entre em contato com o desenvolvedor´ + Chr(13) + ´email: emircalife@yahoo.com.br´, mtError, [mbOK],0);
Exit;
End;
End;
nInicio := nInicio + 1;
End;
End;
//Lista as rifas geradas
With qryRifa do
Begin
Close;
SQL.Clear;
SQL.Add(c_SQL_ListaRifa);
Open;
End;
end;
Emir Neto
Curtidas 0
Respostas
Emir Neto
19/06/2009
Ninguém pode me ajudar?
GOSTEI 0