Autor Tema: Re: Ayuda Cambiar de DAO a ADO (Leído 1963 veces)

mexican · « **en:** Martes 30 de Septiembre de 2003, 17:34 »

Ayuda por favor, Necesito cambiar de "DAO" a "ADO" el motivo de cambiar ADO es por que segun comentarios que leido, es mas rapido conectarse con ADO a una base de Datos y menos problematico, abajo describo el codigo que necesito cambiar a ADO, uso Data Control por si sirve de algo, ustedes me dicen que codigo tengo que cambiar, quitar o poner. Gracias

------------------------------------------------
Private Sub cboArticulo_Click()
' Load the selected record.
Articulo.RecordSource = _
"SELECT * FROM Producto WHERE Descripcion='" & _
cboArticulo.Text & "'"
Articulo.Refresh
End Sub
----------------------------------------------------------
Dim dbname As String
Dim db As Database
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "" Then dbname = dbname & ""
dbname = dbname & "clientes.mdb"

Set db = OpenDatabase(dbname) ' Creo que aqui estoy utilizando DAO
Set rs = db.OpenRecordset( _
"SELECT Cliente FROM Client ORDER BY Cliente", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
cboCliente.AddItem rs!Cliente
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
datPersonas.DatabaseName = dbname

' Select the first choice.
cboCliente.ListIndex = 0

End Sub

CarmenZ

la forma de abrir una conexion con ado que uso yo es por ej, :

'Creo objecto conexion
dim cn as connection
'Creo obj recordset
dim rs as recordset
dim sqlstr as string

'Inicio conexion
set cn as new adodb.connection
'Abro la conexion con proveedor para
'Access sk
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "NombreBaseDatos.mdb"

'Hago un query
sqlstr = "SELEC * FROM TABLA"
set rs = cn.execute(sqlstr)

'Realizo procesos con el rs
...

'Cierro conexion y recordset
rs.close
cn.close

'Libero la conexion y recordset

set rs = nothing
set cn = nothing

espero que algo sirva!!
bye

mexican

Primero Tratare de estudiar bien este codigo que me mandas y luego adapatarlo a mi proyecto

Gracias

CarmenZ

Ok, si no te puedes o no quieres acordarte de memoria el provider, trata haciendo esto que es lo que yo hago en windows 2000:

crea un nuevo documento de texto y cambiale la extension a .udl elegis el provider y la base de datos. (Para access es Jet )y luego le vuelves a cambiar a .txt , despues copias lo que esta escrito desde el provider hasta lo que dice en el datasource a tu proyect y listop.

Sino otra forma de conectarse en por medio de DSN.