• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

xplode_me

Programa só corre uma vez

2 mensagens neste tópico

Olá,

Tenho um programa que acede a uma base de dados do access, através do método DAO.

O meu problema é que sem mexer no código e actualizando a versão do MDAC da microsoft para a 2.8, de modo a poder usar bases de dados access2000, o programa apenas consegue fazer uma leitura/escrita na base de dados, tendo de ser reiniciado a seguir.

Há alguma coisa que tenha sido introduzida e que me esteja a escapar? O código é este:

'Inserir dados relativos ‡ Linha 1

dados_linhas.RecordSource = "Linha1"
dados_linhas.Refresh
dados_linhas.Recordset.AddNew
dados_linhas.Recordset.Fields("Data") = Date
dados_linhas.Recordset.Fields("Dia") = valord1
dados_linhas.Recordset.Fields("Almoco") = valord3
dados_linhas.Recordset.Fields("Dim") = dimensao1
dados_linhas.Recordset.Fields("Paletes") = paletes1
If premio1 < 0 Then
premio1 = 0
End If
dados_linhas.Recordset.Fields("Premio") = premio1
dados_linhas.Recordset.Update


'Inserir dados relativos ‡ Linha 2

dados_linhas.RecordSource = "Linha2"
dados_linhas.Refresh
dados_linhas.Recordset.AddNew
dados_linhas.Recordset.Fields("Data") = Date
dados_linhas.Recordset.Fields("Dia") = valord4
dados_linhas.Recordset.Fields("Almoco") = valord6
dados_linhas.Recordset.Fields("Dim") = dimensao2
dados_linhas.Recordset.Fields("Paletes") = paletes2
If premio2 < 0 Then
premio2 = 0
End If
dados_linhas.Recordset.Fields("Premio") = premio2
dados_linhas.Recordset.Update

'Inserir dados relativos ‡ Linha 3

dados_linhas.RecordSource = "Linha3"
dados_linhas.Refresh
dados_linhas.Recordset.AddNew
dados_linhas.Recordset.Fields("Data") = Date
dados_linhas.Recordset.Fields("Dia") = valord7
dados_linhas.Recordset.Fields("Almoco") = valord9
dados_linhas.Recordset.Fields("Dim") = dimensao3
dados_linhas.Recordset.Fields("Paletes") = paletes3
If premio3 < 0 Then
premio3 = 0
End If
dados_linhas.Recordset.Fields("Premio") = premio3
dados_linhas.Recordset.Update


'Inserir dados relativos ‡ Linha 4

dados_linhas.RecordSource = "Linha4"
dados_linhas.Refresh
dados_linhas.Recordset.AddNew
dados_linhas.Recordset.Fields("Data") = Date
dados_linhas.Recordset.Fields("Dia") = valord10
dados_linhas.Recordset.Fields("Almoco") = valord12
dados_linhas.Recordset.Fields("Dim") = dimensao4
dados_linhas.Recordset.Fields("Paletes") = paletes4
If premio4 < 0 Then
premio4 = 0
End If
dados_linhas.Recordset.Fields("Premio") = premio4
dados_linhas.Recordset.Update

dados_linhas.Refresh



seguranca = 1
acabou = server.SetItem("Channel0.Station0.Group0", "M103", 1)

End If

End Sub

Tudo isto funciona da primeira vez, da segunda vez nada....

Alguma ajuda a fazer debug por favor?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tive a ver o seu código.

(Que grande baralhada...)

Bem.. no inicio vc põe estra instrucção :

dados_linhas.Recordset.AddNew

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora