Access, Crear Tablas Y Campos Con Visual Basic

[Gennys]

Hola jcl, este codigo es para crear una base de datos con codigo de VB, ojo tienes que hacerlo en un modulo general. solamente la llamas. este es el codigo:

Public CrearBD()
Dim Campos() As Variant
Dim DATOS As New clsData
Dim Report As New ClsReport

' Estrcutura para la tabla que desea crear
' Tenga en cuenta los tipos de datos asi:
' Char --> Text
' decimal --> Double
' Integer --> Long
' SmallInt --> Integer
' Date --> Texto(10)


Report.CrearTabla "RptCtzcion", "[ORDEN] long," & _
"[NUMERO] long," & _
"[FECHA] Text(10)," & _
"[SERVICIO] Text(60)," & _
"[PRODUCTO] Text(36)," & _
"[VALOR] Double," & _
"[MONEDA] Text(15)," & _
"[CANTIDAD] double," & _
"[UNIDAD] Text(4)," & _
"[TOTAL] Double," & _
"[NIT] Text(10)," & _
"[NOMBRE CLIENTE] Text(40)," & _
"[NOMBRE FACTURAR] Text(50)," & _
"[NOMBRE CIUDAD] Text(20)," & _
"[FORMA DE PAGO] Text(20)," & _
"[APLICAION TASA] Text(30)," & _
"[OBSERVACIONES] Text(250)," & _
"[OBSERVACIONES1] Text(250)," & _
"[CARGO CONTACTO] Text(40)," & _
"[TITULO CONTACTO] Text(15)," & _
"[VIGENCIA] Text(10)," & _
"[TELEFONO] Text(10)," & _
"[FAX] Text(10)"


ejecutalo y veras creada la tabla....