Access, Crear Tablas Y Campos Con Visual Basic

[jcl]

Hola,

Se que existe alguna forma de crear Tablas nuevas con sus respectivos campos en una base de datos , usando código de Visual Basic ... el problema es que no se cómo se hace ni cuales son las instrucciones.

¿Alguien tendrá un código en VB que haga esto?

Gracias.

[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....

[jcl]

Ni siquiera un principiante cree eso ...

[sdnsdlm]

Puedes crear las tablas con consultas de acción puras y duras, creas una conexión con ADO a la BBDD y luego ya ejecutas el create table especificanco los campos y el tipo de datos, etc... (SQL puro y duro), pero yo te aconsejaría que te introdujeras brevemente en el modelo de objetos de ADOX, es muy sencillo para lo que te propones y no ofrece mayores complicaciones. Tienes tropecientos mil ejemplos por Internet, verás que la tarea de crear tablas es extremadamente sencilla usando ADOX.

Saludos.

[sdnsdlm]

Lo siento, no vi tu otro mensaje, ya veo que ibas encaminado.

[Gennys]

Hola a todos y en especial a JCL.
JCL, te comento lo siguiente. El codigo que puse para responder la pregunta, lo hago en muchas aplicaciones que hago en VB Enterprise 6.0, y la hago para reportes a traves de crystal report 8.5. asi que con todo el respeto que te mereces, no confirmes lo que no sabes,.

Claro esta que tienes que activar en componentes de VB, el Microsoft ADO Data Control, como te dije el codigo que coloque lo pones en el modulo general, y en cualquier evento del programa, llama a la funcion y veras que te crea la BD, estoy canso y harto de crear BD con VB... Pilas no te dejes engañar.... Otra cosa fijate que en las referencias del proyecto, actives el RDO COntrol, y el ADO data control, o sino no puedes acceder a crear las BD..