[firebase-br] Off Top: Problema Firebird com VB 6

[Cicero F]

Obrigado e eu gostaria tb de estar usando desta forma. Porém tenho mtas 
dificuldades pra gravar valores com casas decimais, datas e nomes q tenham 
acento ou apostofo. Como vc contorna esta situação ?

Grato

Cícero

>From: "Regis Sebastiani" <regisls em gmail.com>
>Reply-To: FireBase <lista em firebase.com.br>
>To: FireBase <lista em firebase.com.br>
>Subject: Re: [firebase-br] Off Top: Problema Firebird com VB 6
>Date: Tue, 10 Apr 2007 17:19:26 -0300
>
>Só mais uma coisa Cicero.
>
>Tu pode usar a instrução DB.Execute também para Inserir e Alterar além de
>Deletar um registro. Da mesma forma.
>
>Att,
>Regis L. Sebastiani
>
>
>Em 10/04/07, Cicero F <cicero_cfm em hotmail.com> escreveu:
> >
> >
> > Mto obrigado a todos pela atenção e deu certinho mto obrigado mesmo.
> >
> > Que Deus proteja a todos nos
> >
> > Cícero
> >
> > >From: "Regis Sebastiani" <regisls em gmail.com>
> > >Reply-To: FireBase <lista em firebase.com.br>
> > >To: FireBase <lista em firebase.com.br>
> > >Subject: Re: [firebase-br] Off Top: Problema Firebird com VB 6
> > >Date: Tue, 10 Apr 2007 15:10:40 -0300
> > >
> > >Cicero.
> > >
> > >Tenta fazer assim:
> > >
> > >Dim Str2 As String
> > >        Dim Rs2 As New ADODB.Recordset
> > >        If MsgBox("Deseja Realmente Excluir a Consulta do(a) Paciente " 
>&
> > >Lista.TextMatrix(Lista.Row, 4), vbQuestion + vbYesNo + 256, "Atenção") 
>=
> > >vbYes Then
> > >            '--------------------
> > >            Str2 = "DELETE From AGENDA WHERE AGENDA.CODIGO = " &
> > >Lista.TextMatrix(Lista.Row, 1)
> > >            DB.Execute Str2
> > >End If
> > >
> > >Onde DB é a tua conexão com o banco.
> > >
> > >Espero ter ajudado.
> > >
> > >
> > >Em 10/04/07, Cicero F <cicero_cfm em hotmail.com> escreveu:
> > > >
> > > > Boa tarde companheiros e desculpa pelo off, mas é q ja to loquinho a
> > >ponto
> > > > de largar mão do FireBird.
> > > >
> > > > Bom tenho uma tabela q é uma agenda médica e não estou conseguindo
> > >excluir
> > > > registro dela estou usando o FireBird 2.0 e VB 6 com OLEDB e fazendo
> > > > conforme abaixo:
> > > >
> > > >        Dim Str2 As String
> > > >        Dim Rs2 As New ADODB.Recordset
> > > >        If MsgBox("Deseja Realmente Excluir a Consulta do(a) Paciente 
>"
> > &
> > > > Lista.TextMatrix(Lista.Row, 4), vbQuestion + vbYesNo + 256, 
>"Atenção")
> > =
> > > > vbYes Then
> > > >            '--------------------
> > > >            Str2 = "SELECT * From AGENDA WHERE AGENDA.CODIGO=" &
> > > > Val(Lista.TextMatrix(Lista.Row, 1))
> > > >            Rs2.CursorLocation = adUseClient
> > > >            Rs2.Open Str2, DB, adOpenKeyset, adLockOptimistic
> > > >            '--------------------
> > > >            If Rs2.RecordCount <> 0 Then
> > > >                '----------------
> > > >                Rs2.Delete
> > > >                '----------------
> > > >            End If
> > > >            Rs2.Close
> > > >            Set Rs2 = Nothing
> > > >            '--------------------
> > > >        End If
> > > >
> > > > Esta dando a seguinte msg :
> > > > E esta dando o seguinte erro : Run-time error 
>'-2147217864(80040e38)'
> > > >
> > > > "A linha não pode ser localizada para atualização. Alguns valores
> > podem
> > > > ter
> > > > sido alterados desde que ela foi lida pela última vez."
> > > >
> > > >
> > > >
> > > > Alguem poderia me dizer o q esta acontecendo ?
> > > >
> > > > Grato
> > > >
> > > > Cícero
> > > >
> > > > _________________________________________________________________
> > > > Verificador de Segurança do Windows Live OneCare: combata já vírus e
> > > > outras
> > > > ameaças! http://onecare.live.com/site/pt-br/default.htm
> > > >
> > > >
> > > > ______________________________________________
> > > > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > > > Para editar sua configuração na lista, use o endereço
> > > > http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> > > > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> > > >
> > >______________________________________________
> > >FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > >Para editar sua configuração na lista, use o endereço
> > >http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> > >Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
> > _________________________________________________________________
> > Descubra como mandar Torpedos SMS do seu Messenger para o celular dos 
>seus
> > amigos. http://mobile.msn.com/
> >
> >
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para editar sua configuração na lista, use o endereço
> > http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>Para editar sua configuração na lista, use o endereço 
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
Seja um dos primeiros a testar o novo Windows Live Mail Beta- grátis. Acesse 
http://www.ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d