CREAR BASE DE DATOS AL COMPLETAR X CANTIDAD DE REGISTROS

Spow
16 de Julio del 2004
Hola colegas, en esta oportunidad tengo una gran duda ya
que estoy creando un sistema el cual se va a ingresar
miles de registros diariamiente a la base de datos pero
el problema comienza es que necesito que el sistema me
cree automaticamente la base de datos al ya tener
completados por ejemplo 3 millones de registros. Lo
importante es que el me detecte que cuando ya alla 3
millones de registros me genere otra base de datos con un
nombre aleatorio. Tengo la opcion para hacerlo de esta
manera o tambien puedo hacerlo que cada 15 días el
programa lo genere automaticamente. De verdad amigo que
no se si esto pueda hacerse pero agradezco de tu ayuda
colega.... Muchas Gracias de Antemano =) Suerte

tecniCam
16 de Julio del 2004
¿Tu sabes lo que son 3.000.000 de registros?
Tengo yo problemas cuando trato sólo con 70.000...

En fin...
Ahí llevas un poquito de código para que te entretengas:

Define el objeto Base de Datos y crea la BD
'************************************
'Sintaxis completa del método CreateDatabase
'************************************
Dim NewDb As Database, NewWs As Workspace
Set NewWs = DBEngine.Workspaces(0)
Set NewDb = NewWs.CreateDatabase("C:LAPERA.MDB",dbLangGeneral)
'**********************************************
'Sintaxis de la función CreateDatabase (método de VB3 y anteriores)
'**********************************************
Dim NewDb As Database
Set NewDb = CreateDatabase("C:LAPERA.MDB",dbLangGeneral)

Crea los objetos Campos y establece las propiedades
'***********************************************************
Dim F1 As Field, F2 As Field, F3 As Field, F4 As Field
Dim F5 As Field, F6 As Field, F7 As Field
'***********************************************************
'Especifica nombre de Campo, tipo y el tamaño
'***********************************************************
Set F1 = NewTbl.CreateField("Articulo", dbText, 10)
Set F2 = NewTbl.CreateField("Descripcion", dbText, 50)
Set F3 = NewTbl.CreateField()
'*******************************
'Establece las propiedades de los campos
'*******************************
F3.Name = "Categoría"
F3.Type = dbText
F3.Size = 10
Set F4 = NewTbl.CreateField("Mayorista", dbSingle)
'*************************************
'Validación de las propiedades de los campos
'*************************************
F4.ValidationRule = "Mayorista > 0"
F4.ValidationText = "El precio de venta debe ser mayor que 0."
Set F5 = NewTbl.CreateField("Minorista", dbSingle)
Set F6 = NewTbl.CreateField("CantidadMinima", dbInteger)
Set F7 = NewTbl.CreateField()
F7.Name = "Disponible"
F7.Type = dbInteger

Añade los campos a la definición de la tabla
'*******************************************
NewTbl.Fields.Append F1
NewTbl.Fields.Append F2
NewTbl.Fields.Append F3
NewTbl.Fields.Append F4
NewTbl.Fields.Append F5
NewTbl.Fields.Append F6
NewTbl.Fields.Append F7

Crea el índice de los objetos, asigna propiedades y añade los índices a la tabla
'*******************************************
Dim Idx1 As Index, Idx2 As Index, Fld1 As Field, Fld2 As Field
Set Idx1 = NewTbl.CreateIndex("Articulo")
Idx1.Primary = True
Set Fld1 = Idx1.CreateField("Articulo")
Idx1.Fields.Append Fld1
Set Idx2 = NewTbl.CreateIndex("PrecioPagado")
Idx2.Unique = False
Set Fld2 = Idx2.CreateField("Mayorista")
Fld2.Attributes = dbDescending
Idx2.Fields.Append Fld2
NewTbl.Indexes.Append Idx1
NewTbl.Indexes.Append Idx2

Especifica la relación entre dos tablas
'**************************************
Dim NewRel As Relation
Dim Fld1 As Field
'**************************
'Crea el objeto Relation
'**************************
Set NewRel = NewDb.CreateRelation("PedidosClientes")
'**********************************
'Establece las propiedades de la relación
'**********************************
NewRel.Table = "Clientes"
NewRel.ForeignTable = "Pedidos"
'************************************************
'Crea el campo relación y establece las propiedades
'************************************************
Set Fld1 = NewRel.CreateField("Cliente")
Fld1.ForeignName = "Cliente"
'**************************************************
'Añade el campo a la relación y la relación a la BD
'**************************************************
NewRel.Fields.Append Fld1
NewDb.Relations.Append NewRel

Etc., etc...

tecniCam
16 de Julio del 2004
Si quieres TODO sobre Bases de Datos entra en mi sitio VISUALIA:

http://usuarios.lycos.es/tecnicam