Crear un archivo MDB con una tabla
Este código te crea un archivo MDB y una tabla sobre ese archivo, los campos ya son a como tu los definas, yo solo puse varios como ejemplo..:
Esto funciona en Visual Basic 6.0 y la tabla es creada en Access 2003
Private Sub CrearBaseDatos(ByRef sBase As String)
' Crear la base de datos indicada
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim Col As ADOX.Column
Dim i As Long
Dim campo1 As String
DataProvider = "Microsoft.Jet.OLEDB.4.0"
Set cat = New ADOX.Catalog
' Crear la base de datos
On Error Resume Next
cat.Create "Provider=" & DataProvider & ";" & _
"Data Source=" & sBase
If Err.Number Then
Mensaje = "error Nº " & Err.Number
End If
Err.Clear
On Error GoTo 0
Set tbl = New ADOX.Table
' NOMBRE DE LA TABLA
sTabla = NomTabla
With tbl
.Name = sTabla
Set Col = New ADOX.Column
With Col
.Name = "num"
.Type = adInteger
.Attributes = adColNullable
.NumericScale = 0
Set .ParentCatalog = cat
End With
.Columns.Append Col
.Columns.Append "Campo1", adVarWChar, 20
.Columns.Append "Campo2", adVarWChar, 150
.Columns.Append "Campo3", adDouble
.Columns.Append "campo4", adSmallInt
.Columns.Append "Campo5", adLongVarWChar ' Una cadena larga, (Memo)
.Columns("campo1").Attributes = adColNullable ' Permite contener nulos
.Columns("campo2").Attributes = adColNullable
.Columns("campo3").Attributes = adColNullable
.Columns("campo4").Attributes = adColNullable
.Columns("campo5").Attributes = adColNullable
.Columns("campo3").NumericScale = 2
End With
' Añadir la nueva tabla a la base de datos
cat.Tables.Append tbl
Set idx = Nothing
Set tbl = Nothing
Set cat = Nothing
'MsgBox "Nueva base de datos " & sBase & " creada.", vbInformation
End Sub
No sé como se haga con las instrucciones READ-DATA del Basic tradicional, pero espero esto te sirva. Saludos
