[Resolvido] Pegar Dados de outra Tabela e Gravar

[BrunoHP 0]

Seguinte não estou conseguindo pegar o dados cadastrados em uma tabela e inserir na outra, tentei na seguinte forma...

 

set placet = server.CreateObject("adodb.recordset")
sql_placet = "INSERT INTO cad_pedido_emissao_placet (nome,pedido_consulta) SELECT pedido_consulta FROM cad_edital_ini WHERE (nome,pedido_consulta)"
set placet = conn.Execute(sql_placet)

Obrigado!

[DSerma 19]

Faça primeiro um SELECT na tabela de origem.. e dentro do LOOP faça a inserção na nova tabela...

 

Att;

[BrunoHP 0]

Ai está o código todo

 

set prof = server.CreateObject("adodb.recordset")
sql_prof = "Select * from cad_edital_ini where codigo = "&cod
set prof = conn.Execute(sql_prof)

if not prof.eof then

set placet = server.CreateObject("adodb.recordset")
sql_inser = "insert into cad_pedido_emissao_placet (pedido_consulta) values values ('"&prof("pedido_consulta")"')"
set placet = conn.Execute(sql_placet)

end if

Deu o seguinte erro:

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/soubr/webcontrol/gravaEscrutinioSecreto.asp, line 12

 

sql_inser = "insert into cad_pedido_emissao_placet (pedido_consulta) values ('"&prof("pedido_consulta")"')"

-------------------------------------------------------------------------------------------------------^

 

Já tirei esses aspas e nada

[DSerma 19]

Falta um & no final da linha do INSERT

 

Att;

[BrunoHP 0]

Falta um & no final da linha do INSERT

 

Att;

 

Coloquei assim

 

sql_placet = "insert into cad_pedido_emissao_placet (pedido_consulta) values ('"&prof("pedido_consulta")&"')"

Erro:

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[MySQL][ODBC 5.1 Driver][mysqld-5.1.41-percona-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

 

/soubr/webcontrol/gravaEscrutinioSecreto.asp, line 7

 

Linha 7:

 

set prof = conn.Execute(sql_prof)

[DSerma 19]

Essa é a linha so select...

De um .Write nela e veja se esta ok...

 

Att;

[BrunoHP 0]

Agora ele está passando mais não grava as informações na tabela cad_pedido_emissao_placet

[xanburzum 169]

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

[Patrique 0]

pow, de domes melhores, você esta especificando nomes estranhos, e gigantes como este

 

cad_pedido_emissao_placet

 

diminua pois vai até te ajudar a não cometer erros de escrita errada por exemplo.

 

isso ajuda muito.

 

Em relação ao erro, caso a dica do Dark e Xam não derem certo tente fazer assim

 

pconsulta = prof("pedido_consulta")

sql_placet = "insert into cad_pedido_emissao_placet (pedido_consulta) values (pconsulta)"

[BrunoHP 0]

Ae galera consegui arrumar... muito obrigado pela ajuda!

 

Abraços.