Função e Procedimentos

[Jsuptec 0]

Como faço para criar funções e procedimentos que preencham uma variável global, com informações, de acordo com uma consistência efetuada nos valores repassados pelo formulário. ??

[gastao 0]

q complicado............explique melhor amigo... valeu ?!!

[Jsuptec 0]

Tenho um formulário com bd, do tipo MDB(Access), alguns campos saum do tipo inteiro, quando o usuário clica sobre o enviar, um ASP gera a linha SQL que vai ser executada ao final do mesmo, mas como são varios campos tenho que ficar colando o mesmo codigo para cada campo, Gostaria de criar um procedimento, funcao, sub rotina, sei la o que, que com passagem por parametro, me retorne o resultado do teste. Por exemplo passo o nome do campo strEndereco, a funcao verifica e retorna 0 se estiver vazio!

[JucaMaster 0]

É bem complicado oq você quer em meu!!B) Eu conheço uma view que faz a inclusão sem você precizar ficar digitando mas é apenas para sql!! Tipo é para uma administração de comércio eletrônico se você quizer........ Falow Juliano

[Jsuptec 0]

Se você puder me mandar, beleza!!

[JucaMaster 0]

********************************************************************************************************Aqui tem todas as rotinas do banco mas acho que oq você *precisa está lá em baixo nas funções do carrinho de4 compras *espero poder ter te ajudado!! * ******************************************************ALTER TABLE [dbo].[itens_carrinho] DROP CONSTRAINT FK_itens_carrinho_carrinhoGOALTER TABLE [dbo].[produtos] DROP CONSTRAINT FK__produtos__cod_ca__20C1E124GOALTER TABLE [dbo].[pedidos] DROP CONSTRAINT FK__pedidos__cod_cli__3C69FB99GOALTER TABLE [dbo].[itens_pedido] DROP CONSTRAINT FK__itens_ped__cod_p__3F466844GOALTER TABLE [dbo].[itens_carrinho] DROP CONSTRAINT FK__itens_car__cod_p__32E0915FGOALTER TABLE [dbo].[itens_pedido] DROP CONSTRAINT FK__itens_ped__cod_p__403A8C7DGOALTER TABLE [dbo].[promocoes] DROP CONSTRAINT FK__promocoes__cod_p__29572725GO/****** Object: Stored Procedure dbo.AdicionaCarrinho Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[AdicionaCarrinho]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[AdicionaCarrinho]GO/****** Object: Stored Procedure dbo.FechaPedido Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[FechaPedido]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[FechaPedido]GO/****** Object: Stored Procedure dbo.AdicionaCliente Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[AdicionaCliente]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[AdicionaCliente]GO/****** Object: Stored Procedure dbo.CriaCarrinho Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[CriaCarrinho]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[CriaCarrinho]GO/****** Object: View dbo.itensCarrinho Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[itensCarrinho]') and OBJECTPROPERTY(id, N'IsView') = 1)drop view [dbo].[itensCarrinho]GO/****** Object: View dbo.PrecoProduto Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[PrecoProduto]') and OBJECTPROPERTY(id, N'IsView') = 1)drop view [dbo].[PrecoProduto]GO/****** Object: View dbo.promocoesproduto Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[promocoesproduto]') and OBJECTPROPERTY(id, N'IsView') = 1)drop view [dbo].[promocoesproduto]GO/****** Object: Table [dbo].[itens_carrinho] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[itens_carrinho]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[itens_carrinho]GO/****** Object: Table [dbo].[itens_pedido] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[itens_pedido]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[itens_pedido]GO/****** Object: Table [dbo].[promocoes] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[promocoes]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[promocoes]GO/****** Object: Table [dbo].[pedidos] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[pedidos]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[pedidos]GO/****** Object: Table [dbo].[produtos] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[produtos]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[produtos]GO/****** Object: Table [dbo].[carrinho] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[carrinho]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[carrinho]GO/****** Object: Table [dbo].[categorias] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[categorias]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[categorias]GO/****** Object: Table [dbo].[clientes] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[clientes]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[clientes]GO/****** Object: Table [dbo].[logBanner] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[logBanner]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[logBanner]GO/****** Object: Table [dbo].[uSUARIOS] Script Date: 10/7/2003 21:52:32 ******/if exists (select * from sysobjects where id = object_id(N'[dbo].[uSUARIOS]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[uSUARIOS]GO/****** Object: Table [dbo].[carrinho] Script Date: 10/7/2003 21:52:34 ******/CREATE TABLE [dbo].[carrinho] ( [cod_carrinho] [int] IDENTITY (1, 1) NOT NULL , [ip_cliente] [varchar] (15) NOT NULL , [dt_carrinho] [smalldatetime] NOT NULL )GO/****** Object: Table [dbo].[categorias] Script Date: 10/7/2003 21:52:35 ******/CREATE TABLE [dbo].[categorias] ( [cod_categoria] [int] IDENTITY (1, 1) NOT NULL , [ds_categoria] [varchar] (100) NULL )GO/****** Object: Table [dbo].[clientes] Script Date: 10/7/2003 21:52:35 ******/CREATE TABLE [dbo].[clientes] ( [cod_cliente] [int] IDENTITY (1, 1) NOT NULL , [nm_cliente] [varchar] (100) NOT NULL , [cpf_cliente] [char] (15) NOT NULL , [end_cliente] [varchar] (200) NOT NULL , [cartao] [varchar] (9) NULL , [nr_cartao] [varchar] (30) NULL , [validade] [char] (5) NULL , [email_cliente] [varchar] (200) NULL )GO/****** Object: Table [dbo].[logBanner] Script Date: 10/7/2003 21:52:36 ******/CREATE TABLE [dbo].[logBanner] ( [dt_clique] [smalldatetime] NULL , [ip_clique] [varchar] (15) NULL , [url_clique] [varchar] (100) NULL ) ON [PRIMARY]GO/****** Object: Table [dbo].[uSUARIOS] Script Date: 10/7/2003 21:52:36 ******/CREATE TABLE [dbo].[uSUARIOS] ( [COD_USUARIO] [int] IDENTITY (1, 1) NOT NULL , [NM_USUARIO] [varchar] (60) NULL , [email_USUARIO] [varchar] (100) NULL , [MASTER_USUARIO] [bit] NULL , [sENHA_USUARIO] [varchar] (10) NULL )GO/****** Object: Table [dbo].[pedidos] Script Date: 10/7/2003 21:52:36 ******/CREATE TABLE [dbo].[pedidos] ( [cod_pedido] [int] IDENTITY (1, 1) NOT NULL , [ip_cliente] [varchar] (15) NULL , [dt_pedido] [smalldatetime] NULL , [cod_cliente] [int] NULL )GO/****** Object: Table [dbo].[produtos] Script Date: 10/7/2003 21:52:36 ******/CREATE TABLE [dbo].[produtos] ( [cod_produto] [int] IDENTITY (1, 1) NOT NULL , [nm_produto] [varchar] (60) NOT NULL , [cod_categoria] [int] NOT NULL , [ds_produto] [varchar] (400) NULL , [val_produto] [smallmoney] NOT NULL , [img_produto] [varchar] (255) NULL )GO/****** Object: Table [dbo].[itens_carrinho] Script Date: 10/7/2003 21:52:37 ******/CREATE TABLE [dbo].[itens_carrinho] ( [cod_carrinho] [int] NOT NULL , [cod_produto] [int] NOT NULL , [qtd_produto] [int] NOT NULL , [val_produto] [smallmoney] NOT NULL )GO/****** Object: Table [dbo].[itens_pedido] Script Date: 10/7/2003 21:52:37 ******/CREATE TABLE [dbo].[itens_pedido] ( [cod_pedido] [int] NOT NULL , [cod_produto] [int] NOT NULL , [qtd_produto] [int] NOT NULL , [val_produto] [smallmoney] NULL )GO/****** Object: Table [dbo].[promocoes] Script Date: 10/7/2003 21:52:37 ******/CREATE TABLE [dbo].[promocoes] ( [cod_produto] [int] NOT NULL , [val_produto] [smallmoney] NULL , [dt_venc_promo] [smalldatetime] NULL )GOALTER TABLE [dbo].[carrinho] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_carrinho] ) ON [PRIMARY] GOALTER TABLE [dbo].[categorias] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_categoria] ) ON [PRIMARY] GOALTER TABLE [dbo].[clientes] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_cliente] ) ON [PRIMARY] GOALTER TABLE [dbo].[uSUARIOS] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [COD_USUARIO] ) ON [PRIMARY] GOALTER TABLE [dbo].[pedidos] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_pedido] ) ON [PRIMARY] GOALTER TABLE [dbo].[produtos] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_produto] ) ON [PRIMARY] GOALTER TABLE [dbo].[itens_carrinho] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_carrinho], [cod_produto] ) ON [PRIMARY] GOALTER TABLE [dbo].[itens_pedido] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_pedido], [cod_produto] ) ON [PRIMARY] GOALTER TABLE [dbo].[promocoes] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [cod_produto] ) ON [PRIMARY] GOALTER TABLE [dbo].[itens_carrinho] WITH NOCHECK ADD CONSTRAINT [DF__itens_car__qtd_p__31EC6D26] DEFAULT (1) FOR [qtd_produto]GOALTER TABLE [dbo].[pedidos] ADD FOREIGN KEY ( [cod_cliente] ) REFERENCES [dbo].[clientes] ( [cod_cliente] )GOALTER TABLE [dbo].[produtos] ADD FOREIGN KEY ( [cod_categoria] ) REFERENCES [dbo].[categorias] ( [cod_categoria] )GOALTER TABLE [dbo].[itens_carrinho] ADD FOREIGN KEY ( [cod_produto] ) REFERENCES [dbo].[produtos] ( [cod_produto] ), CONSTRAINT [FK_itens_carrinho_carrinho] FOREIGN KEY ( [cod_carrinho] ) REFERENCES [dbo].[carrinho] ( [cod_carrinho] )GOALTER TABLE [dbo].[itens_pedido] ADD FOREIGN KEY ( [cod_pedido] ) REFERENCES [dbo].[pedidos] ( [cod_pedido] ), FOREIGN KEY ( [cod_produto] ) REFERENCES [dbo].[produtos] ( [cod_produto] )GOALTER TABLE [dbo].[promocoes] ADD FOREIGN KEY ( [cod_produto] ) REFERENCES [dbo].[produtos] ( [cod_produto] )GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: View dbo.itensCarrinho Script Date: 10/7/2003 21:52:37 ******/CREATE VIEW dbo.itensCarrinhoASSELECT ic.cod_carrinho, p.img_produto, p.cod_produto, p.nm_produto, ic.qtd_produto, ic.val_produtoFROM itens_carrinho ic INNER JOIN produtos p ON ic.cod_produto = p.cod_produtoGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: View dbo.PrecoProduto Script Date: 10/7/2003 21:52:38 ******/CREATE view PrecoProdutoasselect p.cod_produto, nm_produto, ds_produto, img_produto, case when dt_venc_promo < getdate() or dt_venc_promo is null then p.val_produto else promo.val_produto end as preco, p.cod_categoriafrom produtos as pleft outer join promocoes as promo onpromo.cod_produto = p.cod_produtoGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: View dbo.promocoesproduto Script Date: 10/7/2003 21:52:38 ******/create view promocoesprodutoasselect p.cod_produto, nm_produto, ds_produto, promo.val_produto as preco, img_produtofrom produtos as p inner join promocoes as promoon promo.cod_produto = p.cod_produtowhere dt_venc_promo >= getdate()GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: Stored Procedure dbo.AdicionaCliente Script Date: 10/7/2003 21:52:38 ******/CREATE proc AdicionaCliente( @cod_cliente int output, @nm_cliente varchar(100), @cpf_cliente char(15), @end_cliente varchar(200), @cartao varchar(9), @nr_cartao varchar(30), @validade char(5), @email_cliente varchar(200))asif @cod_cliente is nullbegin insert into clientes values ( @nm_cliente, @cpf_cliente, @end_cliente, @cartao, @nr_cartao, @validade, @email_cliente)select @cod_cliente = @@identityendelseupdate clientes set nm_cliente = @nm_cliente, cpf_cliente = @cpf_cliente, end_cliente = @end_cliente, cartao = @cartao, nr_cartao = @nr_cartao, validade = @validade, email_cliente = @email_clientewhere cod_cliente = @cod_clienteGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: Stored Procedure dbo.CriaCarrinho Script Date: 10/7/2003 21:52:38 ******/create proc CriaCarrinho( @ip varchar(15))asinsert into carrinho(ip_cliente, dt_carrinho)values (@ip, getdate())return @@identityGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: Stored Procedure dbo.FechaPedido Script Date: 10/7/2003 21:52:38 ******/create proc FechaPedido( @cod_carrinho int, @cod_cliente int) asdeclare @cod_pedido intbegin transactioninsert into pedidos(ip_cliente, dt_pedido, cod_cliente)select ip_cliente, dt_carrinho, @cod_cliente from carrinho where cod_carrinho = @cod_carrinhoif @@error <> 0 begin rollback transaction return -1end set @cod_pedido = @@identityinsert into itens_pedido(cod_pedido,cod_produto,qtd_produto, val_produto)select @cod_pedido,cod_produto,qtd_produto,val_produtofrom itens_carrinhowhere cod_carrinho = @cod_carrinhoif @@error <> 0 begin rollback transaction return -1end commit transactionreturn @cod_pedidoGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO/****** Object: Stored Procedure dbo.AdicionaCarrinho Script Date: 10/7/2003 21:52:38 ******/create proc AdicionaCarrinho( @cod_carrinho int, @cod_produto int, @qtde int)asdeclare @linhas intdeclare @preco smallmoneyif @qtde<=0begin delete from itens_carrinho where cod_produto = @cod_produto and cod_carrinho = @cod_carrinho returnend select @preco = preco from precoprodutowhere cod_produto = @cod_produtoselect @linhas = count(*) from itens_carrinhowhere cod_carrinho = @cod_carrinho and cod_produto = @cod_produtoif @linhas = 0 insert into itens_carrinho values(@cod_carrinho,@cod_produto, @qtde, @preco)else update itens_carrinho set qtd_produto = @qtde where cod_carrinho = @cod_carrinho and cod_produto = @cod_produtoreturnGOSET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON GO

[JucaMaster 0]

Bem complicado neh?!!!! B)

[gastao 0]

esse strendereço seria o que, pesquisar no banco ??o problema, é que o codigfo nunca advinhará o nome do campo no bd, entendeu ???o computador é burro, sem nós, ele nao é nada...

[TucaZ 0]

Você pode usar um For Each. O problema é que não sei como ele funciona direito, mas é algo com esse escopo.

 

For Each Textobox    If Textbox = "" then       valor = 0    End IfNext

Tente procurar sobre essa função. Ela executa um código (checagem) para cada objeto de um tipo que você escolher.