| |||
VB error 3078 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 Última edición por Chanito; 08/08/2008 a las 13:14 Razón: por favor help me tabla no existe ??? |