conectarse a base de datos

[mamon]

Hola.. que pasos debo seguir para conectarme una base de datos, el string para econtrar el *.mdb, el string del SQL si lo sé y cómo recupero la información??

GRACIAS DE ANTEMANO

[2Fast To You]

Para conectar a la Base de Datos solo debes de poner:

Código PHP:

  Dim Cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
 
Private Sub Form_Load() 
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;" 
    rs.CursorType = adOpenKeyset 
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic 
End Sub  
   

Ahora para que visualice los Datos debes de poner:

Código PHP:

      Set txtNombre.DataSource = rs 
    txtNombre.DataField = "campo"  
   

Es decir quedaría asi:

Código PHP:

  Dim Cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
 
Private Sub Form_Load() 
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;" 
    rs.CursorType = adOpenKeyset 
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic 
    Set txtNombre.DataSource = rs 
    txtNombre.DataField = "campo" 
End Sub  
   

Ahora debes de crear los Botones. Ejemplo:

Primero
Atras
Siguientes
Ultimo

Este Codigo que te voy a dar ya viene con todo solo debes de Modificarle El nombre de la Tabla - Nombre de la BD etc y crear los Botones:

Primero cmdPrimero
Atras cmdAnterior
Siguientes cmdSiguiente
Ultimo cmdUltimo

Código PHP:

  Dim Cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
 
Private Sub Form_Load() 
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;" 
    rs.CursorType = adOpenKeyset 
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic 
    Set txtNombre.DataSource = rs 
    txtNombre.DataField = "campo" 
End Sub 
 
Private Sub cmdAnterior_Click() 
rs.MovePrevious 
cmdSiguiente.Enabled = True 
desabilitar 
If rs.BOF = True Then 
 rs.MoveFirst 
 cmdPrimero.Enabled = False 
 cmdAnterior.Enabled = False 
Else 
 refrescar 
End If 
End Sub 
 
Private Sub cmdPrimero_Click() 
rs.MoveFirst 
refrescar 
desabilitar 
End Sub 
 
Private Sub cmdSiguiente_Click() 
rs.MoveNext 
desabilitar 
If rs.EOF = True Then 
   rs.MoveLast 
   cmdUltimo.Enabled = False 
   cmdSiguiente.Enabled = False 
Else 
   refrescar 
End If 
End Sub 
 
Private Sub cmdUltimo_Click() 
rs.MoveLast 
refrescar 
desabilitar 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    Cn.Close 
    Set Cn = Nothing 
End Sub 
 
Public Sub refrescar() 
txtNombre.Text = rs!Nombre 
End Sub 
 
Public Function validar() As Boolean 
If rs.BOF = True Or rs.EOF = True Then 
  validar = False 
Else 
  validar = True 
End If 
End Function 
 
Public Sub desabilitar() 
If cmdPrimero.Value = True Then 
         cmdSiguiente.Enabled = True 
         cmdUltimo.Enabled = True 
         cmdAnterior.Enabled = False 
         cmdPrimero.Enabled = False 
Else 
If cmdUltimo.Value = True Then 
         cmdSiguiente.Enabled = False 
         cmdUltimo.Enabled = False 
         cmdAnterior.Enabled = True 
         cmdPrimero.Enabled = True 
Else 
        cmdSiguiente.Enabled = True 
        cmdUltimo.Enabled = True 
        cmdAnterior.Enabled = True 
        cmdPrimero.Enabled = True 
End If 
End If 
End Sub  
   

Soy novato. Asi que solo te doy lo que he probado y funciona.

Saludos

[mamon]

pucha te pasaste.. gracias, pero una pregunta.. mira yo creo un proyecto EXE standar.. y cuando lo corro me sale un error en Dim Cn As New ADODB.Connection

xq? sabes?

[2Fast To You]

Bueno, mira ya fuistes antes de Corre el Programa a Referencias que se encuentra en Proyecto. Y debes de busca ahí lo siguiente:

Microsoft ActiveX Data Objects 2.0 Library

Si no lo has hecho puede que sea por eso:

Saludos

[mamon]

pucha.. y ahora me sale error en el string para conectarme al access=S qué debo hacer? y si quiero conectarme con DSN?

[mamon]

ah no!.. ya ta.. el problema era yo! jajajaaj.. muchas gracias.. te pasaste!

[2Fast To You]

Me alegro que te Alla Ayudado mi pequeña Ayuda. Realmente soy nuevo en esto de la Programación pero bueno. Lo que sé lo comparto con los Demas.

Si quieres agregame a tu MSN [email protected]

Saludos