crear tabla desde visual

22/07/2003 - 01:49 por Alejandro | Informe spam
Hola amigos, tengo un problema, necesito crear una tabla
de access 97 desde visual basic 5.0.
Cuando creo las tablas y le pongo los distintos tipos de
datos que tendra como:

dbdate
dbinteger
dblong

no se como ademas de esto, crealos con el formato que yo
quiera, ej:

al crear dbinteger, quiero que sea entero largo
al crear dbdate, quiero que sea fecha corta.

Si alguien sabe como se hace, aqui espero respuestas.
saludos.

Preguntas similare

Leer las respuestas

#1 Softjaen
22/07/2003 - 02:17 | Informe spam
"Alejandro" escribió:

tengo un problema, necesito crear una tabla
de access 97 desde visual basic 5.0.

no se como ademas de esto, crealos con el formato que yo
quiera, ej:

al crear dbinteger, quiero que sea entero largo
al crear dbdate, quiero que sea fecha corta.




Hola, Alejandro:

Si estas utilizando la biblioteca de DAO, para especificar un campo tipo
entero largo, en lugar del valor «dbInteger» utilizar «dbLong». En cuanto al
formato de fecha corta, una vez creado el campo y añadida la tabla a la
colección «TableDefs», debes de crear la propiedad «Format» en el campo tipo
fecha, para indicarle el formato de fecha corta. Te dejo un ejemplo:

Dim db As Database
Dim tbl As TableDef
Dim fld As DAO.Field
Dim prp As Property

' Abrimos la base de datos
Set db = OpenDatabase("C:\Mis documentos\Base1.mdb")

' Creamos un nuevo objeto TableDef
Set tbl = db.CreateTableDef("MiTabla")

' Añadimos los campos
With tbl
.Fields.Append .CreateField("CampoEnteroLargo", dbLong)
.Fields.Append .CreateField("CampoFecha", dbDate)
End With

' Añadimos la tabla a la colección TableDefs
db.TableDefs.Append tbl

' Creamos la propiedad «Format»
Set fld = tbl.Fields("CampoFecha")
Set prp = fld.CreateProperty("Format", dbText, "Short Date")

' Añadimos la propiedad a la colección «Properties»
fld.Properties.Append prp

' Cerramos la base de datos
db.Close

Eso es todo.

Un saludo.

Enrique Martínez
[MS MVP - VB]
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida