VB6 e RecordSource's

[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!

[Tiago Salgado]

experimenta por a seguir ao recordsource isto

dados_linhas.refresh

[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

[UnKnowN]

Mas como é que resolveste ? :\

[Tiago Salgado]

Pois...era bom que indicasses a resolução...