ERRO AO LOCALIZAR REGISTRO NO MYSQL
galera, bom dia!
Estou desenvolvendo um programa em vb6 e mysql com conexão dsn. Ontem no decorrer do dia desenvolvi alguns formulários e os testei e seu funcionamento estava perfeito.
Mudei a base de meus documentos para aruivo de programas e salvei em pendrive. os códigos que criei ontem param de funcionar me retornando diversas mensagens de erro, tipo; O nome não corresponde.
segue o código:
Private Sub requisicao()
On Error GoTo ErrLocalizar
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô] select *from oc001 where requisicao = [ô][Ô] & Lista.SelectedItem.SubItems(2) & [Ô][ô][Ô]
Set myrs = .Execute
End With
With myrs
If .EOF And .BOF Then
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
Else
frmservicos003.txtrequisicao = Empty & !requisicao
frmservicos003.txtdtentrada = Empty & !dtentrada
frmservicos003.txtvvalor = Empty & !vvalors
frmservicos003.txtServico = Empty & !servicos
frmservicos003.txtTecnico = Empty & !tecnico
frmservicos003.txtParecer = Empty & !observacao1
End If
End With
frmservicos003.txtcliente = Lista.SelectedItem.SubItems(3)
frmservicos003.txtvvalor = Format(frmservicos003.txtvvalor, [Ô]###,##0.00[Ô])
saida:
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
ErrLocalizar:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve um erro ao localizar o registro, verifique.[Ô], vbCritical, [Ô]Objetivo[Ô]
.Number = 0
GoTo saida
End If
End With
End Sub
engraçado que em casa tbm não funcionou refiz os códigos e nada.
Ja acontem com alguem?
Desde já agradeço.
Estou desenvolvendo um programa em vb6 e mysql com conexão dsn. Ontem no decorrer do dia desenvolvi alguns formulários e os testei e seu funcionamento estava perfeito.
Mudei a base de meus documentos para aruivo de programas e salvei em pendrive. os códigos que criei ontem param de funcionar me retornando diversas mensagens de erro, tipo; O nome não corresponde.
segue o código:
Private Sub requisicao()
On Error GoTo ErrLocalizar
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô] select *from oc001 where requisicao = [ô][Ô] & Lista.SelectedItem.SubItems(2) & [Ô][ô][Ô]
Set myrs = .Execute
End With
With myrs
If .EOF And .BOF Then
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
Else
frmservicos003.txtrequisicao = Empty & !requisicao
frmservicos003.txtdtentrada = Empty & !dtentrada
frmservicos003.txtvvalor = Empty & !vvalors
frmservicos003.txtServico = Empty & !servicos
frmservicos003.txtTecnico = Empty & !tecnico
frmservicos003.txtParecer = Empty & !observacao1
End If
End With
frmservicos003.txtcliente = Lista.SelectedItem.SubItems(3)
frmservicos003.txtvvalor = Format(frmservicos003.txtvvalor, [Ô]###,##0.00[Ô])
saida:
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
ErrLocalizar:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve um erro ao localizar o registro, verifique.[Ô], vbCritical, [Ô]Objetivo[Ô]
.Number = 0
GoTo saida
End If
End With
End Sub
engraçado que em casa tbm não funcionou refiz os códigos e nada.
Ja acontem com alguem?
Desde já agradeço.
Galera,
Descobri que o problema começou a ocorrer quando eu adicionei um componente de terceiro ao programa para emitir mensagens de pendências aos usuários logados.
o componente é o accmsg.dll.
adicionei este código em um modulo e nos lod dos formulários
Public Sub msn()
On Error GoTo ErrLocalizar
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select *from oc001 where consolidado = 0 [Ô]
Set myrs = .Execute
End With
With myrs
If .EOF And .BOF Then
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
Exit Sub
Else
Set CARATA = New clsmsg
CARATA.ShowNews [Ô]EXISTEM SOLICITAÇÕES EM ABERTO.[Ô], [Ô]PROJETO ARES[Ô], [Ô]TOONER BRASIL[Ô], [Ô]EXISTEM SOLICITAÇÃO EM ABERTO[Ô], 0, &HFF0000, &HFF00&, [Ô]C:\Arquivos de programas\TONNER\FUNDO.BMP[Ô], 30, 8000, 20, WP_LowerRight, , , [Ô]Arial Black[Ô], , 12
End If
End With
saida:
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
ErrLocalizar:
With Err
If .Number <> 0 Then
.Number = 0
GoTo saida
End If
End With
End Sub
Portanto a pergunta tornou-se outra;
como devo utilizar este componente para de forma eficaz?
desde já agradeço.
Descobri que o problema começou a ocorrer quando eu adicionei um componente de terceiro ao programa para emitir mensagens de pendências aos usuários logados.
o componente é o accmsg.dll.
adicionei este código em um modulo e nos lod dos formulários
Public Sub msn()
On Error GoTo ErrLocalizar
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select *from oc001 where consolidado = 0 [Ô]
Set myrs = .Execute
End With
With myrs
If .EOF And .BOF Then
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
Exit Sub
Else
Set CARATA = New clsmsg
CARATA.ShowNews [Ô]EXISTEM SOLICITAÇÕES EM ABERTO.[Ô], [Ô]PROJETO ARES[Ô], [Ô]TOONER BRASIL[Ô], [Ô]EXISTEM SOLICITAÇÃO EM ABERTO[Ô], 0, &HFF0000, &HFF00&, [Ô]C:\Arquivos de programas\TONNER\FUNDO.BMP[Ô], 30, 8000, 20, WP_LowerRight, , , [Ô]Arial Black[Ô], , 12
End If
End With
saida:
Set myrs = Nothing
Set mycmd = Nothing
Mycon.Close
ErrLocalizar:
With Err
If .Number <> 0 Then
.Number = 0
GoTo saida
End If
End With
End Sub
Portanto a pergunta tornou-se outra;
como devo utilizar este componente para de forma eficaz?
desde já agradeço.
Tópico encerrado , respostas não são mais permitidas