Set rs2 = New ADODB.Recordset
Set rs2= rs.clone Atte Jose Luis Agosta. De: [email protected] [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 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
