07/02/2008, 07:48
|
| | 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 |