Preciso de algumas dicas... Sistema de cadastramento de usuários...

[Érica Regina 0]

Oi pessoal.

 

Eu tenho aqui uma query que fiz no access.

 

Tenho tmb um site que fiz pra gerar um cadastramento de usuário e de produtos.

 

Eu preciso fazer uma conexão da minha query com o meu site.

 

A query roda perfeitamente no access, mas não tenho ideia de como faze-la rodar no asp.

 

Alguem pode me dar algumas dicas??

 

Valeu pessoal.

 

Fiquem todos na paz.

[Mário Monteiro 179]

o que quer que faça mais precisamente?

[Ted k' 126]

você está dizendo, fazer uma conexão com o banco access??

uma string de conexão?

[lifeSample 1]

Conection Strings:

Via ODBC (conexao)

 

"Driver={Microsoft Access Driver (*.mdb)};Dbq=DIRETORIODOBDCOMPLETO;Uid=;Pwd=;"

 

Via OLE (conexao)

 

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DIRETORIODOBDCOMPLETO;User Id=admin;Password=;"

 

fonte

ITM NETWORKS

 

Aqui eu faço assim

 

Set banco = Server.CreateObject("ADODB.Connection")
banco.Open "Driver={Microsoft Access Driver (*.mdb)};bd.mdb;Uid=;Pwd=;"
sql = "DELETE FROM news WHERE id = "& id &";"
Set rs = banco.Execute(sql)
banco.Close
Set rs = Nothing

Explicando:

 

Set banco = (...) abri conexão

banco.Open = (...) o local do banco de dados

sql = (...) código em sql (UPDATE, DELETE, SELECT * FROM)

Set rs = (...) executa acão "sql" no bd

banco.close

ser rs = nothing

Limpa o cache.

 

Espero que seja isso

[Érica Regina 0]

Bom é o seguinte.

 

O Site esta todo pronto. Neste dite existem alguns formulários que possibilita o cliente efetuar um pedido, fazer um cadastro...

A query esta pronta, usei o access pra fazer.

 

A questão agora é, onde devo e como faço pra testar esta query no meu site?

Como fazer com que os dados digitados no form sejam inseridos no banco e façam exatamente o que a query faz?

 

Eu sei fazer conexão com banco de dados ASP + access, porém a questão é que eu não sei onde testar esta query entende?

 

Em que lugar do site devo testar a query??

 

Abç.

[Mário Monteiro 179]

o seu formulario vai enviar os dados para outra pagina

 

nesta voce vai colcoar os codigos que farão esta ação

[jrcardozo 4]

poderia postar a tal query que voê tem?

[Érica Regina 0]

Ai pessol segue uma parte da query

 

SELECT Sum(T.total) AS Total
FROM (
SELECT sum (P.Valor * C.valor_comissao / 100) AS total
FROM Associado AS e2
INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON 
C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS 
PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido = 
PP.CodigoPedido)) ON (e2.Matricula = C.matr_associado_credito) AND 
(e2.Matricula = P.Matr_associado)
WHERE e2.Matr_Indic = [Matricula:]
AND PP.ValorPagamento IS NOT NULL
AND Format(PP.DataPagamento,"mmyyyy")=[MesAno:]

union ALL

SELECT sum (P.Valor * C.valor_comissao / 100) AS total
FROM Associado AS e3
INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON 
C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS 
PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido = 
PP.CodigoPedido)) ON (e3.Matricula = C.matr_associado_credito) AND 
(e3.Matricula = P.Matr_associado)
WHERE e3.Matr_Indic IN (SELECT e4.Matricula FROM Associado e4 WHERE 
e4.Matr_Indic = [Matricula:])
AND PP.ValorPagamento IS NOT NULL
 AND Format(PP.DataPagamento,"mmyyyy")=[MesAno:]

 union ALL

 SELECT sum (P.Valor * C.valor_comissao / 100) AS total
FROM Associado AS e5
INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON 
C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS 
PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido = 
PP.CodigoPedido)) ON (e5.Matricula = C.matr_associado_credito) AND 
(e5.Matricula = P.Matr_associado)
WHERE e5.Matr_Indic IN (SELECT e3.Matricula FROM Associado e3 WHERE 
e3.Matr_Indic IN (SELECT e4.Matricula FROM Associado e4 WHERE e4.Matr_Indic 
= [Matricula:]))
 AND PP.ValorPagamento IS NOT NULL
AND Format(PP.DataPagamento,"mmyyyy")=[MesAno:]

union ALL

 SELECT sum (P.Valor * C.valor_comissao / 100) AS total
 FROM Associado AS e6
 INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON 
C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS 
PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido = 
PP.CodigoPedido)) ON (e6.Matricula = C.matr_associado_credito) AND 
 (e6.Matricula = P.Matr_associado)
WHERE e6.Matr_Indic IN (SELECT e5.Matricula FROM Associado e5 WHERE 
e5.Matr_Indic IN (SELECT e3.Matricula FROM Associado e3 WHERE e3.Matr_Indic 
IN (SELECT e4.Matricula FROM Associado e4 WHERE e4.Matr_Indic = 
[Matricula:])))
AND PP.ValorPagamento IS NOT NULL
AND Format(PP.DataPagamento,"mmyyyy")=[MesAno:]) AS T;

 

poderia postar a tal query que voê tem?

[jrcardozo 4]

no asp a ideia seria assm. Crie um formulario e dentro dele doins input text, um para a matricula e outro para mes/ano, ao clicar em enviar vai para uma pagina onde terá a conexao com o bano e a execução da query:

ASP

'coloque o codigo da conexao

matricula = request("matricula")

mesAno = request("mesano")

sql = "SELECT Sum(T.total) AS Total

FROM (

SELECT sum (P.Valor * C.valor_comissao / 100) AS total

FROM Associado AS e2

INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON

C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS

PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido =

PP.CodigoPedido)) ON (e2.Matricula = C.matr_associado_credito) AND

(e2.Matricula = P.Matr_associado)

WHERE e2.Matr_Indic = [Matricula:]

AND PP.ValorPagamento IS NOT NULL

AND Format(PP.DataPagamento,"mmyyyy")=["&mesAno&":]

 

union ALL

 

SELECT sum (P.Valor * C.valor_comissao / 100) AS total

FROM Associado AS e3

INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON

C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS

PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido =

PP.CodigoPedido)) ON (e3.Matricula = C.matr_associado_credito) AND

(e3.Matricula = P.Matr_associado)

WHERE e3.Matr_Indic IN (SELECT e4.Matricula FROM Associado e4 WHERE

e4.Matr_Indic = [Matricula:])

AND PP.ValorPagamento IS NOT NULL

 AND Format(PP.DataPagamento,"mmyyyy")=["&mesAno&":]

 

 union ALL

 

 SELECT sum (P.Valor * C.valor_comissao / 100) AS total

FROM Associado AS e5

INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON

C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS

PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido =

PP.CodigoPedido)) ON (e5.Matricula = C.matr_associado_credito) AND

(e5.Matricula = P.Matr_associado)

WHERE e5.Matr_Indic IN (SELECT e3.Matricula FROM Associado e3 WHERE

e3.Matr_Indic IN (SELECT e4.Matricula FROM Associado e4 WHERE e4.Matr_Indic

= [Matricula:]))

 AND PP.ValorPagamento IS NOT NULL

AND Format(PP.DataPagamento,"mmyyyy")=["&mesAno&":]

 

union ALL

 

 SELECT sum (P.Valor * C.valor_comissao / 100) AS total

 FROM Associado AS e6

 INNER JOIN ((comissao AS C INNER JOIN Pedido AS P ON

C.matr_associado_credito = P.Matr_associado) INNER JOIN pedido_pagamento AS

PP ON (PP.CodigoPagamento = C.CodigoPagamento) AND (P.CodigoDoPedido =

PP.CodigoPedido)) ON (e6.Matricula = C.matr_associado_credito) AND

 (e6.Matricula = P.Matr_associado)

WHERE e6.Matr_Indic IN (SELECT e5.Matricula FROM Associado e5 WHERE

e5.Matr_Indic IN (SELECT e3.Matricula FROM Associado e3 WHERE e3.Matr_Indic

IN (SELECT e4.Matricula FROM Associado e4 WHERE e4.Matr_Indic =

["&matricula&":])))

AND PP.ValorPagamento IS NOT NULL

AND Format(PP.DataPagamento,"mmyyyy")=["&mesAno&":]) AS T;"

set rs = con.execute(sql) 'executa a conexão(con) abrindo o recordset contendo os dados resultantes da query