Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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 ???

Compartilhar este post


Link para o post
Compartilhar em outros 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.

Compartilhar este post


Link para o post
Compartilhar em outros 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?

Compartilhar este post


Link para o post
Compartilhar em outros 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 ???

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.