Rafael Rubio Ceja
25 de Junio del 2004

Que tal lo que sucede es que cuando establezco un Grid por codigo si me lo refleja pero cuando quiero desplazarme por el Grid desaparece lo de su interior y es obvio porque el objeto de conexion se cierra desde antes, se que si no cierro la conexion no desaparece el interior del grid cuando me desplazo en el, pero a la larga me marca error el programa, como puedo hacer que trabaje bien como cuando trabajaba con Adodc?

Les dejo el codigo como lo estoy haciendo
Private Sub Combo3_Click()

Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "BASE.mdb" + ";Persist Security Info=False"

MiConexion.Open

MisRegistros.Open "SELECT * FROM Clientes " MiConexion, adOpenStatic
Set SSOleDBGrid1.DataSource = MisRegistros
SSOleDBGrid1.Refresh

MisRegistros.Close
Set MisRegistros = Nothing

End Sub


PD No es que rechaze el ADodc pero es quiero usar solo codigo y dejar de usar los controles Gracias

krizall
25 de Junio del 2004

hola, puesdes usar recordsets desconectados, o asignarlo a uno que no dependa de una conexion
para guardar el rs has esto
rs.save app.path & "nombre del fichero",adpersisttagg
la ultima parte no recurdo bien si se escribe asi, solo hay dos una es Xml pero se recomienda la otra
y para abrirlo
rs.open nombrefichero y nada mas
ahora si deseas buscar dentro de este recordset utiliza la propiedad
rs.filter
por ejemplo
rs.filter "Nombre='" & text1 & "'"

otra cosa.. podrias utilizar un listview, aunque se necesita mas codigo ya que para llenarlo necesitas agregar item por item..
bueno, es todo por hoy espero y te sirva de algo