麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 數據庫 > 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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产毛片毛片 | chinese 军人 gay xx 呻吟 | 神马福利电影 | 欧美一级免费在线观看 | 视频h在线 | 国产91精品欧美 | 亚洲小视频网站 | 毛片中文字幕 | 免费视频a | 国产福利视频在线观看 | 污视频在线免费播放 | 一区二区三区视频在线观看 | 最新一区二区三区 | 欧美日韩大片在线观看 | 黄视频网站免费在线观看 | 黄色一级片免费观看 | 99精品国产一区二区三区 | 日韩欧美动作影片 | 国产成人精品网站 | 成人一级视频在线观看 | 男女污污视频网站 | 亚洲一级簧片 | 毛片在线视频观看 | 欧美亚洲综合在线 | 日本黄色一级视频 | 亚洲一区二区不卡视频 | 被啪羞羞视频在线观看 | 日韩精品一二三 | 久久久久久久久久久久久久av | 久色porn| 日本xxxx视频 | 国产精品久久国产精麻豆96堂 | 深夜影院一级毛片 | 3xxx| 爱福利视频网 | 国产免费高清在线视频 | v11av在线播放 | 91精品国产91 | 黄色毛片免费看 | 9999视频 | 亚洲成人第一页 |