Crear una base de datos de Access desde VFP
Visual Fox Pro, Trucos, Bases de datos Agregar ComentariosUtilizando ADOX podemos crear una base de datos de Access y agregarle tablas, y a estas campos e índices.
oCata = CreateObject("ADOX.Catalog")
cCadBD = "Provider=Microsoft.Jet.OLEDB.4.0;"+;
"Data Source = C:MiBaseDeDatos.mdb;"
* Crea la base de datos
oCata.Create(cCadBD)
oCata.ActiveConnection = cCadBD
oTabla = CreateObject("ADOX.Table")
* Nombre de la nueva tabla
oTabla.Name = "Alumnos"
nTipoInt = 3
nTipoFecha = 7
nTipoVarChar = 202
* El último parámetro es el ancho del campo
* Agregando campos a tabla Alumnos
With oTabla.Columns
.Append("CodiAlum",
nTipoInt)
.Append("Apellidos", nTipoVarChar, 70)
.Append("Nombres", nTipoVarChar, 70)
.Append("FecNace", nTipoFecha)
.Append("Direccion", nTipoVarChar, 200)
EndWith
* Agrego la tabla
oCata.Tables.Append(oTabla)
Release oTabla, oCata
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
