Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo Dim NewDb As Database Dim Ws As Workspace Set Ws = DBEngine.Workspaces(0) Set NewDb = Ws
{"Image DocumentName": "Visual Basic. El Lenguaje. Miguel \u00c1ngel Manso Callejo", "Image ImageDescription": "Ejemplo. Dim NewDb As Database. Dim Ws As Workspace. Set Ws = DBEngine.Workspaces(0) Set NewDb = Ws.CreateDatabase(CommonDialog1.FileName, dbLangGeneral) Dim NewTb As TableDef. Set NewTb = NewDb.CreateTableDef( observaciones ) ReDim campo(1 To 7) As Field. Set campo(1) = NewTb.CreateField( N\u00famero estaci\u00f3n , dbLong) Set campo(2) = NewTb.CreateField( N\u00famero visado , dbLong) ... Dim i As Byte. For i = 1 To 7. NewTb.Fields.Append campo(i) Next i. NewDb.TableDefs.Append NewTb. NewDb.Close. Visual Basic. El Lenguaje. Miguel \u00c1ngel Manso Callejo.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}