Resultados 1 al 1 de 1

Tema: Crear base de datos con VB 6.0

  1. #1
    Forero avanzado Avatar de ranefi
    Fecha de ingreso
    23 mar, 03
    Ubicación
    ranefilandia, La Gran Puerta de México
    Mensajes
    232

    Talking Crear base de datos - VB 6.0

    Crear base de datos con una tabla y campos

    Agregar las siguientes referencias al proyecto:

    • Microsoft ADO Ext. 2.8 for DDL and Security

    • Microsoft Jet and Replication Objects 2.6 Library


    E insertar el siguiente código en un...

    Formulario
    Código:
    Private Sub Form_Load()
        ConectaAccess
    End Sub
    Módulo
    Código:
    Const nombreBD = "bd.mdb"
    Const nombreTabla = "Tablilla"
    
    Public Sub ConectaAccess()
        Dim RutaBD As String: RutaBD = App.Path & "\"
        Dim strProveedor As String
        Dim crearADO As ADOX.Catalog
        
        strProveedor = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            RutaBD & nombreBD
        
        On Error GoTo ups
        Set crearADO = New ADOX.Catalog
        
        If Len(Dir$(nombreBD)) Then
            If MsgBox("Desea reemplazar la base de datos existente?", _
             vbQuestion + vbYesNo + vbDefaultButton2, _
             "Reemplazar base de datos") = vbNo Then
                Exit Sub
            Else
                Kill nombreBD
            End If
        End If
        
        crearADO.Create strProveedor
        
        Dim Tablita As ADOX.Table: Set Tablita = New ADOX.Table
        
        With Tablita
            .Name = nombreTabla
            
            .Columns.Append "ID", adInteger
            .Columns.Append "Nombre", adVarWChar, 50
            .Columns.Append "Direccion", adVarWChar, 50
            .Columns.Append "Telefono", adVarWChar, 50
        End With
        
        crearADO.Tables.Append Tablita
        
        Set Tablita = Nothing
        Set crearADO = Nothing
        Exit Sub
    ups:
        MsgBox "¡Órale! Algó pasó:" & vbCrLf & _
            Err.Number & " " & Err.Description, vbExclamation, _
            "Un error cochino"
            
        Err.Clear
    End Sub
    No tiene mucha ciencia.
    Última edición por ranefi; 30/08/2007 a las 20:16
    Querer ser diferente te hace igual.

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •