Ver Mensaje Individual
  #7 (permalink)  
Antiguo 07/02/2008, 07:48
zeroyevi
 
Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 17 años, 1 mes
Puntos: 0
Re: Conectar a una base de datos access desde visual basic

hola mi nombre es fernando , estoy haciendo coneccion con acceess , para mi es un caos en estos momentos ya que programo en visual.net y por cosas de la vida ahora tengo que hacerla en visual basic 6 .... coneccion con ADO es mucho mas facil pero en visual 6 ya las cosas me marean estoy haciendo un modulo de coneccion y estado buscando mas infomacion ya que mi access le puse usuario y password , necesito saber dos cosas fundamental ya tengo el ODBC conectado a al acces me falta

*una funcion que me conecte a al access
usuario y password

* la sentencia como como leer el access
* y como agregar un valor

y que me pueda explicar de forma facil yo tengo algo pero no se si esta bien y si me va funcionar

MODULO

Option Explicit
Public enlace As New ADODB.Connection

Public Function AbrirConexion(NombreBD As String)
Dim ErrorBD As ADODB.Error
On Error GoTo Error

Set AccessConexion = New ADODB.Connection
With AccessConexion

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "c:\MI_ACCESS.mdb" & NombreBD & ";Jet OLEDB:Database Password= **** "
.Open

End With

Exit Function

Error:
For Each ErrorBD In AccessConexion.Errors
MsgBox ("Error VB:" & ErrorBD.Number & vbCrLf _
& "Error Access:" & ErrorBD.NativeError & vbCrLf _
& "Error SQL:" & ErrorBD.SQLState & vbCrLf _
& "Generado Por:" & ErrorBD.Source & vbCrLf _
& "Descripción:" & ErrorBD.Description)
Next

End Function

-------------------------------------------------------------------------------
FORMULARIO

???????????????? aqui tengo duras y quiero saver si me falta en el modulo algo

gracias