| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
 Enviada: Dom Abr 15, 2012 1:35 am Assunto: Tipo de Variavel errada - Delphi 5 - Paradox |
 |
|
A quem puder me ajudar agradeço desde já !
Tenho este código abaixo....
| Código: | var
Num1, Num2, Soma : Double;
begin
With DM1 Do
Begin
If TabCtasRecebidasAux.Active Then
TabCtasRecebidasAux.Close;
TabCtasRecebidasAux.Open;
TabCtasRecebidasAux.First;
Try
TabCtasRecebidasAux.Insert;
Except
ShowMessage('Código 01 - Favor Comunicar a Marques E Ferreira !');
End;
TabCtasRecebidasAux.FieldByName('Nr_Venda').AsString := DBGrid4.Columns.Items[0].Field.AsString;
TabCtasRecebidasAux.FieldByName('Dt_Venda').AsString := DBGrid4.Columns.Items[1].Field.AsString;
TabCtasRecebidasAux.FieldByName('Hr_Venda').AsString := DBGrid4.Columns.Items[2].Field.AsString;
TabCtasRecebidasAux.FieldByName('Dt_Venc').AsString := DBGrid4.Columns.Items[3].Field.AsString;
TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString := DBGrid4.Columns.Items[4].Field.AsString;
TabCtasRecebidasAux.FieldByName('Nome').AsString := DBGrid4.Columns.Items[5].Field.AsString;
TabCtasRecebidasAux.FieldByName('End').AsString := DBGrid4.Columns.Items[6].Field.AsString;
TabCtasRecebidasAux.FieldByName('Bairro').AsString := DBGrid4.Columns.Items[7].Field.AsString;
TabCtasRecebidasAux.FieldByName('Cidade').AsString := DBGrid4.Columns.Items[8].Field.AsString;
TabCtasRecebidasAux.FieldByName('Cpf').AsString := DBGrid4.Columns.Items[9].Field.AsString;
// TabCtasRecebidasAux.FieldByName('TelRes').AsString := DBGrid4.Columns.Items[10].Field.AsString;
// TabCtasRecebidasAux.FieldByName('Cel').AsString := DBGrid4.Columns.Items[11].Field.AsString;
Try
TabCtasRecebidasAux.Post;
Except
ShowMessage('Código 02 - Favor Comunicar a Marques E Ferreira !');
End;
{Serviços Selecionados com SubTotais}
Num1:=StrToFloat(TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString);
Num2:=StrToFloat(Label9.Caption);
Soma:=Num1+Num2;
Label9.Caption:=FormatFloat('###0.00',Soma);
End;
|
Com esta variavel ..... Num1:=StrToFloat(TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString);
Eu não consigo puxar as informações para o outro banco de dados !
O campo se encontra na tabela Paradox como "ALFA NUMERICO" "
Att.
Marcelo. |
|
| Voltar ao Topo |
|
 |
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 10:27 am Assunto: |
|
|
Fala Marcelo! Neste comando:
| Código: | | Num1 := StrToFloat(TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString); |
Acontece algum erro ou o valor vem errado? |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 3:37 pm Assunto: |
|
|
Pior que não dá nenhuma mensagem !
E não consigo transferir nada para esta tabela ?
Qdo rodo o Debug linha por linha para nesta linha !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 3:53 pm Assunto: |
|
|
Hmm, entendi...
Marcelo, é preciso verificar se o valor do campo "Tot_Geral" é um valor numérico válido. O "StrToFloat" retorna uma exceção caso não consiga fazer a conversão dos dados.
Para fazer um teste, você pode colocar um "ShowMessage" antes dessa linha e observar o valor desse campo antes que ele seja atribuido à variável "Num1":
| Código: | ShowMessage(TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString));
Num1 := StrToFloat(TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString); |
|
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 4:31 pm Assunto: |
|
|
É neste caso eu tenho na tabela como .... Tot_Geral, A,10 !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 4:35 pm Assunto: |
|
|
Está dando erro neste ShowMessage... ?
Uso o Delphi 5 e Paradox !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 4:35 pm Assunto: |
|
|
| Qual erro está dando no ShowMessage? |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 5:01 pm Assunto: |
|
|
ACCESS VIOLATION AT ADDRESS 026AA39E IN MODULE 'RLINK32.DLL' READ OF ADDRESS 0676102C.
Att,
Marcelo. |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 6:14 pm Assunto: |
|
|
Vixe, RLINK32.DLL?
Tente reiniciar o Delphi e tentar novamente. Se este erro voltar a aparecer, faça o download da DLL do Delphi 2010:
http://www.4shared.com/file/iwb2ZFzX/rlink32.html
E substitua a DLL que está na pasta "bin" do Delphi. |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 6:17 pm Assunto: |
|
|
| Eu uso o Delphi 5 |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 6:20 pm Assunto: |
|
|
| Certo, mas se este erro continuar aparecendo, substitua a DLL do Delphi 5 pela DLL do Delphi 2010. Como é uma versão mais nova, ela já possui algumas correções. |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Dom Abr 15, 2012 6:24 pm Assunto: |
|
|
Aliás, não precisa nem baixar essa DLL.
Coloque um componente TEdit no seu formulário e adicione o código no lugar do ShowMessage:
| Código: | | Edit1.Text := TabCtasRecebidasAux.FieldByName('Tot_Geral').AsString; |
Observe se o valor atribuído à Edit é numérico.
Só uma questão... por quê você colocou este campo como Alfanumérico no banco de dados? Ele não vai armazenar somente valores numéricos? |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 7:14 pm Assunto: |
|
|
Coloquei pq antes estava como "$" !
E deixando como alfa pensei q o erro era por causa deste problema e vou armazenar valores com decimais.
Vou testar com o TEdit, bem lembrado !
Obrigado !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Dom Abr 15, 2012 7:17 pm Assunto: |
|
|
Olha com o ShowMessage, apareceu em branco !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
Marcelosoft
Mestre
Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862
|
| Enviada: Seg Abr 16, 2012 10:57 pm Assunto: |
|
|
Percebi uma coisa !
Está puxando os dados agora só que no DBGRID não aparece visualmente os registros !
Pq não aparece já troquei de DBGRID e continua em não aparecer os registros que baixei !
Att.
Marcelo. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
