Cómo conectarse a Access en VB6

Escrito por alexander gokhfeld | Traducido por juan manuel rodriguez
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo conectarse a Access en VB6
Visual Basic permite a los usuarios conectarse a bases de datos Access de aplicaciones de usuario. (Chad Baker/Photodisc/Getty Images)

El lenguaje de programación Visual Basic 6 (VB6) utiliza el módulo del sistema proveedor Microsoft Jet OLE DB (OLE DB del inglés Object Linking and Embedding Database), o vinculación e incrustación de objetos en base de datos, para conectarse a una base de datos Access. Puedes crear conexiones a orígenes de datos desde la aplicación utilizando objetos de conexión de datos en los programas de VB6. Al establecer la propiedad ConnectionString del objeto OleDbConnection, puedes abrir la conexión a una base de datos Access. Cuando estableces una conexión entre una aplicación y la base de datos de Access, puedes actualizar los datos, imprimir o previsualizar un informe de Access y mostrar un formulario en las aplicaciones de Visual Basic 6.

Nivel de dificultad:
Fácil

Otras personas están leyendo

Instrucciones

  1. 1

    Haz clic en "Start" (Inicio) en Windows y luego en "Microsoft Visual Studio".

  2. 2

    Selecciona "File" (Archivo) y "Open" (Abrir), luego haz doble clic en el programa Visual Basic en el que deseas conectarte a tu base de datos Access.

  3. 3

    Escribe el siguiente código después de la línea "Public Shared Main()" para conectarte a la base de datos "Orders" (Pedidos) de Access e inserta una nueva orden:

    Public Sub ConnectToAccess()

    Dim conn As New System.Data.OleDb.OleDbConnection()

    Dim insert_rec As SqlCommand

    ' modify the connection string

    conn.ConnectionString = & _

    "Provider=Microsoft.Jet.OLEDB.12.0;Data source=" & _ "C:\Documents and Settings\username\My Documents\dbFile.mdb"

    Try

    conn.Open()

    ' insert SQL statement to add data.

    insert_rec = New SqlCommand("INSERT INTO Orders (Product

    ID, Product Name, Price, Units, Location) values ('36127',

    'Circular Axle', '250.95', 50, 'Warehouse', conn)

    ' monitor the connection for errors

    Catch ex As Exception

    MessageBox.Show("Failed to connect to data source")

    conn.Close()

    End Try

    End Sub

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles