Jump to content

Archived

This topic is now archived and is closed to further replies.

feasso

Copiar os dados de uma tabela para outra

Recommended Posts

Tenho uma tabela chamada Pedido e gostaria de copiar os dados de 1 pedido para uma tabela chamada PedidosCancelados.

 

Como devo fazer ???

Share this post


Link to post
Share on other sites

Os campos são os mesmos?

Estão no mesmo servidor?

 

Se possível detalhe suas tabelas.

Os campos são exatamente os mesmo e estão no mesmo servidor é o mesmo banco de dados.

 

Na verdade eu gostaria de inserir um registro (pedido novo) identico a outro pedido já existente... então a gravação poderia ser na mesma tabela.

Share this post


Link to post
Share on other sites

Se estiverem com a mesma estrutura e com os mesmos nomes do campo pode usar isso:

 

insert into tb_nova select *from tb_antiga

 

Ps: se tiver algum campo identy não funcionará, mas tem como adaptar tirando esse campo para a mesma estrutura acima.

 

Na verdade eu gostaria de inserir um registro (pedido novo) identico a outro pedido já existente... então a gravação poderia ser na mesma tabela.

Não tem nenhuma coluna diferente? nem chave?

Share this post


Link to post
Share on other sites

Irá mudar 2 valores de campo.

 

1 - ID

2 - StatusPedido

 

Os demais campos terão os mesmo valores.

 

Só quero gerar outro pedido, por isso, será na mesma tabela.

 

Fiz isso:

 

' GERA NOVO PEDIDO (IDENTICO) NA TABELA PEDIDO
	strQuery = "SELECT * FROM PEDIDO WHERE pedCodigo = '" & pedCodigo & "' "
	Set objRs = Conexao.Execute(strQuery)
	
	'PEGANDO OS DADOS DO PEDIDO CANCELADO
	cliCodigo 		= objRs("cliCodigo")
	pedNome			= objRs("pedNome")	
	pedStatus		= 1
	pedEndereco		= objRs("pedEndereco")
	pedNumero		= objRS("pedNumero")
	pedSubTotal 	= objRS("pedSubTotal")
	pedComplemento	= objRS("pedComplemento")
	pedBairro		= objRS("pedBairro")
	pedCEP			= objRS("pedCEP")
	pedCidade		= objRS("pedCidade")
	pedEstado		= objRS("pedEstado")
	pedTelefone		= objRS("pedTelefone")
	pedTelefone2	= objRS("pedTelefone2")
	pedTotalPeso	= objRS("pedTotalPeso")
	pedTipoFrete	= objRS("pedTipoFrete")

	' GERANDO NOVO CÓDIGO DE PEDIDO
	novo_codPedido = pedCodigo + 1
	sqlInsNovo = " pedido_ins_novo "& novo_codPedido 
	Set objRSN = Conexao.Execute(sqlInsNovo)
	Session("pedCodigo") = novo_codPedido

	strSQL = 	" UPDATE PEDIDO SET " &_
				" cliCodigo = '"&cliCodigo&"', " &_
				" pedStatus = 1, " &_
				" pedData = getDate(), " &_
				" pedNome = '"&pedNome&"', " &_
				" pedEndereco = '"&pedEndereco&"', " &_
				" pedNumero = '"&pedNumero&"', " &_
				" pedComplemento = '"&pedComplemento&"', " &_
				" pedBairro = '"&pedBairro&"', "&_
				" pedCEP = '"&pedCEP&"', " &_
				" pedCidade = '"&pedCidade&"', " &_
				" pedEstado = '"&pedEstado&"', " &_
				" pedTelefone = '"&pedTelefone&"', " &_
				" pedTelefone2 = '"&pedTelefone2&"', " &_				
				" pedSubTotal = '"&pedSubTotal&"', " &_
				" pedTotalPeso = '"&pedTotalPeso&"', " &_
				" pedTipoFrete = '"&pedTipoFrete&"', " &_
				" where pedCodigo = '" & novo_codPedido & "' "
	Set objRs2 = Conexao.Execute(strSQL)

Há alguma maneira mais fácil ???

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.