Ir para o conteúdo
xplode_me

VB6 e RecordSource's

Mensagens Recomendadas

xplode_me    1
xplode_me

'Actualizar Base de Dados: Linha 1
dados_linhas.RecordSource = "Linha1"
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.Update

'Actualizar Base de Dados: Linha 2
dados_linhas.RecordSource = "Linha2"
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.Update

'Actualizar Base de Dados: Linha 3
dados_linhas.RecordSource = "Linha3"
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.Update

'Actualizar Base de Dados: Linha 4
dados_linhas.RecordSource = "Linha4"
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.Update

Oiz! Estou a fazer alguma coisa mal quando defino o RecordSource ? É que ele está a escrever tudo na tabela "Linha 1" em vez de ir mudando as tabelas!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
xplode_me    1
xplode_me

Obrigado, dps de algumas marradas consegui por a funcionar mesmo sem ver este post! :)

O programa j´a funciona, proxima semana, testes! .D

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade