Pregunta: | 1647 - CREAR UNA BASE DE DATOS MEDIANTE CODIGO |
Autor: | Paulo César |
Necesito saber si me pueden ayudar para crear una base de datos desde el propio visual basic mediante codigo... |
Respuesta: | Xavi |
Este es el codigo de como yo lo hago... Dim xx As TableDef Dim x As Database Dim xxx As Recordset ´creamos el archivo Set x = CreateDatabase(Directorio & "\BaseDeDatos.mdb", dbLangSpanish) ´Abrimos el archivo Set x = OpenDatabase(Directorio & "\BaseDeDatos.mdb") ´ Creamos la tabla Set xx = x.CreateTableDef("NombreTabla") ´ Creamos los campos para la tabla With xx .Fields.Append .CreateField("Campo1", dbText, 25) .Fields.Append .CreateField("Campo2", dbText, 20) ´ Agragamos los campos a la nueva tabla x.TableDefs.Append xx Set xxx = x.OpenRecordset("bases") End With With xxx ´Agregamos datos a la tabla .AddNew .Fields!Nombre = NombreArchivo.Text & ".mdb" .Fields!Caracter = Caracteres.Text .Update End With ´cerramos la base de datos x.Close Espero que te sirva. |