Por favor, urge ayuda!!!!!

luison
04 de Febrero del 2006
Buenas a todos de nuevo y gracias a todos aquellos que se han interesado por mi problema. Pero siento deciros que no me ha servido vuestro consejo, necesito usar objetos data. Os pongo el códigoq ue tengo y a ver sia lguien puede echame una mano. Gracias.
Este es el código:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
With cn
\\'Si es Acces, si es SQL el proveedor es SQLOLEDB
cn.provider = \"Microsoft.Jet.OLEDB.4.0\"
cn.ConnectionString = \"G:\\Microsoft Visual Studio\\Mis Programas\\Catalogador\\Cinepelis.mdb\"
End With
cn.open

Set rs = New ADODB.Recordset
SQL = \"select * from PelisArchivadas order by Titulo\"
rs.open SQL, cn, adOpenStatic, adLockOptimistic

DLPelis.ListField = rs.Fields(1)

End Sub

Por favor necesito que me ayudeis. Muchas gracias de nuevo.

luison
04 de Febrero del 2006
Se me olvido decir que mi problema es que no consigo enlazar el datalist con la tabla, es decir no se rellena.
Muchas gracias.

Rosa
04 de Febrero del 2006
Prueba con este código:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
With cn
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source = c:\Datos.mdb"
End With
cn.Open

Set rs = New ADODB.Recordset
sQL = "select * from Servicio"
rs.Open sQL, cn, adOpenStatic, adLockOptimistic

Set dlpelis.DataSource = rs
Set dlpelis.RowSource = rs
dlpelis.ListField = "NombreCampo"