| Pregunta: | 7728 - CREAR BASES DE DATOS ACCESS DESDE VB |
| Autor: | victor navia |
| caballeros necesito crear bases de datos de acces 97 desde vb, y se me esta complicando.
agradeseria mucho su ayuda. gracias... | |
| Respuesta: | raul |
| El ejemplo que describe xavi esta bien pero omitio un detalle y eso hace fallar el programa.
lo que falto fue definir tabledef (definir la tabla como usuario o con el nombre que uno guste darle). espero sirva de algo esta aportacion.... | |
| Respuesta: | Xavi |
| Aqui te adjunto el codigo que utilizo para crear una base de datos.
Dim xx As TableDef Dim x As Database Dim xxx As Recordset ' creamos el archivo Set x = CreateDatabase(Directorio & "\" & NombreArchivo.Text & ".mdb", dbLangSpanish) Set x = OpenDatabase(Directorio & "\" & NombreArchivo.Text & ".mdb") ' Creamos la tabla de los programadores Set xx = x.CreateTableDef("usuarios") ' Creamos los campos para la tabla With xx .Fields.Append .CreateField("Nombre", dbText, 30) .Fields.Append .CreateField("Apellido", dbText, 30) .Fields!Apellido.AllowZeroLength = True .Fields.Append .CreateField("Mail", dbText, 50) .Fields.Append .CreateField("Numero", dbText, 8) .Fields.Append .CreateField("FechaAlta", dbDate, 6) .Fields.Append .CreateField("Comentario", dbText, 50) .Fields!Comentario.AllowZeroLength = True .Fields.Append .CreateField("MensajeAlta", dbBoolean) ' Agregamos los campos a la nueva tabla x.TableDefs.Append xx Set xxx = x.OpenRecordset("usuarios") x.Close Saludos. | |