conexion a base de datos
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.
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
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