SEM REGISTROS NO BANCO

CLARE 20/06/2011 20:50:52
#377288
Pessoal, se o meu banco não tem nada registrado, dou run no VB6 e dá bug.... alguém me ajude como posso exibir uma mensagem que não tem nenhum registro no banco... ou apenas que não dê bug... por favor.... vou postar o código de uma tela

Private Sub PreencherGridPrincipal()
Conecta True
Set MyRs2 = New ADODB.Recordset
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
[txt-color=#e80000]MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly[/txt-color]
Call FormataGrid
If MyRs2.RecordCount > 0 Then
With GridCruzamento
While Not MyRs2.EOF
.AddItem Chr(9) & MyRs2!IdCruzamento & _
Chr(9) & MyRs2!nomeTouro & _
Chr(9) & MyRs2!cruzaData & _
Chr(9) & MyRs2!tipoCruza
MyRs2.MoveNext
Wend
.Row = 1: .Col = 0
End With
MyRs2.Close
Set MyRs2 = Nothing
Conecta False
Else
GridCruzamento.Clear
GridCruzamento.Row = 0
GridCruzamento.Col = 0
Call FormataGrid
End If
End Sub


Obrigadaaa!!!!
TECLA 20/06/2011 20:54:15
#377290 
If MyRs2.EOF Then
    MsgBox [Ô]Sem registros[Ô]
Else
   ...
End If
CLARE 20/06/2011 20:58:39
#377294
Tecla, fiz o que me falou... mas sai a seguinte mensagem....

Operação não permitida quando o objeto está fechado

no IF MYRS2.EOF THEN
TECLA 20/06/2011 21:04:12
#377296
Este código que sugeri deve ser escrito DEPOIS do método OPEN do RECORDSET.
Poste seu código completo, após a alteração sugerida.
CLARE 20/06/2011 21:13:08
#377299
Tecla olha só... não funcionaaaa :(


Private Sub PreencherGridPrincipal()
Conecta True
Set MyRs2 = New ADODB.Recordset
If MyRs2.EOF Then
MsgBox [Ô]Sem registros[Ô]
Else
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly
Call FormataGrid
If MyRs2.RecordCount > 0 Then
With GridCruzamento
While Not MyRs2.EOF
.AddItem Chr(9) & MyRs2!IdCruzamento & _
Chr(9) & MyRs2!nomeTouro & _
Chr(9) & MyRs2!cruzaData & _
Chr(9) & MyRs2!tipoCruza
MyRs2.MoveNext
Wend
.Row = 1: .Col = 0
End With
MyRs2.Close
Set MyRs2 = Nothing
Conecta False
Else
GridCruzamento.Clear
GridCruzamento.Row = 0
GridCruzamento.Col = 0
Call FormataGrid
End If
End If
End Sub
TECLA 20/06/2011 21:16:10
#377302
Altere para o código abaixo:

Private Sub PreencherGridPrincipal()

    Conecta True
    Set MyRs2 = New ADODB.Recordset
    StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
    MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly

    If MyRs2.EOF Then
        MsgBox [Ô]Sem registros[Ô]
        GridCruzamento.Clear
        GridCruzamento.Row = 0
        GridCruzamento.Col = 0
        Call FormataGrid
    Else
        Call FormataGrid
        With GridCruzamento
            While Not MyRs2.EOF
                .AddItem Chr(9) & MyRs2!IdCruzamento & _
                         Chr(9) & MyRs2!nomeTouro & _
                         Chr(9) & MyRs2!cruzaData & _
                         Chr(9) & MyRs2!tipoCruza
                MyRs2.MoveNext
                Wend
            .Row = 1: .Col = 0
        End With
        MyRs2.Close
        Set MyRs2 = Nothing
        Conecta False
    End If

End Sub
SMZTODOPODEROSO 20/06/2011 21:23:31
#377303
Private Sub PreencherGridPrincipal()

Conecta True
Set MyRs2 = New ADODB.Recordset
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly

If MyRs2.EOF or MyRs2.BOF Then [ô]Função que devolve registos vazios
MsgBox [Ô]Sem registros[Ô]
GridCruzamento.Clear
GridCruzamento.Row = 0
GridCruzamento.Col = 0
Call FormataGrid
Else
Call FormataGrid
With GridCruzamento
While Not MyRs2.EOF
.AddItem Chr(9) & MyRs2!IdCruzamento & _
Chr(9) & MyRs2!nomeTouro & _
Chr(9) & MyRs2!cruzaData & _
Chr(9) & MyRs2!tipoCruza
MyRs2.MoveNext
Wend
.Row = 1: .Col = 0
End With
MyRs2.Close
Set MyRs2 = Nothing
Conecta False
End If

End Sub
CLARE 20/06/2011 21:49:52
#377308
Private Sub PreencherGridPrincipal()

Conecta True
Set MyRs2 = New ADODB.Recordset
StrSql2 = [Ô]select idcruzamento, nomeTouro, cruzaData, tipoCruza, gado_idgado from cruzamento where gado_idgado = [Ô] & LblId.Caption
[txt-color=#e80000]MyRs2.Open StrSql2, Conexao, adOpenStatic, adLockReadOnly[/txt-color] o erro está dando aqui... pelo LblId.Caption estar fazio
If MyRs2.EOF or MyRs2.BOF Then [ô]Função que devolve registos vazios
MsgBox [Ô]Sem registros[Ô]
GridCruzamento.Clear
GridCruzamento.Row = 0
GridCruzamento.Col = 0
Call FormataGrid
Else
Call FormataGrid
With GridCruzamento
While Not MyRs2.EOF
.AddItem Chr(9) & MyRs2!IdCruzamento & _
Chr(9) & MyRs2!nomeTouro & _
Chr(9) & MyRs2!cruzaData & _
Chr(9) & MyRs2!tipoCruza
MyRs2.MoveNext
Wend
.Row = 1: .Col = 0
End With
MyRs2.Close
Set MyRs2 = Nothing
Conecta False
End If

End Sub
TECLA 20/06/2011 22:33:59
#377310
Ué, passa um valor para o Label.
LblId.Caption = [Ô]TECLA[Ô]
CLARE 20/06/2011 22:37:06
#377312
me retorna bug também....

FALSE.... heheheheh
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar