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

[Cicero F]

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/