Insert em duas tabelas

[alinekelly 0]

Salve Galera...

Tenho o seguinte código de INSERT

 

If (CStr(Request("MM_insert")) = "form1") Then

 

MM_editConnection = MM_CRM_Dora_STRING

MM_editTable = "NOTEPAD"

MM_editRedirectUrl = "pos_vendas_ok.asp"

MM_fieldsStr = "descricao_notepad|value|categoria|value|cliente|value|pedido|value|dia|valu

e|hora|value|vendedora|value"

MM_columnsStr = "DESCRICAO|',none,''|CATEGORIA|',none,''|CLIENTE|none,none,NULL|PEDIDO|none,none,NULL|DIA|',none,NULL|HORA|',none,NULL|REGISTRADO_POR|',none,''"

Só que preciso que ao mesmo tempo que este formulári ofor postado , seja gravado na tabela VENDAS no campo POS_VENDAS, o valor de um HIDDEN FIELD que recebe o nome de POSVENDAS, mas não tenho ideia de como fazer isso...

Se alguem puder me ajudar......

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[DSerma 19]

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("NOMEDOSEUBANCO.mdb")
Valor = request.Form("POSVENDAS")
SQL = "INSERT INTO VENDAS (POS_VENDA) VALUES ('" & Valor & "')"
Set Rs = Conn.Execute(SQL)

 

Abraços...

[dataset 0]

faz a gravação no banco:

strSQL = "INSERT INTO Cursos(nomCur,NomAbr) VALUES('"&request("curso")&"','"&request("cursored")&"')"
conSTR.execute strSQL,,128

Se o campo for do tipo varchar, deve estar entre aspas simples, o nome do hidden está no request.

 

Não se esqueça que conSTR é a tua conexao com o banco, ok?

 

Troca os campos de acordo com tua necessidade.

[alinekelly 0]

Então, acho que não fui muito clara, preciso que o mesmo FORM, grave informações em duas tabelas diferentes, as informações não são iguais nas duas tabelas, para cada tabela eu tenho campos do formulário separadamente

 

Valew

[DSerma 19]

É só fazer um insert.. e depois o outro.... simples assim:

 

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("NOMEDOSEUBANCO.mdb")

Valor = request.Form("POSVENDAS")
SQL = "INSERT INTO VENDAS (POS_VENDA) VALUES ('" & Valor & "')"
Set Rs = Conn.Execute(SQL)


Valor1 = request.Form("POSVENDAS_1")
SQL1 = "INSERT INTO VENDAS_1 (POS_VENDA1) VALUES ('" & Valor1 & "')"
Set Rs1 = Conn.Execute(SQL1)

 

Abraços....

[alinekelly 0]

fiz assim :

 

<%

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" &

 

Server.MapPath("dados/bd.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

 

' Aqui vai o comando insert:

 

strSQL1 = "INSERT INTO NOTEPAD (DESCRICAO, CATEGORIA, CLIENTE, PEDIDO,

 

DIA, HORA, REGISTRADO_POR)"

strSQL1 = strSQL1 & "VALUES ('" & Request.Form("descricao_notepad") &

 

"', '" & Request.Form("categoria") & "', '" & Request.Form("cliente")

 

& "', " & int(Request.Form("pedido")) & ", '" & Request.Form("dia") &

 

"', '" & Request.Form("hora") & "', '" & Request.Form("vendedora") &

 

"')"

 

' Aqui vai o comando insert2:

strSQL2 = "INSERT INTO VENDAS (pos_vendas)"

strSQL2 = strSQL2 & "VALUES ('S')"

bd.Execute strSQL1

bd.Execute strSQL2

 

%>

Não dá nenhuma mensagem de erro, mas não grava o 2º INSERT

[DSerma 19]

Coloque o "bd.Execute strSQL1" antes do segundo SQL...

 

Abraços...

[Mário Monteiro 179]

o primeiro gravou normal? deveria ter gravado o segundo tambem