If Not TABLE_TEMP_BDS.EOF... trava o sistema


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: If Not TABLE_TEMP_BDS.EOF... trava o sistema

Knight

GOIÂNIA
GO - BRASIL

Postada em 14/06/2005 16:24 hs

O sistema esta travando na linha selecionada abaixo sem mostrar nem um tipo de erro e apenas na maquina do cliente.

A falta da declaração desta linha ( Dim TABLE_TEMP_BDS as recordset) pode ocasionar isso????

On Error Resume Next

'ABERTURA DA VARIÁVEL DE REDE
Set WORK = Workspaces(0)

'ABERTURA DE BANCOS DE DADOS
Set BDS = WORK.OpenDatabase(App.Path & "DADOSBDS.mdb", False, False)
Set TABLE_TEMP_BDS = BDS.OpenRecordset("EMPRESA")

-->>If Not TABLE_TEMP_BDS.EOF Or Not TABLE_TEMP_BDS.BOF Then

    'EXISTE DADOS
    TABLE_TEMP_BDS.MoveMin
    While Not TABLE_TEMP_BDS.EOF
        LST_GRID(0).AddItem Format(TABLE_TEMP_BDS!CODIGO, "00000")
        LST_GRID(1).AddItem TABLE_TEMP_BDS!NOME
        TABLE_TEMP_BDS.MoveNext
    Wend
    LST_GRID(0).ListIndex = 0
End If

   If Err = 3021 Then
      Min_STEP
      Exit Sub
   End If
   SHOW_DATA

Agradeço desde já

Knight

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias

TÓPICO EDITADO

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 14/06/2005 16:35 hs

If Not TABLE_TEMP_BDS.BOF And Not TABLE_TEMP_BDS.EOF Then

ou

If Not (TABLE_TEMP_BDS.BOF Or TABLE_TEMP_BDS.EOF) Then

Testa um desses dois e ve se funciona...

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Knight

GOIÂNIA
GO - BRASIL

Postada em 14/06/2005 16:38 hs

Não funciona, ja havia testado

Knight

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias

Sandro
não registrado

Postada em 14/06/2005 17:00 hs

Olá,

Cara, você colocou uma instrução que nunca irá permitir a exibição do erro:

On Error Resume Next

Remova esta linha e veja se aparece alguma mensagem de erro. Provavelmente você está com algum problema no seu banco de dados. Você pode tentar reparar e compactar o banco para corrigir eventuais problemas.

um abraço,

Sandro.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR