Quim
2006-02-02 09:53:11 UTC
Hola
No entiendo que pasa!!:
Dos BD una con las tablas y otra con los formularios módulos y tablas
viculadas a la BD que contiene los datos.
Un proceso de carga de datos desde un libro excel:
Dim cnnActiva As ADODB.Connection
Dim sTblOrigen As String
Dim sTblDestino As String
Dim sConnect As String
Dim sSQL As String
sTblDestino = "[" & taula & "]"
sTblOrigen = "[" & taula & "$]"
sConnect = "[Excel 8.0;HDR=Yes;DATABASE=tablas.xls]." & sTblOrigen
DoCmd.RunSQL "DELETE * FROM " & sTblDestino
sSQL = "INSERT INTO " & sTblDestino & " SELECT * FROM " & sConnect
DoCmd.RunSQL sSQL
Un proceso de carga de datos desde un fichero de texto:
Dim strConnect As String
Dim strSQL As String
Dim strNom As String
Dim strNomMove As String
Dim strSource As String
Dim strTarget As String
Dim varItm As Variant
Dim fs As Object
for ..
..
strNom = Mid(strNom, 1, InStr(strNom, ".") - 1) & "#txt"
strConnect = "[TEXT; HDR=Yes; DATABASE=" & CurrentProject.Path & "\"
& strCarpeta & "\" & "].[" & strNom & "]"
strSQL = "INSERT INTO visites SELECT * FROM " & strConnect
CurrentDb.Execute strSQL
Problema:
Los dos procesos provocan el error 3349 desbordamiento de campo
numérico.
Solo si la inserción de datos la ejecuto sobre una tabla vinculada, si
esto mismo lo hago sobre una copia de la tabla vinculada pero en la bd
que estoy ejecutando funciona correctamente.
Quiero decir que hago lo siguiente importar tabla visita y obtengo una
copia visita1 sobre la que ejecuto la consulta de actualización y esta si
funciona correctamente. La misma estructura de datos los mismos
índices, etc..
Referencias:
Microsoft DAO 3.6 object library
¿¿¿¿No entiendo????
P.D.
Aprovecho para agradacerle a Enrique Martínez Montejo <<SoftJaén>> por su
aportación <<Trabajar con ADO, DAO y Excel 1/06/2003>>
en el cual me he basado para realizar está aplicación.
Saludos
Joaquín
No entiendo que pasa!!:
Dos BD una con las tablas y otra con los formularios módulos y tablas
viculadas a la BD que contiene los datos.
Un proceso de carga de datos desde un libro excel:
Dim cnnActiva As ADODB.Connection
Dim sTblOrigen As String
Dim sTblDestino As String
Dim sConnect As String
Dim sSQL As String
sTblDestino = "[" & taula & "]"
sTblOrigen = "[" & taula & "$]"
sConnect = "[Excel 8.0;HDR=Yes;DATABASE=tablas.xls]." & sTblOrigen
DoCmd.RunSQL "DELETE * FROM " & sTblDestino
sSQL = "INSERT INTO " & sTblDestino & " SELECT * FROM " & sConnect
DoCmd.RunSQL sSQL
Un proceso de carga de datos desde un fichero de texto:
Dim strConnect As String
Dim strSQL As String
Dim strNom As String
Dim strNomMove As String
Dim strSource As String
Dim strTarget As String
Dim varItm As Variant
Dim fs As Object
for ..
..
strNom = Mid(strNom, 1, InStr(strNom, ".") - 1) & "#txt"
strConnect = "[TEXT; HDR=Yes; DATABASE=" & CurrentProject.Path & "\"
& strCarpeta & "\" & "].[" & strNom & "]"
strSQL = "INSERT INTO visites SELECT * FROM " & strConnect
CurrentDb.Execute strSQL
Problema:
Los dos procesos provocan el error 3349 desbordamiento de campo
numérico.
Solo si la inserción de datos la ejecuto sobre una tabla vinculada, si
esto mismo lo hago sobre una copia de la tabla vinculada pero en la bd
que estoy ejecutando funciona correctamente.
Quiero decir que hago lo siguiente importar tabla visita y obtengo una
copia visita1 sobre la que ejecuto la consulta de actualización y esta si
funciona correctamente. La misma estructura de datos los mismos
índices, etc..
Referencias:
Microsoft DAO 3.6 object library
¿¿¿¿No entiendo????
P.D.
Aprovecho para agradacerle a Enrique Martínez Montejo <<SoftJaén>> por su
aportación <<Trabajar con ADO, DAO y Excel 1/06/2003>>
en el cual me he basado para realizar está aplicación.
Saludos
Joaquín