Visual Basic - Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Life is soft - evento anual de software empresarial

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 07/09/2022 22:56:49

Saludos

Tengo un problema, quiero pasar información de una base de datos de Access de 2 tablas a una tabla de Sql Server.

Ejem

BD Access PRUEBA, Tabla Articulo pasar Id, descripcion, Categoria y fecha y de la Tabla Articulo_Costo pasar Tipo, Costo, Existencia.

Podrian Apoyarme no conozco mucho de VB6.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 387

Val: 3

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Santiago (5 intervenciones) el 08/09/2022 06:45:52

Hola.

Según Microsoft, existe una herramienta que se llama SSMA (SQL Server Migration Assistant for Access (AccessToSQL))

https://docs.microsoft.com/en-us/sql/ssma/access/sql-server-migration-assistant-for-access-accesstosql?view=sql-server-2017

Échale un vistazo y cualquier problema, pregunta de nuevo.

Saludos.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 08/09/2022 16:52:47

Si la conozco es una migración, pero lo que requiero es diario generar un ejecutable que pase la información a SQL, para de ahi tomar datos para una web.

Valora esta respuesta

Comentar

Pos: 141

Val: 11

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por David (16 intervenciones) el 08/09/2022 16:23:57

Podrias Traer los datos de esas 2 tablas en un msflexgrid o un datagrid y luego recorrer el msflexgrid o datagrid y guardarlos en sql server.
para eso las 2 tablas tienen que estar relaccionadas.

Valora esta respuesta

Comentar

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 08/09/2022 16:53:55

Las tablas están relacionadas, tendrás un ejemplo de como traer datos de 2 tablas?

Valora esta respuesta

Comentar

Pos: 141

Val: 11

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por David (16 intervenciones) el 08/09/2022 17:43:32

Aca te dejo un ejemplo. remplaza donde dice tabla1 por tu primer tabla y tabla 2 por tu segunda tabla.
solo te faltaria recorrer y guardar en la bd sql

Adodc1.CursorLocation = adUseClient

        Adodc1.ConnectionString = "Aqui va tu cadena de conexion"

        Adodc1.RecordSource = "SELECT TABLA1.id ,TABLA1.Descripcion, TABLA1.Categoria , TABLA1.fecha , " & _

                                " TABLA2.Tipo, TABLA2.Costo, TABLA2.Existencia" & _

                                "FROM TABLA2 INNER JOIN TABLA1 ON TABLA2.id = TABLA1 .id " & _

                                "Where ((TABLA1.stock) >= 1) " & _  'Aqi pones una condicion que quieras por ej aqui te va a mostrar los producto con el stock mayor a 1

                                "ORDER BY TABLA1.Categoria ;"  'aca es opcional si quieres q tu tabla se muestre ordenado por al campo en especifico y sino lo quieres ordenado lo quitas no varia.

        Adodc1.Refresh

        Set DataGrid1.DataSource = Adodc1

Valora esta respuesta

Comentar

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 08/09/2022 18:05:25

Saludos muchas gracias por tu gran apoyo.

Tengo este código, solo me manda a traer todo de la tabla tractores, basado en el ejemplo que me diste como quedaría...

Dim cn As ADODB.Connection

Private Sub Form_Load()

Set cn = New ADODB.Connection

cn.ConnectionTimeout = 50

If cn.State = 0 Then

cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=SAF"
Call Consulta

End If

End Sub

Private Sub Consulta()

Dim tbl As New ADODB.Recordset

tbl.CursorLocation = adUseClient
tbl.CursorType = adOpenDynamic
tbl.LockType = adLockBatchOptimistic

tbl.Open " select * from tractores where ID", cn, adOpenDynamic, adLockBatchOptimistic

Set dg.DataSource = tbl

End Sub

Valora esta respuesta

Comentar

Pos: 141

Val: 11

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por David (16 intervenciones) el 08/09/2022 18:22:13

en esa linea iria la consulta sql, desde ahi tu vez que campos queres mostrar en vez de tabla 1 pondrias tractores.id, tractores.descripcion etc. luego en tabla 2 pones tu 2da tabla con su campso q queres mostrar

tbl.Open ""SELECT TABLA1.id ,TABLA1.Descripcion, TABLA1.Categoria , TABLA1.fecha , " & _

                                " TABLA2.Tipo, TABLA2.Costo, TABLA2.Existencia" & _

                                "FROM TABLA2 INNER JOIN TABLA1 ON TABLA2.id = TABLA1 .id " & _

                                "Where ((TABLA1.stock) >= 1) " & _

                                "ORDER BY TABLA1.Categoria ;", cn, adOpenDynamic, adLockBatchOptimistic

Valora esta respuesta

Comentar

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 08/09/2022 18:43:42

Saludos

Lo agregue asi;

tbl.Open " Select OrdenesTrabajo.ID, OrdenesTrabajo.Tipo, " & _
"ordenesTrabajo_Act.ID_OrdenTrabajo, ordenesTrabajo_Act.Costo," & _
"from OrdenesTrabajo_act inner join ordenesTrabajo On OrdenesTrabajo_act.ID_OrdenesTrabajo=OrdenesTrabajo.ID" & _
"Where ((OrdenesTrabajo.Tipo) =T)", cn, adOpenDynamic, adLockBatchOptimistic

pero me sale este error

[Microsoft][Controlador ODBC Microsoft Access] La instruccion SELECT incluye una palabra reservada
le falta un argumento o esta mal escrito, o bien los signos de puntuacion no son correctos

Valora esta respuesta

Comentar

Pasar información de 2 tablas de access a 1 tabla de Sql Server,

Publicado por Gilberto (6 intervenciones) el 08/09/2022 21:12:07

Saludos David

Quiero agradecerte mucho tu apoyo, ya logre adjuntar 2 tablas sin ningun problema, el error estaba en el where y un dato de la tabla donde estaba mal, ya logre obtener los datos.

Una disculpa soy nuevo en esto por eso las dudas.

Si tuvieras el tiempo, mi codigo quedo asi;

tbl.Open " SELECT OrdenesTrabajo.ID, OrdenesTrabajo.ID_Servicio, OrdenesTrabajo.Costo, OrdenesTrabajo_Act.ID_OrdenTrabajo from OrdenesTrabajo INNER JOIN OrdenesTrabajo_Act ON OrdenesTrabajo.ID=OrdenesTrabajo_Act.ID_OrdenTrabajo where OrdenesTrabajo.ID_Servicio='01'", cn, adOpenDynamic, adLockBatchOptimistic

Set dg.DataSource = tbl

A ese dato obtenido, puedo decir que me de solo el resumen dentro del datagrid, osea que me de el total del servicio 01 el costo

Valora esta respuesta

Comentar

Años,Meses y dias de Servicio de un trabajador

Crear Instalador para programa