日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

在VB中動(dòng)態(tài)創(chuàng)建數(shù)據(jù)庫(kù)_Access數(shù)據(jù)庫(kù)教程

編輯Tag賺U幣
教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

推薦：在ACCESS 中調(diào)用后臺(tái)存儲(chǔ)過(guò)程
ACCESS是一個(gè)Client/Server的優(yōu)秀前端開(kāi)發(fā)工具，具有易學(xué)易用，界面友好，開(kāi)發(fā)簡(jiǎn)單，和其他數(shù)據(jù)庫(kù)接口靈活。但是，它要對(duì)大量數(shù)據(jù)處理時(shí)，速度比較慢。深圳供電局現(xiàn)有60萬(wàn)用戶，下面有6個(gè)營(yíng)業(yè)所

在VB中動(dòng)態(tài)創(chuàng)建數(shù)據(jù)庫(kù)
新建工程.添加控件 對(duì)應(yīng)寫(xiě)上代碼

以下為引用的內(nèi)容：
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 "成功創(chuàng)建mydb3.mdb數(shù)據(jù)庫(kù)外加一條記錄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

分享：如何防止ACCESS數(shù)據(jù)庫(kù)被下載
　　昨天和animator試驗(yàn)了一下，把data.mdb文件改名為data.asp文件后放在wwwroot目錄里。然后在IE中輸入data.asp路徑后，發(fā)現(xiàn)IE顯示一片空白，右鍵->察看源文件，跳出記事本，將內(nèi)容另存為.m

來(lái)源：模板無(wú)憂//所屬分類(lèi)：Access數(shù)據(jù)庫(kù)教程/更新時(shí)間：2008-08-22
相關(guān)Access數(shù)據(jù)庫(kù)教程：