PDA

Ver la versión completa : Crear base de datos con VB 6.0



ranefi
30/08/2007, 20:01
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



Private Sub Form_Load()
ConectaAccess
End Sub



Módulo



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.