a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 數據庫 > Access > 正文

在VB中動態創建數據庫

2024-09-07 19:03:28
字體：大 中 小
來源：轉載
供稿：網友

在VB中動態創建數據庫
新建工程.添加控件 對應寫上代碼

以下為引用的內容：
Private Sub Command2_Click()
Dim myDB As DAO.Database
'Set myDB = DAO.OpenDatabase("d:/mydb3.mdb")
Set myDB = DAO.OpenDatabase(App.Path "/mydb.mdb")
Dim d As String
d = "delete * from NewTable1"
myDB.Execute d
MsgBox "成功刪除全部記錄"
End Sub

Private Sub Command3_Click()
Dim myDB As DAO.Database
'Set myDB = DAO.OpenDatabase("d:/mydb3.mdb")
Set myDB = DAO.OpenDatabase(App.Path "/mydb.mdb")
Dim e As String
e = "drop TABLE NewTable1"
myDB.Execute e
End Sub

Private Sub Form_Load()
Dim myDB As DAO.Database
'Set myDB = DAO.Workspaces(0).CreateDatabase("d:/mydb3.mdb", dbLangGeneral)
Set myDB = DAO.Workspaces(0).CreateDatabase(App.Path "/mydb.mdb", dbLangGeneral)
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
Dim a As String
a = "Insert INTO NewTable1 VALUES ('litao','21')"
myDB.Execute a

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close
MsgBox "成功創建mydb3.mdb數據庫外加一條記錄litao 21"
End Sub

Private Sub Command1_Click()
Dim myDB As DAO.Database
'Set myDB = DAO.OpenDatabase("d:/mydb3.mdb")
Set myDB = DAO.OpenDatabase(App.Path "/mydb.mdb")
Dim c As String
c = "Insert INTO NewTable1 VALUES ('liqiao','20')"
myDB.Execute c
MsgBox "成功插入一條記錄liqiao 20"
End Sub

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产视频福利一区 | 一区二区亚洲视频 | 国产精品无码永久免费888 | 福利影院在线观看 | 四虎成人永久 | 性做久久久久久久免费看 | 密色视频 | 久久亚洲精品国产一区 | 精品一区二区6 | 欧美午夜一区二区三区 | 午夜一区二区在线观看 | 亚洲精品视频导航 | 亚洲精品久久久久国产 | 日韩中文字幕电影在线观看 | 日韩精品一区二区三区视频播放 | 91精品国产人妻国产毛片在线 | 亚洲视频免费在线 | 久久精选视频 | 91精品国产免费 | 日日夜夜欧美 | 一区二区三区免费av | 午夜黄色av | 精品国产99 | 91精品国产综合久久久蜜臀图片 | 欧美一区二区三区的 | 久久成人亚洲 | 国产欧美精品一区二区色综合 | 国产精品久久久久久久久久久久久 | 国产精品美女视频 | 国产视频欧美视频 | 欧美精品亚洲 | 久草在线| 成人在线免费视频 | 日韩欧美一区二区三区 | 99精品一区二区 | 欧美日韩久久精品 | 久久91视频 | 另类五月天 | 狠狠操天天操 | 久久com | 成人a在线|