CRIAR UMA TRIGGER PELO VB6

JLAUROSOUZA 10/01/2011 15:46:14
#361764
ESTOU TENTANDO CRIAR UMA TRIGGER PELO VB ASSIM: MAIS TA DANDO ERROR CLARO!!! RSRSRSRSRS...
ALGUEM PODE ME AJUDA?

Private Sub Command1_Click()
Dim TBB As ADODB.Recordset
Set TBB = New ADODB.Recordset

TBB.Source = [Ô]CREATE TRIGGER LOG_INSERT_ADM_ConfigParametros ON dbo.ADM_ConfigParametros[Ô]
TBB.Source = TBB.Source + [Ô] FOR INSERT [Ô]
TBB.Source = TBB.Source + [Ô] AS [Ô]

TBB.Source = [Ô]Insert INDUSTRIA_LOG.dbo.ADM_ConfigParametros[Ô]
TBB.Source = TBB.Source + [Ô]( [LOG_DATA_HORA],[Ô]
TBB.Source = TBB.Source + [Ô] [LOG_ESTACAO],[Ô]
TBB.Source = TBB.Source + [Ô] [LOG_ACAO], [Ô]

TBB.Source = TBB.Source + [Ô] SELECT[Ô]
TBB.Source = TBB.Source + [Ô] GETDATE(),[Ô]
TBB.Source = TBB.Source + [Ô] HOST_NAME(),[Ô]
TBB.Source = TBB.Source + [Ô] [ô]INCLUIDO[ô],[Ô]
TBB.Source = TBB.Source + [Ô] From INSERTED[Ô]

TBB.Open , cn, adOpenDynamic, adLockOptimistic
JLAUROSOUZA 10/01/2011 19:32:55
#361792
Amigo LVFIOROT,

no meu caso eu utilizaria assim:


Dim TB As ADODB.Recordset
Set TB = New ADODB.Recordset

TB.Open , cn, adOpenDynamic, adLockOptimistic

TB.Execute [Ô]CREATE TRIGGER LOG_INSERT_ADM_ConfigParametros ON dbo.ADM_ConfigParametros FOR INSERT AS Insert [Ô] & xNBancoPrincial & [Ô]_LOG.dbo.ADM_ConfigParametros ([LOG_DATA_HORA], LOG_ESTACAO], [LOG_ACAO], GETDATE(), HOST_NAME(), [ô]INCLUIDO[ô] From INSERTED[Ô]



onde o [Ô]cn[Ô], ja é a conexão do meu DataBase, mais o metodo [Ô]TB.Execute[Ô], naum é ativado, da a seguite mensagem:

[Ô]METHOD OR DATA MEMBER NOT FOUND[Ô] = [Ô]MEMBROS MéTODO DE DADOS NÃO ENCONTRADO[Ô]

O Q SERA?

DESCULPA MINHA IGNORANCIA!!! rsrsrsrsrsrs...
JLAUROSOUZA 10/01/2011 19:59:05
#361796
CONSEGUI!!!

SUA DICA DE EXECUTA NO MANAGER NE AJUDOU!!!!

O MODO CORRETO é ASSIM:


Dim TBB As ADODB.Recordset
Set TBB = New ADODB.Recordset

TBB.Source = [Ô]CREATE TRIGGER LOG_INSERT_ADM_ConfigParametros ON dbo.ADM_ConfigParametros FOR INSERT[Ô]

TBB.Source = TBB.Source + [Ô] AS INSERT [Ô] & xNBancoPrincial & [Ô]_LOG.dbo.ADM_ConfigParametros[Ô]
TBB.Source = TBB.Source + [Ô]([LOG_DATA_HORA], [LOG_ESTACAO ], [LOG_ACAO])[Ô]
TBB.Source = TBB.Source + [Ô]SELECT GETDATE(), HOST_NAME(), [ô]INCLUIDO[ô][Ô]
TBB.Source = TBB.Source + [Ô] From INSERTED[Ô]

TBB.Open , cn, adOpenDynamic, adLockOptimistic


ESTA EXECUTANDO OTIMAMENTE!!!

VALEU LVFIOROT!!!
ABRAÇO!!!
JLAUROSOUZA 11/01/2011 10:17:01
#361847
Amigo LVFIOROT,

o meu código funciona assim como a sua segunda opção, isso para SQL-SERVER, a sua premeira opção não funciona para o SQL-SERVER.

Mesmo assim Agradeço muito sua atenção.

Abraço!!!
Tópico encerrado , respostas não são mais permitidas
Voltar