[vbusers] RE: clonar recordsets

[hectordanielcorrea]

Lo pruebo y te aviso, desde ya gracias!!! Héctor Daniel Correa -- Mensaje Original -- Enviado por: José_Luis_Agosta <[EMAIL PROTECTED]> Fecha:23/01/2008 18:00:35 Para: vbusers List Member<vbusers@mug.org.ar> Título: [vbusers] clonar recordsets   Setrs2 = New ADODB.Recordset   Set rs2= rs.clone   Atte Jose Luis Agosta.   De:vbusers@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED] Enviado el: Miércoles, 23 de Enero de 2008 15:08 Para: vbusers List Member Asunto: [vbusers] clonar recordsets   Buenastardes listeros! Cómose puede hacer para copiar un recordset sobre otro?   Elprimero es un ADO   Setcnn = New ADODB.Connection cnn.Open "Provider=MicrosoftJet.OLEDB.4.0;" & _                    "Data Source=" & Trim(Ruta) & ";" & _                    "Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"""    Set rs = New ADODB.Recordset     With rs         CursorLocation = adUseClient         .CursorType = adOpenStatic         LockType = adLockReadOnly    End With    'Obtengo nombre de hoja     Set rec = cnn.OpenSchema(adSchemaTables)     While Not rec.EOF         If intContador = 1 Then            strNombreHoja =rec!TABLE_NAME         End If        intContador = intContador + 1        rec.MoveNext     Wend    rs.Open "select * from [" & strNombreHoja & "]",cnn, adOpenForwardOnly, adLockReadOnly elsegundo:   SetdbBase = Workspaces(0).OpenDatabase(txtImport.Text, False, False, "Excel8.0;") Set tbTabla = dbBase.TableDefs(0) Set tbConsu = dbBase.CreateQueryDef("", "select * from ["& tbTabla.Name & "]") Set Tabla = tbConsu.OpenRecordset(dbOpenDynaset) Eltema es que, por una situación puntual tengo que clonar "Tabla" sobreun recordset del tipo ADO... Osea... necestio dos recordsets idénticos pero de tecnología distinta... Sepuede? Héctor Daniel Correa __________________________________________________ Internet gratis. Siempre. http://www.fullzero.com.ar El mail recibido, fue verificado por el Servicio de Antivirus para mail de Fullzero y se encuentra libre de virus __________________________________________________ Internet gratis. Siempre. http://www.fullzero.com.ar