1 reply to this topic

[Fragnatic]

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.


%>

[Renan L. Queiroz]

Veja se isso ajuda:

<%
	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.