hola, necesito copiar todos los registros de una tabla q tengan determinada clave (seria la sucursal 1 x ej) y pasarlos a la sucursal 2..
o sea agregar los registros que tengo en la sucursal 1 a la sucusal 2

USO SQL

ejemplo de lo que necesito
imaginen que tengo en la tabla:

Tabla Numeros
sucursal_nombre_apellido
1_______Pedro__Perez
1_______Ramiro_Gonzalez
1_______Maria__Gimenez

necesito ahora copiar todos los registros en otra sucursal ... o sea copiar estos registros de la SUCURSAL 1 en la SUCURSAL 2

Tabla Numeros
Sucursal_nombre_apellido
2_______Pedro__Perez
2_______Ramiro_Gonzalez
2_______Maria__Gimenez

obio q todos en la misma tabla

ojala me puedan ayudar
gracias.

Este ya esta respondido en:

insertar registros de una misma tabla SQL

Por favor trata de colocar la pregunta una sola vez.


JOSE LUIS

puedes usar el CommandBuilder!, bueno en caso de que estes usando SQL Server pues seria mas o menos asi (Voy a poner código porque josel.vi ya me regaño el otro dia jajaja)

Código:

Dim sda As New System.Data.SqlClient.SqlDataAdapter("select * from tutabladestino", "cadena de conexion o bien el objeto SqlConnection")
Dim sba As New System.Data.SqlClient.SqlCommandBuilder(sda)
Dim dt as new DataTable 'En realidad debe ser igual al resultado de la consulta de todo lo que quieres copiar
sda.Update(dt)

y con eso agregas todos los datos a la tabla donde los quieres copiar. Esto te servirá en el caso de que la estructura de las ambas tablas sean iguales

Jajajajaja.....


Muy gracioso, Devilskate64, pero muy gracioso...

No era regaño, era una pequeña exhortacion....

Pero mira, despues de todo sirvio... ya nos colocas tu codigo y nosotros aprendemos.

Un abrazo.


JOSE LUIS

nonono yo necesito copiar DENTRO DE LA MISMA TABLA datos de la sucursal 1 a la 2

osea yo tengo la tabla numeros y el campo sucursal(dentro d esta tabla)... necesito pasar los registros de la sucursal 1 a la sucursal 2 pero todo dentro de la MISMA TABLA

bueno igual sirve el código que te estoy dando solo que en el datatable (que representa los datos de tu tabla) tienes que modificar el campo sucursal por ejemplo

Código:

Dim dt as DataTable = Metododeconsulta("Select * from tabla")
Dim i as integer
For i = 0 to dt.Rows.Count - 1
dt.Rows(i)("sucursal") = 2
End For

Ahora, los datatables cuentan con algo llamado RowState que va desde Update,Insert y Delete. Estos estados de fila le dicen al commandBuilder que comando debe llamar, despues de haber modificado el número de sucursal el RowState será Update...adivina porque :P así que tendremos que pasarlo a una nueva tabla así:

Código:

Dim dt2 as new DataTable
dt2.Columns.Add("sucursal")
dt2.Columns.Add("nombre")
dt2.Columns.Add("apellido")
 
For i = o to dt.Rows.Count - 1
Dim dr as DataRow = dt2.NewRow()
dr("sucursal") = dt.Rows(i)("sucursal").ToString()
dr("nombre") = dt.Rows(i)("nombre").ToString()
dr("apellido") = dt.Rows(i)("apellido").ToString()
dt2.Rows.Add(dr)
End For

Ya luego de esto actualizas con el commandbuilder:

Código:

Dim sda As New System.Data.SqlClient.SqlDataAdapter("select * from tutabladestino", "cadena de conexion o bien el objeto SqlConnection")
Dim sba As New System.Data.SqlClient.SqlCommandBuilder(sda)
sda.Update(dt2)

Los tiros van un poco por donde te está indicando Oscar.

Primero trae el registro que quieres clonar a un datatable con un Select * From tabla Where id=x

Después, te recomiendo que traigas el último id existente en esa tabla y lo guardes en una variable, por ejemplo, último id

luego incrementa esa variable. ultimoId +=1

Y ahora, constuye in insertCommand con los campos, y le vas asociando el valor de los campos que trajiste, tal como Oscar los está asociando a la fila que creó

sqlCommand = "INSERT INTO tabla(id,sucursal,....)VALUES(" & ultimoId & "," & miDataTable.Rows(0).Item("sucursal").tostring & ",.....)"

Un saludo

hice algo asi.. me pueden corregir haber q esta mal(ya q no me agrega nada)
hice esta funcion y quiero saber q poner en return..
ademas todos los registros q encontro(dt.Rows.Count - 1) quiero recorrerlos cada uno xq lo q hace es asignarle la nueva sucursal siempre al mismo registro
nose si se entiende jeje
cualquier cosa pregunten =D

Código:

Public Function SQLCopiar(ByVal SucursalA As Integer, ByVal SucursalB As Integer) As String
 
                Dim dt As DataTable
                Dim i As Integer
 
                dt = oBD.GetInfo(String.Concat("SELECT * FROM Numeros WHERE NumSuc = ", SucursalA))
 
                For i = 0 To dt.Rows.Count - 1
                    dt.Rows(i).Item("numsuc") = SucursalB
                    Dim sSql As String = String.Empty
                    Dim sVals As String = String.Empty
 
                    sVals = String.Concat(SucursalB, ", ", _
                                          Me.GetPrimeroDisponibleCod(SucursalB), ", ", _
                                          "'", Me.sDsc, "'", ", ", _
                                          Me.iNumA, ", ", _
                                          Me.iNumB, ", ", _
                                          Me.iNumNegro)
 
                    sSql = String.Concat("INSERT INTO Numeros(", Me.oBD.GetColumnsTable("Numeros"), ") VALUES(", sVals, ")")
 
                Next
 
 
                Return CStr(i)
            End Function

mmm... para que no haya pierde en el for jejeje usa un for each

dim dr as DataRow
For Each dr in dt.Rows
dr("numSuc") = sucursalB
End For

y pues por lo demás me parece correcto solo que no veo donde estas ejecutando el comando :S

y debes devolver una cadena, podrias usar un try

Try
'Codigo
s = "" 'Vacia porque llego hasta el final sin error
Catch ex as SqlException 'o la excepcion que quieras capturar
s = ex.Message
End Try

y asi si tu metodo tiene un error lo muestras con el valor del mismo

mm aver si voi entendiendo xD jeje
despues del Try (dnd dice 'Codigo) q codigo iria?

el comando yo creo q se ejecuta en alguna parte ya q de lo q me dijiste antes no veo nada en mi programa... quizas en Me.oBD.GetColumnsTable se ejecuta algo(ahora no puedo verlo xq no estoi en el trabajo jeje)

el s como lo defino?

Deberia quedar algo asi

Código:

Public Function SQLCopiar(ByVal SucursalA As Integer, ByVal SucursalB As Integer) As String
Dim s as String
Try                 
Dim dt As DataTable                
Dim dr As DataRow
dt = oBD.GetInfo(String.Concat("SELECT * FROM Numeros WHERE NumSuc = ", SucursalA))                 
For Each dr in dt.Rows
dr("numsuc") = SucursalB                    
Dim sSql As String = String.Empty                    
Dim sVals As String = String.Empty                     
sVals = String.Concat(SucursalB, ", ", Me.GetPrimeroDisponibleCod(SucursalB), ", ","'", Me.sDsc, "'", ", ", Me.iNumA, ", ", Me.iNumB, ", ", Me.iNumNegro)                     
sSql = String.Concat("INSERT INTO Numeros(", Me.oBD.GetColumnsTable("Numeros"), ") VALUES(", sVals, ")")                 
'Y por aqui en alguna parte perdido un codigo que ejecute tu comando insert, porque solo veo que construyes el comando en la cadena, pero nunca ejecutarlo en la BD
Next
s = ""
Catch ex as Exception
s = ex.Message
End Try                  
Return s            
End Function

=)

perdona q sea tan pesada jeje pero cual seria el codigo q ejecuta el comando insert?

ojala q esto funcione =)

El objeto oBD de que tipo es?

bueno, ammm... insertaste los primeros registros??? eso seria una pista :P

jaja no los inserte xq ahora no puedo xD
no lo tngo aca :S
bueno mañana te digo y me fijo q tipo es el objeto oBD =)

La verdad es que tengo la sensación de que os desviasteis un poco de la pregunta que hiciste después de mi último post. No sé que debes poner en Return porque no sé que quieres devolver con esa función...

Segundo: cuando pones que quieres recorrer todos los registros del datatable, deduzco que lo que quieres es duplicar dentro de la misma tabla, como decías al principio, todos los registros que devuelve la query que tu hagas a la base de datos, no?

Dim id as integer = traerUltimoId()
For i=0 to dtTable.Rows.Count -1
id +=1
Dim sqlCommand As String = "INSERT INTO tabla(id,col1,col2,col3,col4)VALUES(" & id & "," & dtTable.rows(i).Item(0).tostring & "," & dtTable.rows(i).Item(1).tostring & "....)"
'llamar a tu función que ejecute código sql a la base de datos

Next i

Eso es todo lo que debes hacer para que se creen los mismos registros que tiene el datatable en la misma tabla pero con un id diferente lógicamente.

Un saludo!

bueno les cuento : get info tiene esto:

Código:

Public Function GetInfo(ByVal Sql As String) As DataTable
 
        Try
            Dim dt As DataTable
 
            If cn.State <> ConnectionState.Open Then
                cn.Open()
            End If
            cm = New SqlCommand(Sql, cn)
            cm.CommandTimeout = 0
 
            DatAdapt = New SqlDataAdapter(cm)
            
            dt = New DataTable
            
            DatAdapt.Fill(dt)
 
            Return dt
        Catch ex As Exception
            Return Nothing
        Finally
            cn.Close()
            cm = Nothing
        End Try
    End Function

OBD esta definido asi en otra clase:

Código:

Protected oBD As New ClsBD

y Public Class ClsBD tiene todas las conexiones x lo q no nesecito hacer la conexion en mi parte de codigo..... estoi haciendo algo asi como para agregar pero siempre el bucle me agrega x el 1º registro x mas q pase x el next 80 veces...
me agrega siempre x esto:
12, 2, 'Remito', 60, 0, 0


q tengo q hacer para q pase al codigo siguiente?
esto es lo q tengo:

Código:

Public Function SQLCopiar(ByVal SucursalA As Integer, ByVal SucursalB As Integer) As String
 
                Dim s As String
                Try
                    Dim dt As DataTable
                    ' Dim dr As DataRow
                    dt = oBD.GetInfo(String.Concat("SELECT * FROM Numeros WHERE NumSuc = ", SucursalA))
                    For i As Integer = 0 To dt.Rows.Count - 1
 
                        Dim sSql As String = String.Empty
                        Dim sVals As String = String.Empty
                        ' dr("numsuc") = SucursalB
                        dt.Select()
 
                        sVals = String.Concat(SucursalB, ", ", Me.GetPrimeroDisponibleCod(SucursalB), ", ", "'", Me.sDsc, "'", ", ", Me.iNumA, ", ", Me.iNumB, ", ", Me.iNumNegro)
                        sSql = String.Concat("INSERT INTO Numeros(", Me.oBD.GetColumnsTable("Numeros"), ") VALUES(", sVals, ")")
                        'Y por aqui en alguna parte perdido un codigo que ejecute tu comando insert, porque solo veo que construyes el comando en la cadena, pero nunca ejecutarlo en la BD
                    Next
                    s = ""
                Catch ex As Exception
                    s = ex.Message
                End Try
                Return s
            End Function

el dr no lo tengo en uso xq me dice q se usa antes de declararla o algo asi


HELPPP jaja

Bueno el error del dr te lo manda porque esta vacio... recuerda que te dije que en lugar de un for común usariamos un "For Each" revisa bien el post dodne te dejé ese código, y bueno... creo que sigues sin ejecutar el comando a la BD, al menos ya puedo decir que no estoy loco n_n porque nereo ya hizo la misma observación. A lo que me refiero es que dentro del for vas a poner el código de tu boton insertar nuevo, tomando los valores de las DataRow's

el codigo de la oBD te lo deje recien eso es lo q ejecuta el comando! o no?

bueno ahora lo tngo asi

Código:

Public Function SQLCopiar(ByVal SucursalA As Integer, ByVal SucursalB As Integer) As String
 
              
                Dim s As String
                Try
                    Dim dt As DataTable
                    Dim dr As DataRow
                    dt = oBD.GetInfo(String.Concat("SELECT * FROM Numeros WHERE NumSuc = ", SucursalA))
                    For Each dr In dt.Rows
 
                        Dim sSql As String = String.Empty
                        Dim sVals As String = String.Empty
                        dr("numsuc") = SucursalB
 
 
                        sVals = String.Concat(SucursalB, ", ", Me.GetPrimeroDisponibleCod(SucursalB), ", ", "'", Me.sDsc, "'", ", ", Me.iNumA, ", ", Me.iNumB, ", ", Me.iNumNegro)
                        sSql = String.Concat("INSERT INTO Numeros(", Me.oBD.GetColumnsTable("Numeros"), ") VALUES(", sVals, ")")
 
                    Next
                    s = ""
                Catch ex As Exception
                    s = ex.Message
                End Try
                Return s
            End Function

ahora me muestra siempre este: 12, 2, 'Retencion', 176, 0, 0

q hagooooooooooo :S

No Yamila, ese código no ejecuta el comando solo estas construyendo el comando... estas haciendo una simple asignacion.

Dim sSql as String = "insert into Numeros values()"

planteate esto, como le haces para insertar datos en la tabla? porque para querer copiar datos en la tabla debiste insertarlos primero, y supongo que tuviste que hacer el código para hacerlo

nose hay algo q esta mal igual en este codigo.. necesito algo q, de las 8 filas q encontro con la misma sucursal, pase x cada una de ellas cada vez q pasa el next..
o sea si en la i tengo 1 y me pasa x el primer registro de los 8 cuando la i esta en 2 q pase x el registro siguiente de los 8 encontrados..
no se si lo explique bien..

respecto a lo de la conexion no se q poner ya q en el codigo q tengo para agregar no tengo ningun command builder ni nada en esta parte q estoi usando(eso esta en oBD)

Con respecto a lo primero que comentas, no comprendí muy bien lo que deseas hacer, y por lo segundo, porque no llamas a tu método de oBD para insertar? no se amm.... oBD.ExecuteCommand(sSQL) o algo asi :S

Me.oBD.GetColumnsTable
ahi supongo q estoi trayendo los datos..

ahh nooo me parece q desde aca lo estoi ejecutando:

Código:

Private Sub btnNumCopiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNumCopiar.Click
        If [U]Me.oNum.EjecutarTransaccion(Me.oNum.SQLCopiar(CInt(Me.txtnumcop1.Text), CInt(Me.txtnumcop2.Text))) [/U]Then
            Me.CargarLista()
            Me.LimpiarCampos()
            Me.Controles(True)
        Else
            Me.Cursor = Cursors.Default
            MsgBox("Algunos datos no se pudieron guardar, intentelo en otro momento.", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "HogarSoft")
            Cancelar()
            Exit Sub
        End If
    End Sub

lo q esta subrayado supongo q lo ejecuta!! =D




el problema q tengo es q aca:
sVals = String.Concat(SucursalB, ", ", Me.GetPrimeroDisponibleCod(SucursalB), ", ", "'", Me.sDsc, "'", ", ", Me.iNumA, ", ", Me.iNumB, ", ", Me.iNumNegro)
siempre los valores son los mismos :S
no recorre los registros aca For Each dr In dt.Rows
o sea se supone q ahi los encuentra o en dt.rows.count - 1 (aca me dice 8)

siempre me muestra los mismos valores en sVals :S :S

quiero q recorra los registros q encuentra e ir clonando, digamos, los registros encontrados cambiandole la sucursal

ahora mas entendible? jejej

Bueno lo q quise subrayar es esto:
Me.oNum.EjecutarTransaccion(Me.oNum.SQLCopiar(CInt (Me.txtnumcop1.Text), CInt(Me.txtnumcop2.Text)))

x lo q me decis eso esta bien asiq lo q no me sale es lo q puse abajo del codigo!!!!! =(

Gracias

pues... naaa no creo que esté bien... mira, la cosa seria mas o menos así, el ejecutarTransacción se debe repetir el mismo numero filas que vas a insertar, debido a que estarias ejecutando una transaccion a la vez, por darte una pistota mira :

Código:

Public Function SQLCopiar(ByVal SucursalA As Integer, ByVal SucursalB As Integer) As StringDim s as StringTry
Dim dt As DataTable
Dim dr As DataRowdt = oBD.GetInfo(String.Concat("SELECT * FROM Numeros WHERE NumSuc = ", SucursalA))
For Each dr in dt.Rowsdr("numsuc") = SucursalB                    
Dim sSql As String = String.Empty                    
Dim sVals As String = String.Empty                     
sVals = String.Concat(SucursalB, ", ", Me.GetPrimeroDisponibleCod(SucursalB), ", ","'", Me.sDsc, "'", ", ", Me.iNumA, ", ", Me.iNumB, ", ", Me.iNumNegro)                     
sSql = String.Concat("INSERT INTO Numeros(", Me.oBD.GetColumnsTable("Numeros"), ") VALUES(", sVals, ")")                 
Next
FormDondeEstaElObjeto.oNum.EjecutarTransaccion(sSql)
s = ""
Catch ex as Exceptions = ex.MessageEnd Try                  Return s            End Function