Como generar un base de datos automaticamente

[buxforever]

Tengo un formulario donde se ingresar datos principales ej. Nombre,Direccion y lo que quiero hacer es como generar desde el formulario una base de datos en access en blanco donde se vayan ingresando los datos que yo ingrese en el formulario de datos principales.

[gogupe]

Hola buxforever

Tienes que hacer lo siguiente, te pongo un ejemplo que lo uso yo y que me funciona muy bien.

Tienes que agregar la referencia: Microsft Ado Ext ...

A continuación

Código:

Dim Cat As ADOX.Catalog

Set Conexion_MDB = New ADODB.Connection
Set Rst_Mdb = New ADODB.Recordset
Set Cat = New ADOX.Catalog


' Crear la base de datos
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dire_Mdb & ";"


Conexion_MDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mi_base_de_datos\bd.mdb"


Conexion_MDB.Open

Rst_Mdb.ActiveConnection = Conexion
Rst_Mdb.CursorLocation = adUseClient
Rst_Mdb.CursorType = adOpenDynamic
Rst_Mdb.LockType = adLockBatchOptimistic

Conexion_MDB.Execute "CREATE TABLE nombre_tabla  " & _
    "(id autoincrement," & _
    "nombre text(255)," & _
    "apellidos text(255)," & _
    "primary key(id))"
    
Conexion_MDB.Close
Set Conexion_MDB = Nothing

Set Rst_Mdb = Nothing
Set Cat = Nothing

End Function

De este modo ya tienes creada la tabla, me imagino que el resto sabrás hacerlo ¿No?

Saludos.

[buxforever]

a que te refieres como Microsoft Ado Ext

[gogupe]

Te tienes que ir dentro de los menús de Visual Basic a:
Proyecto --> Referencias --> Microsoft Ado

Instala la ultima version que tengas instalada

Saludos

[buxforever]

a que te refieres como Dire_Mdb es una funcion y porque End Function donde se declara las funciones..

[buxforever]

Problema Resuelto..