Preguntas Sencillas Bd

[PanKrdo]

Hola

Mira para poder crear un MBD desde VB6.0 primero tienes que activar la referencia "Microsoft DAO 3.6 Object Library" esto para poder crearla.

Y despues en un modulo puedes copiar el siguiente codigo en un Modulo

Public Sub MakeMDB(Ruta As String)
Dim MDB As Database
Dim Tabla As DAO.TableDef
Dim Campo As DAO.Field

'************************************************* *******
'*****************Crear la Base de Datos*****************
'************************************************* *******
Set MDB = DBEngine.CreateDatabase(Ruta, dbLangGeneral)

'************************************************* *******
'***************Crear la tabla******************************
'************************************************* *******
Set Tabla = New DAO.TableDef
With Tabla
Set Campo = .CreateField("Nombre", dbLong)
.Fields.Append Campo
Set Campo = .CreateField("Direccion", dbText, 50)
.Fields.Append Campo
Set Campo = .CreateField("Telefono", dbText, 50)
.Fields.Append Campo
Set Campo = .CreateField("email", dbText, 50)
.Fields.Append Campo
.Name = "Tabla1"
End With

' Anexar la tabla a la Base de datos:
MDB.TableDefs.Append Tabla

'Cerramos la base de datos
MDB.Close
Set Campo = Nothing
Set Tabla = Nothing
Set MDB = Nothing
End Sub

Y despues en el formulario principal copias el siguiente codigo

Private Function MDBexiste(RutaMDB As String) As Boolean
If Dir(RutaMDB, vbArchive) <> "" Then
MDBexiste = True
End If
End Function

Private Sub Form_Initialize()
If Not MDBexiste(App.Path & "\MiMDB.mdb") Then
MakeMDB App.Path & "\MiMDB.mdb"
End If
End sub

Pero con esto no puedes modificar registros eso es con otro codigo si quires te la puedo enviar ya que es un poco larga