ERRO EOF E BOF INICIALIZAR SISTAMA ERROR 3021

MASTER2020 03/08/2007 20:52:28
#229429
pessoal preciso de uma ideia de qdo meu sistema inicializar se o banco de dados estiver vazio nao dar este erro
runtima error 3021

BOF ou BOF sao verdadeiros ou resitro atual foi excluido a operaCAO REQUER UM REGISTRO ATUAL

AT+
PAULOOLIVEIRA 03/08/2007 21:06:30
#229430
if not rs.eof then .....


flw
MASTER2020 03/08/2007 21:09:30
#229431
COMO ASSIM
MASTER2020 03/08/2007 21:14:30
#229432
MAS O ERRO MOSTRA UM CAMPO Q E CHAVE
USUARIO.EXCLUIDOS 03/08/2007 21:18:12
#229433
vc esta fazendo um select no banco ele esta vazio entaum depois do select vc deve usar:


rsBanco.Open "Select * From tblLala Where ID = 1",Banco,3,3

If rsBanco.EOF = False Then 

    Função....

End IF


ve se não é isso
MASTER2020 03/08/2007 21:37:01
#229434
NOSSA MAS TENHO RST E RS Q CARREGA NO LOAD DO FORM
EM DUAS FUNCAO DIFERENTES
TENHO Q TRATAR ESTES DUAS FUNCOES ASSIM
USUARIO.EXCLUIDOS 03/08/2007 21:40:21
#229435
é cara sim, mas coloca aki como vc e=ta fazendo q fica mais facil em ajudar
MASTER2020 03/08/2007 21:45:20
#229436
CERTO LA VAI
MASTER2020 03/08/2007 21:48:06
#229438
NO FORMLOAD

conecta
carregacombo


txtcod.Text = rst.Fields(0)
txtnome.Text = rst.Fields(1)
txtvalor.Text = rst.Fields(2)
Combo1.Text = rst.Fields(3)

rst.MoveLast


AS FUNCOES

Private Sub carregacombo()


Dim rs_carregar As New ADODB.Recordset
rs_carregar.CursorLocation = adUseClient
rs_carregar.Open "Select * from tblcat order by nomecat ", Cnn, adOpenStatic, adLockPessimistic

If rs_carregar.RecordCount <> 0 Then
    rs_carregar.MoveFirst
    Do While rs_carregar.EOF = False
    Combo1.AddItem rs_carregar!nomecat
    rs_carregar.MoveNext
    Loop
End If
rs_carregar.Close
End Sub




Public Sub conecta()
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sistema.mdb"
    rst.CursorLocation = adUseClient
    
    rst.Open "Select * From tblpeca", Cnn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub


ESTA ASIM
USUARIO.EXCLUIDOS 03/08/2007 21:51:23
#229439
ve se assim funciona:



Private Sub carregacombo()

Dim rs_carregar As New ADODB.Recordset
rs_carregar.CursorLocation = adUseClient
rs_carregar.Open "Select * from tblcat order by nomecat ", Cnn, adOpenStatic, adLockPessimistic

If rs_carregar.EOF = False Then
    rs_carregar.MoveFirst
    Do While rs_carregar.EOF = False
    Combo1.AddItem IIF (Isnull(rs_carregar!nomecat),"", rs_carregar!nomecat)
    rs_carregar.MoveNext
    Loop
End If
rs_carregar.Close
End Sub
MASTER2020 03/08/2007 21:59:13
#229441
CEMM ELE DA MSM ERRO
E MOSTRA ESTE OBJETO
txtcod.Text = rst.Fields(0) Q JUSTAMENTE E UMA CHAVE PRIMARIA
ACHO Q POR ISSO NAO PODE TER CAMPO NULL
SERA Q E ISSO
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar