Pessoal esse codigo ele puxa o codigo de uma tabela no banco de dados e prenche outros campos.
Mas queria saber como ele puxar um dado de uma tabela diferente e jogar em outra tabela. o codigo de inserção é assim:
<%
sqlstmt = "update tbl_users set EmailValido='"&Cstr((rs.Fields.Item("Email").Value))&"' where Codcliente = "&Cstr((rs.Fields.Item("Codcliente").Value))&""
Set conn = server.createobject("ADODB.Connection") 'abre a conexão com o banco de dados
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=E:\home\bbro\dados\teste\db.mdb" 'avisa qual banco de dados será utilizado na consulta
set rsquery = conn.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt
set rsquery = nothing
set conn = nothing
'Note que não é necessário fechar a rsquery. Isso ocorre devido à string de alteração não ficar armazenada na memória , para futura consulta. Ela é executada, e automaticamente, fechada. Isso também ocorre nas strings de atualização e inserção.
%>
Inserção De Dados De Uma Tabela Para Outra
Started By Fragnatic, 18/02/2009, 11:09
1 reply to this topic
#1
Posted 18/02/2009, 11:09
volcomlopes@hotmail.com
rafaellopes@up-dot.com
rafaellopes@up-dot.com
#2
Posted 19/02/2009, 14:50
Veja se isso ajuda:
Se tiver disponibilidade para ver, aconselho, muito bom.
<% Set conn = server.createobject("ADODB.Connection") conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=E:\home\bbro\dados\teste\db.mdb" Set rs = Server.CreateObject("ADODB.recordset") rs.Open "select distinct email, codcliente from [TABELA]", conn For Each x In rs.fields sqlstmt = "update tbl_users set emailvalido='"& Cstr(x.Email) &"' where codcliente = "& Cstr(x.Codcliente) &"" conn.execute(sqlstmt) Next Set rs = nothing Set conn = nothing %>Link interessante: ADO Tutorial (você já deve conhecer)
Se tiver disponibilidade para ver, aconselho, muito bom.
Edição feita por: Renan L. Queiroz, 19/02/2009, 14:50.
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)