SELECT EM DUAS TABELAS‏

FFABIOG 10/03/2015 21:10:30
#445137
Senhores,

Como fazer um select em duas tabelas?

A 1ª tabela é a CAD_BANCO (Cadastro de bancos)
A 2ª tabela é a FLUXO.

Segue abaixo o código, porem o select só altera a 1ª tabela (CAD_BANCO).
Como fazer para alterar as duas tabelas ou mais tabelas?


[ô]-----------------------------------------------------
Dim codigo As String
codigo = Me.lbl_lista.SelectedItem

[ô] CAD BANCO
connectdb
rs.Open [Ô]select * from CAD_BANCO where cod = [Ô] & codigo, db, 3, 3
rs(4) = [Ô][Ô] & txt_nome
rs.Update


[ô] FLUXO
rs2.Open [Ô]select * from FLUXO where COD_BAN = [Ô] & codigo, db, 3, 3
rs2(6) = [Ô][Ô] & txt_nome
rs2.Update

[ô]-----------------------------------------------------

Obrigado

Att
Fábio
FILMAN 10/03/2015 21:54:57
#445138 
Dim vSQL As String

vSQL = [Ô][Ô]
vSQL = vSQL & [Ô]SELECT B.*, F.*[Ô]
vSQL = vSQL & [Ô]    FROM FLUXO F[Ô]
vSQL = vSQL & [Ô]    LEFT JOIN CAD_BANCO B ON (F.COD_BAN = B.COD)[Ô]
vSQL = vSQL & [Ô]    WHERE F.COD_BAN = [Ô] & codigo


rs.Open vSQL, db, 3, 3

If rs.RecordCount > 0 Then
    MsgBox [Ô]Encontrou dados[Ô]
Else
    MsgBox [Ô]Não encontrou dados[Ô]
End If
SINCLAIR 10/03/2015 21:57:56
#445139 Resposta escolhida
Boa noite, colega...

Você está usando select para alterar conteúdo?

Porque não usa o update?

Exemplo...

rs.Open [txt-color=#0000f0][Ô][/txt-color]update CAD_BANCO set nome_do_seu_campo=[txt-color=#e80000][ô][/txt-color][txt-color=#0000f0][Ô][/txt-color] & txt_nome.Text &[txt-color=#0000f0] [Ô][/txt-color][txt-color=#e80000][ô][/txt-color][txt-color=#0000f0][Ô][/txt-color] & [txt-color=#0000f0][Ô][/txt-color]where cod = [txt-color=#0000f0][Ô][/txt-color] & codigo, db, 3, 3

Faça o mesmo na tabela FLUXO.

Deixei as aspas duplas em azul para que não confunda com as aspas simples (em vermelho)

Tudo de bom.
Tópico encerrado , respostas não são mais permitidas
Voltar