SQL SERVER
Colegas, tenho um banco chamado Banco1 e contem as infromaçoes e cliente outro banco , o Banco@ as informacoes de vendedor, como faço pra ler o banco um e pegar outros informaçoes no banco 2 com um campo da tabela nop banco1.
Eu fiz assim:
BancoDados1 = [Ô]Banco1[Ô]
BC1.Provider = [Ô]SQLOLEDB[Ô]
BC1.Properties([Ô]Data Source[Ô]).Value = servidor
BC1.Properties([Ô]Initial Catalog[Ô]).Value = BancoDados1
BC1.Properties([Ô]User ID[Ô]).Value = usuario
BC1.Properties([Ô]Password[Ô]).Value = senha
BC1.Open
Bancodados2 = [Ô]Banco2[Ô]
BC2.Provider = [Ô]SQLOLEDB[Ô]
BC2.Properties([Ô]Data Source[Ô]).Value = servidor
BC2.Properties([Ô]Initial Catalog[Ô]).Value = Bancodados2
BC2.Properties([Ô]User ID[Ô]).Value = usuario
BC2.Properties([Ô]Password[Ô]).Value = senha
BC2.Open
A Instruçao
Set Tabela1 = New ADODB.Recordset
usu = [Ô]select * from gerencia order by descricao asc[Ô]
Tabela1.CursorLocation = adUseClient
Tabela1.Open usu, Moinho, adOpenForwardOnly, adLockPessimistic
While Not Tabela1.EOF
If Tabela1([Ô]ativo[Ô]) = 1 Then
Set Tabela2 = New ADODB.Recordset
forn = [Ô]SELECT * FROM vendedor where ((cd_gerencia) = [ô][Ô] & (Tabela1([Ô]cd_gerencia[Ô])) & [Ô][ô]) order by Vendedor asc[Ô]
Tabela2.CursorLocation = adUseClient
Tabela2.Open forn, Datamart, adOpenForwardOnly, adLockPessimistic
DA ERRO - Invalid Object name [ô]Vendedor[Ô], mas existe a tabela, a permissao no SQL esta certo, onde esta o erro ?
Eu fiz assim:
BancoDados1 = [Ô]Banco1[Ô]
BC1.Provider = [Ô]SQLOLEDB[Ô]
BC1.Properties([Ô]Data Source[Ô]).Value = servidor
BC1.Properties([Ô]Initial Catalog[Ô]).Value = BancoDados1
BC1.Properties([Ô]User ID[Ô]).Value = usuario
BC1.Properties([Ô]Password[Ô]).Value = senha
BC1.Open
Bancodados2 = [Ô]Banco2[Ô]
BC2.Provider = [Ô]SQLOLEDB[Ô]
BC2.Properties([Ô]Data Source[Ô]).Value = servidor
BC2.Properties([Ô]Initial Catalog[Ô]).Value = Bancodados2
BC2.Properties([Ô]User ID[Ô]).Value = usuario
BC2.Properties([Ô]Password[Ô]).Value = senha
BC2.Open
A Instruçao
Set Tabela1 = New ADODB.Recordset
usu = [Ô]select * from gerencia order by descricao asc[Ô]
Tabela1.CursorLocation = adUseClient
Tabela1.Open usu, Moinho, adOpenForwardOnly, adLockPessimistic
While Not Tabela1.EOF
If Tabela1([Ô]ativo[Ô]) = 1 Then
Set Tabela2 = New ADODB.Recordset
forn = [Ô]SELECT * FROM vendedor where ((cd_gerencia) = [ô][Ô] & (Tabela1([Ô]cd_gerencia[Ô])) & [Ô][ô]) order by Vendedor asc[Ô]
Tabela2.CursorLocation = adUseClient
Tabela2.Open forn, Datamart, adOpenForwardOnly, adLockPessimistic
DA ERRO - Invalid Object name [ô]Vendedor[Ô], mas existe a tabela, a permissao no SQL esta certo, onde esta o erro ?
Vendedor é uma TABELA ou um CAMPO?
Quando você informar a cláusula [txt-color=#0404B4]ORDER BY[/txt-color] algo, o algo é um CAMPO e não uma TABELA.
SELECT *
FROM vendedor
where ((cd_gerencia) = [ô][Ô] & (Tabela1([Ô]cd_gerencia[Ô])) & [Ô][ô]) order by Vendedor asc
Quando você informar a cláusula [txt-color=#0404B4]ORDER BY[/txt-color] algo, o algo é um CAMPO e não uma TABELA.
Voce esta certo, mas no order by Vendedor, o vendedor é um campo com o nome igual da tabela, por causa disto estva dando problemas. valeu, consegui ver depois doseu comentario.
Mas mesmo assim o erro continua. Caracas
Tópico encerrado , respostas não são mais permitidas