[vbusers] clonar recordsets

[hectordanielcorrea]

Buenas tardes listeros! Cómo se puede hacer para copiar un recordset sobre otro?   El primero es un ADO   Set cnn = 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 el segundo:   Set dbBase = Workspaces(0).OpenDatabase(txtImport.Text, False, False, "Excel 8.0;") Set tbTabla = dbBase.TableDefs(0) Set tbConsu = dbBase.CreateQueryDef("", "select * from [" & tbTabla.Name & "]") Set Tabla = tbConsu.OpenRecordset(dbOpenDynaset) El tema es que, por una situación puntual tengo que clonar "Tabla" sobre un recordset del tipo ADO... O sea... necestio dos recordsets idénticos pero de tecnología distinta... Se puede? Héctor Daniel Correa __________________________________________________ Internet gratis. Siempre. http://www.fullzero.com.ar