17/10/2006, 02:19
|
| | | Fecha de Ingreso: septiembre-2006
Mensajes: 59
Antigüedad: 17 años, 7 meses Puntos: 0 | |
| Hola.
Ya he encontrado la solucion, ahora solo me falta rellenar dicha tabla....
Pongo el ejemplo para el que lo quiera...
un saludo
Dim BD As Database
Dim RC As Recordset
Dim Tabla As New TableDef
Dim campos(1 To 2) As New Field
Set BD = CreateDatabase("C:\contrasena.mdb", dbLangSpanish, 0)
If Err.Number = 3204 Then
Set BD = OpenDatabase("C:\contrasena.mdb")
Else
Tabla.Name = "misContrasenas"
campos(1).Name = "ID"
campos(2).Name = "Contrasena"
campos(1).Type = dbText
campos(2).Type = dbInteger
Tabla.Fields.Append campos(1)
Tabla.Fields.Append campos(2)
BD.TableDefs.Append Tabla
End If
Set BD = OpenDatabase("C:\contrasena.mdb")
Set RC = BD.OpenRecordset("misContrasenas", dbOpenDynaset) |