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.
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.