TABELA TEMPORARIA

PARREIRA 03/12/2009 13:48:47
#329073

Boa tarde Pessoal!
Alguem sabem como trazer dados de uma tabela temporario no vb6?
KERPLUNK 03/12/2009 13:59:13
#329074
Select * from NomeDaTabelaTemporaria
PARREIRA 03/12/2009 14:13:58
#329075
Ai que esta,atualmente estou dando uma comando
ssql = [Ô]SELECT * FROM ##TABELA[Ô]
Aux.open ssql,db_base,adopenketset

mas logo apos abrir o recordet ele fecha automaticamente!
Não trazendo nada.
LEANDRO 03/12/2009 14:19:43
#329076
Quantos micros tem usando a aplicação ?
a Tabela é criada e deletada em tempo de execução ?

Poste o codigo inteiro
PARREIRA 03/12/2009 14:26:14
#329077
create procedure CONVENIO
as
SET NOCOUNT ON

IF EXISTS (SELECT * FROM tempdb.sys.objects WHERE name = [ô]##CONVENIO[ô] AND type = [ô]U[ô])
BEGIN
DROP TABLE ##CONVENIO
END
SELECT A.N_CD_CODIGO, A.N_CD_FILIAL, A.S_DSC_CODLIB, A.N_CD_STATUS,
A.S_DSC_DATA, B.S_DSC_APELIDO AS S_DSC_FUNCIONARIO,
C.S_DSC_FANTASIA AS S_DSC_FORNECEDOR, A.N_DSC_VALOR,
([ô]N[ô]) AS STATUS
INTO ##CONVENIO FROM TBL_CONVENIO AS A
INNER JOIN TBL_FUNCIONARIO AS B ON B.N_CD_CODIGO = A.N_CD_FUNCIONARIO AND B.N_CD_FILIAL = A.N_CD_FILIALFUNC
INNER JOIN TBL_FORNECEDOR AS C ON C.N_CD_CODIGO = A.N_CD_FORNECEDOR AND C.N_CD_FILIAL = A.N_CD_FILIALFORNEC
ORDER BY B.S_DSC_APELIDO,A.S_DSC_DATA
GO

Aqui esta a procedure no sql

em seguida exucuto ela no vb6 e dou um select na tabela temporaria!

Atualmente estou so na minha maquina local!
LEANDRO 03/12/2009 14:32:05
#329079
e Aonde você cria a Tabela?
PARREIRA 03/12/2009 15:00:56
#329085
quando executo a procedure no vb6.
RCMRO 03/12/2009 15:55:33
#329089 Resposta escolhida
Muda a procedure para:
create procedure CONVENIO
as
SET NOCOUNT ON

ISELECT     A.N_CD_CODIGO, A.N_CD_FILIAL, A.S_DSC_CODLIB, A.N_CD_STATUS,
         A.S_DSC_DATA, B.S_DSC_APELIDO AS S_DSC_FUNCIONARIO, 
         C.S_DSC_FANTASIA AS S_DSC_FORNECEDOR, A.N_DSC_VALOR,
         ([ô]N[ô]) AS STATUS
FROM TBL_CONVENIO AS A      
     INNER JOIN TBL_FUNCIONARIO AS B ON B.N_CD_CODIGO = A.N_CD_FUNCIONARIO AND B.N_CD_FILIAL = A.N_CD_FILIALFUNC      
     INNER JOIN TBL_FORNECEDOR AS C ON C.N_CD_CODIGO = A.N_CD_FORNECEDOR AND C.N_CD_FILIAL = A.N_CD_FILIALFORNEC
ORDER BY B.S_DSC_APELIDO,A.S_DSC_DATA
GO

Acessa da seguinte forma:
Dim rs as new ADODB.RecordSet
Set rs = db_base.Execute([Ô]CONVENIO[Ô])
PARREIRA 03/12/2009 16:21:30
#329091
Puxa cara deu certo!!
Valeu.....
Tópico encerrado , respostas não são mais permitidas
Voltar