CRIAR FUNCAO NO SQL
Galera, é o seguinte, estou precisando criar uma funcão que fiz no VB6, mas na verdade ela tem q ser feita toda no SQ. alguem poderia me ajudar?
SELECT * FROM NomeTabela
if (NomeTabela.RecordCount = 0) then
Delete From OutraTabela where Coluna1= -1 or Coluna1= 0
end if
[ô]O seguinte, eu so posso deletar os valores da OutraTabela se o NomeTabela estiver vazia, pois uma faz referencia a outra.
SELECT * FROM NomeTabela
if (NomeTabela.RecordCount = 0) then
Delete From OutraTabela where Coluna1= -1 or Coluna1= 0
end if
[ô]O seguinte, eu so posso deletar os valores da OutraTabela se o NomeTabela estiver vazia, pois uma faz referencia a outra.
Você pode fazer isso via stored procedure
como assim?
Com relação a Procedure, e o problema
A função ai talves seria muitos parametros a usar
Isso é uma Estancia onde voce usa em Array, ou essas Tabelas e coluna tem nome legitimos de entidades ?
isso não entendi
mais em questao de Procedure
voce quer executar Pass Trought SELECT DELETE fazer uma ação que mudara a Base de Dados
Voce abre o editor do SQL e Run
e no VB pode executar assim
Talves não seja ainda o esperado resultado a qual demonstro
mais tenta ver se voce consegue executar o Delete de uma tabela cabeçalho ,
ai depois mais afundo transformando em Função pois usa bastante parametros
A função ai talves seria muitos parametros a usar
Isso é uma Estancia onde voce usa em Array, ou essas Tabelas e coluna tem nome legitimos de entidades ?
isso não entendi
mais em questao de Procedure
voce quer executar Pass Trought SELECT DELETE fazer uma ação que mudara a Base de Dados
Voce abre o editor do SQL e Run
Citação:
CREATE PROCEDURE SP_tabela_EXCLUSAO
/*
* Recebe os parametros
*/
@Coluna1 varchar(10)
AS
BEGIN TRANSACTION
/*
* Excluindo os dados na tabela
*/
DELETE FROM outratabela WHERE Coluna1 = @Coluna1
IF (@@ERROR <> 0)
BEGIN
RAISERROR([ô]ERROR - SP_tabela_EXCLUSAO - Exclusão de Dados[ô],1,1)
ROLLBACK TRANSACTION
END
COMMIT TRANSACTION
GO
e no VB pode executar assim
Citação:Dim Rst As ADODB.Recordset
Conectar
Dim strSQL As String
strSQL = [Ô]EXECUTE SP_tabela_EXCLUSAO Coluna1[Ô]
Set Rst = conexao.Execute(strSQL)
Rst.Close
Talves não seja ainda o esperado resultado a qual demonstro
mais tenta ver se voce consegue executar o Delete de uma tabela cabeçalho ,
ai depois mais afundo transformando em Função pois usa bastante parametros
Tópico encerrado , respostas não são mais permitidas