Inserindo Em Duas Tabelas

[frnd]

A Tabela recado possui uma sequencia no banco, então quando eu insiro um linha de registro nesta tabela, automaticamente a sequencia dará um valor ao registro, só que quero fazer da seguinte maneira.

Quero que na tabela recado_log também grave a sequencia da tabela recado, mas só que por enquanto não existe a variável para inserir a sequencia...

[]s

sql = "insert into recado (titulo, descricao, data, idmural, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&idmural&"', '"&usuario&"')"

sql2 = "insert into recado_log (idrecado, titulo, descricao, data, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&usuario&"')"

[.Andreia.]

não entendi, explique melhor

[frnd]

Queria que a sequencia da tabela recado fosse inserida na tabela recado_log por meio de alguma variável no VALUES

[baladaclick]

mostra seu código! mas tenta assim

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("pasta/banco.mdb")
Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset")
Set RS2= Server.CreateObject("ADODB.Recordset")

sql = "insert into recado (titulo, descricao, data, idmural, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&idmural&"', '"&usuario&"')"
sql2 = "insert into recado_log (idrecado, titulo, descricao, data, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&usuario&"')"

rs.open SQL, conn, 3
rs2.open  SQL2, conn, 3

[Camisa]

A Tabela recado possui uma sequencia no banco, então quando eu insiro um linha de registro nesta tabela, automaticamente a sequencia dará um valor ao registro, só que quero fazer da seguinte maneira.

Quero que na tabela recado_log também grave a sequencia da tabela recado, mas só que por enquanto não existe a variável para inserir a sequencia...

[]s

sql = "insert into recado (titulo, descricao, data, idmural, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&idmural&"', '"&usuario&"')"

sql = "insert into recado_log (idrecado, titulo, descricao, data, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&usuario&"')"

captei a dúvida

tenta assim, supondo que:

código gerado tenha o nome de cod_recado ok

sql = "insert into recado (titulo, descricao, data, idmural, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&idmural&"', '"&usuario&"')"

set rs=Server.CreateObject("ADODB.recordset")

SQL = "SELECT cod_recado "

SQL = SQL & " FROM recado"

SQL = SQL & " WHERE titulo = '"&VarAssunto&"'"

rs.Open SQL, Conexao

While Not rs.EOF

cod_recado = rs("cod_recado")

rs.MoveNext

Wend

sql = "insert into recado_log (idrecado, titulo, descricao, data, idusuario) values ('"&cod_recado&"', '"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&usuario&"')"

agora da uma olhada na minha dúvida e ve se você pode ma ajudar....

"socorroooooooooo . . . ."

Editado Março 31, 2007 por Camisa

[Romero Dias]

kara, essa query pode dar errado, pois, se algum titulo antigo for = ao titulo atual, iria retornar mais de um codigo,

bom, acho melhor fazer o select assim

SQL = "select Max(cod_recado) AS Codigo"

rs.Open SQL, Conexao

If rs.Eof or rs.Bof then

Response.Write Err.description

Else

cod_recado = rs("Codigo")

End If

espero ter ajudado

falou