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

[Regis Sebastiani]

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
>