Holas;
Bases de Datos usando DAO
y Visual Basic (clásico) = http://www.mundoprogramacion.com/vb/bases/indiceDAO.asp Contenido:
1. Copiar la estructura de una tabla con Access
2. Ordenes SQL para cambiar los datos de una tabla.
3. Caracteres no "standards" en los nombres de los campos
4. Procesar una consulta SQL (Execute)
5. Procesar una consulta SQL creando un Recordset
6. Evitar el error al asignar un Null
7. Comprobar si un registro se está editando
8. Asignar a un Recordset los registros deseados
9. Compactar una base de datos, usando código VB (27/Feb)
10. Crear una base de datos, usando código VB (18/Abr)
11. Como crear un Formulario de Datos con un Grupo de Registros Subyacente (18/Abr)
12. Cambiar los caracteres extraños por ? (para usar en las consultas a bases de datos con LIKE) (20/Abr)
13. Procesar el resultado de una consulta con varias tablas para evitar registros duplicados (13/Jul)
14. Programación sobre la seguridad de Access (31/Ago)
15. Un método rápido para efectuar búsquedas (8/Sep)
16. Enumerar las tablas de una base de datos (17/Sep)
17. Capturar errores de ODBC (9/Abr/98)
18. Acceso a bases de datos SQL Server...
19. Cargar Imágenes de una base de datos sin usar el DataControl
20. Acceder a bases de datos de Access 2000 con el VB5 (05/Oct/99)
21. Un consejo si instalas VB6 SP4 para acceder a bases de datos de Access 2000 (10/Nov/00)
22. Ejemplo "simple" de acceso a datos DAO con el data control (Curso Básico entrega 34) (09/Jul/03)
23. Buscar en una base de datos DAO con el data control (Curso Básico entrega 35) (09/Jul/03)
24. Acceder a una base de datos DAO sin el data control (Curso Básico entrega 40) (09/Jul/03)
25. Realizar consultas en una base de datos DAO (Curso Básico entrega 40) (09/Jul/03)
26. Cómo manejar fechas en consultas, además de otros ejemplos, tanto para ADO como para DAO (09/Jul/03)
27. Instrucciones SQL para seleccionar, actualizar, eliminar datos, etc. (02/May/04)
28. Conectar a una base de datos de SQL Server con VB6 (Abrir una tabla y mostrar los campos/columnas) (10/Sep/04)
29. Indicar el path de una base de datos usando el control data (18/Sep/04)
Ejemplo paso a paso de cómo usar un control data y DataGrid
10.- Crear una base de datos, usando código VB (18/Abr) : http://www.mundoprogramacion.com/vb/...eDAO.asp#db010
Código:
Private Sub CrearBase(sBase As String)
'Crear la base de datos indicada
'
Dim Db As Database
Dim Fd As Field
Dim Tb As New TableDef 'Definir una Tabla
Dim Idx As New Index 'Para crear un índice
Dim i As Integer
'Crear base de datos, idioma español y para la versión 2.0 del Jet de Access
'================================================================================
'Si vas a adaptar este programa para VB3, usa dbVersion11 en lugar de dbVersion20
'================================================================================
Set Db = CreateDatabase(sBase, dbLangSpanish, dbVersion20)
'
'La constante dbVersion20 no aparece en la ayuda, en su lugar lo hace la dbVersion25
'pero ésa no está creada!!!
'
'Primero la tabla de las tareas
Set Tb = Db.CreateTableDef("Tareas")
'Vamos a crear cada uno de los campos
Set Fd = Tb.CreateField("ID", dbLong)
'Ahora vamos a asignar las propiedades de contador, etc.
Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
Tb.Fields.Append Fd
'El resto de los campos
Set Fd = Tb.CreateField("Fecha", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Asunto", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Descripcion", dbMemo)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("FechaInicio", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("FechaTermino", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Terminada", dbInteger)
Tb.Fields.Append Fd
'Creamos un índice con el ID
Idx.Name = "PrimaryKey"
Idx.Unique = True
Idx.Primary = True
Idx.Fields = "ID"
Tb.Indexes.Append Idx
'Añadimos la tabla a la base
Db.TableDefs.Append Tb
'
'Creamos la otra tabla: Anotaciones
Set Tb = Db.CreateTableDef("Anotaciones")
'El campo ID, es el contador, etc.
Set Fd = Tb.CreateField("ID", dbLong)
Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
Tb.Fields.Append Fd
'El resto de los campos
Set Fd = Tb.CreateField("Fecha", dbDate)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Tema", dbText, 50)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Asunto", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Medio", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Localizacion", dbText, 255)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Descripcion", dbMemo)
Tb.Fields.Append Fd
Set Fd = Tb.CreateField("Detalle", dbLongBinary)
Tb.Fields.Append Fd
'Creamos un índice con el ID
Set Idx = Nothing 'Quitar la referencia anterior
Idx.Name = "PrimaryKey"
Idx.Unique = True
Idx.Primary = True
Idx.Fields = "ID"
Tb.Indexes.Append Idx
'Añadimos la segunda tabla a la base
Db.TableDefs.Append Tb
'Cerramos la base
Db.Close
MsgBox "Nueva base de datos " & sBase & " creada.", vbInformation
End Sub
(ADO = ActiveX Data Objects) http://www.mundoprogramacion.com/vb/.../indiceADO.htm Contenido:
1. Indicar el path de una base de datos usando el control data (18/Sep/04)
Ejemplo paso a paso de cómo usar un control data y DataGrid
2. Conectar a una base de datos de SQL Server con VB6 (Abrir una tabla y mostrar los campos/columnas) (10/Sep/04)
3. Instrucciones SQL para seleccionar, actualizar, eliminar datos, etc. (02/May/04)
4. Acceder a una base de datos de Access desde una página ASPX usando ADO (02/Ene/04)
5. Comprobar si un Recordset está vacío (18/Dic/03)
6. Cómo manejar fechas en consultas, además de otros ejemplos, tanto para ADO como para DAO (09/Jul/03)
7. Acceder a una base de datos ADO sin el data control (Curso Básico entrega 41) (09/Jul/03)
8. Más consejos para mejorar el acceso a datos, aportados por Norman A. Armas (25/Oct/01)
9. Compactar y cambiar el password de una base de datos (24/Oct/01)
10. Compactar una base de datos con password (24/Oct/01)
11. Consejos para mejorar el acceso a los datos (04/Oct/01)
12. Código de ejemplo de compactar, crear base y crear tablas con ADO (29/Sep/01)
13. Compactar una base de datos usando ADO y VB (29/Sep/01)
14. Crear una tabla en una base de datos, usando ADO y VB (29/Sep/01)
Leer nota del 04/Oct/01 y 27/Dic/02
15. Crear una base de datos con ADO, usando código de VB (29/Sep/01)
16. Abrir una base de datos ADO con contraseña (05/Sep/01)
17. Manipular imágenes usando ADO (con datacontrol) (11/Jul/01)
18. Usar el ADO DataControl (Curso Básico entrega 36) (14/Feb/01)
19. Acceder a bases de datos usando ADO (sin el data control) (31/Ago/99)
20. Acceder a bases de Access 2000 (usando el datacontrol de ADO) (31/Ago/99)
Nos vemos.