在VB中動態(tài)創(chuàng)建數(shù)據(jù)庫_Access數(shù)據(jù)庫教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：在ACCESS 中調(diào)用后臺存儲過程
      ACCESS是一個Client/Server的優(yōu)秀前端開發(fā)工具，具有易學(xué)易用，界面友好，開發(fā)簡單，和其他數(shù)據(jù)庫接口靈活。但是，它要對大量數(shù)據(jù)處理時，速度比較慢。深圳供電局現(xiàn)有60萬用戶，下面有6個營業(yè)所
      在VB中動態(tài)創(chuàng)建數(shù)據(jù)庫
      新建工程.添加控件 對應(yīng)寫上代碼
      


      

    

        
      

            以下為引用的內(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ù)庫外加一條記錄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ù)庫被下載
      　　昨天和animator試驗了一下，把data.mdb文件改名為data.asp文件后放在wwwroot目錄里。然后在IE中輸入data.asp路徑后，發(fā)現(xiàn)IE顯示一片空白，右鍵->察看源文件，跳出記事本，將內(nèi)容另存為.m
      


      

      


      來源：模板無憂//所屬分類：Access數(shù)據(jù)庫教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)Access數(shù)據(jù)庫教程：