Estimados tengo el siguiente código:
el cual funciona correctamente devuelve los datos de la consulta al
excell, pero los datos son demaciados y yo requiero recorrer el
recorset y vaciarlo el un archivo de texto este codigo lo grave con un
macro y la modificacion que le hago es la celda destino "que es la
variable Miceldadestino" y el selct de la consulta que es la variable
"Mistrigrecord" todo esto anda bien como replico esta conexión en
codigo de VB
With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y("ODBC;DSN=DataServer;UID=ETLADM;PWD=ETLADM;DBQ=D ATA.SERVER;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO =T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM"),
Array("=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;P FC=10;TLO=O")),
Destination:=Range(Miceldadestino))
.CommandText = Mistrigrecord
.Name = "1OBS_R2420_4_STD"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\1OBS_R2420_4_STD.odc"
.Refresh BackgroundQuery:=False
End With
É INTENTADO HACER ESTO PERO ME TIRA EL ERROR 3078 QUE NO EXISTE LA
TABLA NETWORK_ELEMENT
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = OpenDatabase("DataServer", False, False,
"ODBC;DSN=DataServer;UID=ETLADM;PWD=ETLADM;DBQ=DAT A.SERVER")
Set RS = DB.OpenRecordset("SELECT *FROM NETWORK_ELEMENT")
RS.Close
DB.Close
DE ANTEMANO GRACIAS....
Amigos no soy muy ducho en esto y esto me esta dando lata el detalle es que me conecto a una BD Orache pero me tira error 3078 que no existe la tabla ya verifique y si existe lo estoy haciendo asi:que estoy haciendo mal?
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = OpenDatabase("DataServer", False, False, "ODBC;DSN=DataServer;UID=ETLADM;PWD=ETLADM;DBQ=DAT A.SERVER")
Set RS = DB.OpenRecordset("SELECT *FROM NETWORK_ELEMENT")
RS.Close
DB.Close