Crear más de una tabla

Shell 10-05-2023, 22:26

Buenas!.

Como siempre he trabajado con una tabla para las prácticas de sqlite, solo tengo un procedimiento para la creación de la misma.
Ejemplo de la tabla animales.

Código:
Public Sub CrearTabla(hConn As Connection, sDatabase As String)

  Dim htabla As Table

  htabla = hConn.Tables.Add("animales")

  With htabla

    .Fields.Add("id_mascota", db.Serial)

    .Fields.Add("nombre", gb.String, 40)

    .Fields.Add("especie", gb.String, 40)

    .Fields.Add("sexo", gb.String, 2)

    .Fields.Add("ubicacion", gb.String, 10)

    .Fields.Add("estado", gb.String, 2)

    .PrimaryKey = ["id_mascota"]

    .Update

  End With

End

Si tengo que crear varias tablas, veo complicado que se haga desde un mismo procedimiento, pasándole parámetros. Se podrían almacenar en una colección.
La forma más sencilla o básica sería:

Proceso CrearTablas(Conexión, nombreDeBaseDeDatos)
CrearTabla1
CrearTabla2
"
Fin del proceso

Supongo que es la que se suele usar.

Saludos

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln