conexion a base de datos

bella
04 de Marzo del 2004
hola!! me podrian decir cual es la forma mas facil de hacer una conexion a una base de datos de access desde vb? creo q es mejor por medio de ado, ustedes tienen algun ejemplo q me puedan proporcionar? se los agradecere mucho.

sdemingo
04 de Marzo del 2004
Dim oConexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strBarra As String
Dim ruta As String
Dim strSql As String

strBarra = Right(App.Path, 1)

If strBarra = "" Then
ruta = App.Path + "prueba.mdb"
Else
ruta = App.Path + "prueba.mdb"
End If

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

strSql = "select * from prueba"
rs.Open strSql, oConexion, adOpenStatic, adLockOptimistic

If rs.RecordCount <> 0 Then
Do While Not rs.EOF
Me.Combo1.AddItem rs("nompeli")
rs.MoveNext
Loop
Me.Combo1.Text = Me.Combo1.List(0)
End If
rs.Close
oConexion.Close

salu2
sdemingo
http://boards.melodysoft.com/sdemingo