欧美久久天天综合香蕉伊,h片在线免费观看,九九欧美,欧美1区2区3区,日本在线不卡一区,国产视频久久久,91久久久久久久

　　用VB建立Access數(shù)據(jù)庫(kù)結(jié)構(gòu)

　　Private Sub Command1_Click()

　　On Error GoTo Err100

　　注釋?zhuān)憾x表與字段

　　Dim DefDatabase As Database

　　Dim DefTable As TableDef, DefField As Field

　　Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\vbeden.mdb", 0, False)

　　Set DefTable = DefDatabase.CreateTableDef("VBs")

　　注釋?zhuān)篸bBinary = 9

　　注釋?zhuān)篸bBoolean = 1

　　注釋?zhuān)篸bByte = 2

　　注釋?zhuān)篸bChar=18

　　注釋?zhuān)篸bDate=8

　　注釋?zhuān)篸bInteger=3

　　注釋?zhuān)篸bLong=4

　　注釋?zhuān)篸bMemo=12

　　注釋?zhuān)篸bText=10

　　注釋?zhuān)航ame字段為8個(gè)字符型

　　Set DefField = DefTable.CreateField("Name", dbText, 8)

　　DefTable.Fields.Append DefField　　

　　Set DefField = DefTable.CreateField("Sex", dbText, 2)

　　DefTable.Fields.Append DefField

　　　　

　　注釋?zhuān)涸撟侄卧试S為空

　　DefField.AllowZeroLength = True

　　注釋?zhuān)航ge字段為3個(gè)的常整型

　　Set DefField = DefTable.CreateField("Age", dbInteger, 3)

　　注釋?zhuān)鹤侄巫芳?

　　DefTable.Fields.Append DefField　　

　　注釋?zhuān)罕碜芳?

　　DefDatabase.TableDefs.Append DefTable　　

　　MsgBox " VB編程樂(lè)園數(shù)據(jù)庫(kù)建立完成！", vbInformation　　

　　Exit Sub　　

　　Err100:

　　MsgBox "對(duì)不起，不能建立表。請(qǐng)先再建表前建立VBEden數(shù)據(jù)庫(kù)？ ", vbCritical　　

　　End Sub　　

　　Private Sub cmdCreate_Click()　　

　　On Error GoTo Err100　　

　　注釋?zhuān)航⒚麨?VBEDEN 的數(shù)據(jù)庫(kù)

　　CreateDatabase "VB-CODE", dbLangGeneral　　

　　MsgBox "數(shù)據(jù)庫(kù)建立完成！ ", vbInformation

　　Exit Sub

　　

　　Err100:

　　MsgBox "不能建立數(shù)據(jù)庫(kù)! " & vbCrLf & vbCrLf & Err.Description, vbInformation

　　End Sub