Foros del Web » Programación para mayores de 30 ;) » Programación General »

coneccion Access en VB6

Estas en el tema de coneccion Access en VB6 en el foro de Programación General en Foros del Web. hola mi nombre es fernando , estoy haciendo coneccion con acceess , para mi es un caos en estos momentos ya que programo en visual.net ...
  #1 (permalink)  
Antiguo 07/02/2008, 07:55
 
Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 17 años, 5 meses
Puntos: 0
coneccion Access en VB6

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
  #2 (permalink)  
Antiguo 07/02/2008, 12:13
 
Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 17 años, 5 meses
Puntos: 0
Re: coneccion Access en VB6

ya encontre la forma de conectarme

creee un modulo sub main el cual llama a otro modulo

----------------------------------------------------------------------------------------------------

Public AccessConexion As ADODB.Connection

Public Sub Conecion()
'_________________________________________________ _________________________________________
'crea la coneccion con el ADODB el cual esta creada a un access
'_________________________________________________ _________________________________________

On Error GoTo Error
Set AccessConexion = New ADODB.Connection

AccessConexion.String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\UBVICACIONACCESS.mdb;Jet OLEDB:System Database=system.mdw;User ID=USUARIO;Password=******;"
AccessConexion.Open


Exit Sub

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


Lectura_Form.Show

End Sub

----------------------------------------------

ahora necesito saber como leer y grabar esop


si quieren usar el codico remplasar la que esta en mayuscula y ****
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:25.