【文章內容簡介】 ame As String Dim sSql As String WN = TableName = 出倉表 Set conn = New = Provider=。 amp。 _ Data Source= amp。 amp。 \ amp。 WN If = adStateOpen Then sSql = DROP TABLE amp。 TableName sSql MsgBox 成功刪除了 amp。 WN amp。 中的 amp。 TableName End If Set conn = Nothing End Sub同樣，再給出一段刪除上篇文章中生成的進銷存表的Excel文件中的出倉工作表的代碼： Sub 刪除出倉表() 39。******************************************* 39。作者：bengdeng 39。功能：在程序文件同一目錄下進銷存表文件里的出倉表 39。注意：要在工具/引用中引用microsoft activex date objects 39。 ，可能會因為你安裝的office的版本不同而不同， 39。******************************************* Dim conn As Dim WN As String Dim TableName As String Dim sSql As String WN = TableName = 出倉表 Set conn = New = Provider=。 amp。 _ Extended Properties=Excel 。 amp。 _ Data Source= amp。 amp。 \ amp。 WN If = adStateOpen Then sSql = DROP TABLE amp。 TableName 11［SQL語句教程］ sSql MsgBox 成功刪除了 amp。 WN amp。 中的 amp。 TableName End If Set conn = Nothing End Sub對于第二段代碼，運行后的結果與第一段代碼不太一樣，我們用Excel打開文件后，會發(fā)現出倉表還是存在的，不過里面的數據已被刪除，這時，如果再運行第二段代碼的話，會發(fā)現有——表39。出倉表39。不存在的提示??！看來SQL處理Excel文件時，把沒有任何數據的空表會認為是不存在的。最后，動一下手，運行一下這兩段代碼吧。12［SQL語句教程］ Alter Table 修改數據表的語句通過這幾天在SQL語言教程中介紹 SQL的文章，相信對SQL感興趣的朋友也就會慢慢增加，這兩天一直困惑在上篇文章介紹的DROP TABLE 應用中，為什么不能刪除Excel工作表，終于在網上的一些內容中看出一些頭緒。 DROP 命令并不是物理上把字段刪除，而只是簡單地把它標記為 SQL 操作中不可見的。隨后對該表的插入和更新將在該字段存儲一個 NULL。因此，刪除一個字段是很快的，但是它不會立即縮減你的表在磁盤上的大小，因為被刪除了的字段占據的空間還沒有回收。這些空間將隨著現有的行的更新而得到回收。看來關于DROP相關的命令還有待繼續(xù)學習，而今天的Alter Table中也包含DROP，在Excel中也存在與上面類似的現象。 Alter Table語言，是用來修改已創(chuàng)建數據表中表格的結構，包括增加列，修改已有列的數據類型和刪除已有的列，其語法是：增加列： Alter Table 表格名 Add Column 列名列名的數據類型修改數據類型： Alter Table 表格名 Alter Column 列名列名的數據類型刪除列： Alter Table 表格名 Drop Column 列名 SQL沒有直接修改列名的SQL語言，可以用建立新列，再把數據復制到新列中，然后刪除舊列的方法來完成列名的更改，還可以利用ADO的Field對象的Name屬性來修改，具體大家可以參考一下ADO的幫助，這就不詳細介紹了。下面還是給出一段程序來讓我們更了解上面說的內容： Sub 修改進銷存表數據庫中明細表的結構() 39。******************************************* 39。作者：bengdeng 39。功能：在程序文件同一目錄下進銷存表數據庫中修改明細表的結構 39。注意：要在工具/引用中引用microsoft activex date objects 39。，可能會因為你安裝的office的版本不同而不同， 39。******************************************* Dim conn As Dim WN As String Dim TableName As String Dim ColumnName As String Dim sSql As String WN = TableName = 明細表 ColumnName = 示例欄 Set conn = New = Provider=。 amp。 _ Data Source= amp。 amp。 \ amp。 WN If = adStateOpen Then MsgBox 首先在“ amp。 TableName amp。 ”中增加一列“文本類型”的“ amp。 ColumnName amp。 ” sSql = Alter Table amp。 TableName amp。 Add Column amp。 ColumnName amp。 Char(50) sSql MsgBox 成功在“ amp。 TableName amp。 ”中增加一列“文本類型”的“ amp。 ColumnName amp。 _ ” amp。 vbCrLf amp。 您可以打開數據庫示例文件查看一下效果 amp。 vbCrLf amp。 _ 查看完畢后關閉數據庫并按確認繼續(xù)程序！ MsgBox 接著把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 _ ”更改為日期類型！ sSql = Alter Table amp。 TableName amp。 Alter Column amp。 ColumnName amp。 Date sSql MsgBox 成功把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 _ 13［SQL語句教程］ ”更改為日期類型！ amp。 vbCrLf amp。 _ 您可以打開數據庫示例文件查看一下效果 amp。 vbCrLf amp。 _ 查看完畢后關閉數據庫并按確認繼續(xù)程序！ MsgBox 最后把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 ”刪除！ sSql = Alter Table amp。 TableName amp。 Drop Column amp。 ColumnName sSql MsgBox 成功把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 _ ”刪除！ amp。 vbCrLf amp。 _ 您可以打開數據庫示例文件查看一下效果 End If Set conn = Nothing End Sub同樣，我們也給出一段操作Excel的代碼，不同的是因為Excel本身沒有列的數據類型的限制，所以修改數據類型的代碼不能正確運行，因此就刪除，感興趣的朋友自己可以動手試下： Sub 修改進銷存表文件中明細表的結構() 39。******************************************* 39。作者：bengdeng 39。功能：在程序文件同一目錄下進銷存表文件中修改明細表的結構 39。注意：要在工具/引用中引用microsoft activex date objects 39。 ，可能會因為你安裝的office的版本不同而不同， 39。******************************************* Dim conn As Dim WN As String Dim TableName As String Dim ColumnName As String Dim sSql As String WN = TableName = 明細表 ColumnName = 示例欄 Set conn = New = Provider=。 amp。 _ Extended Properties=Excel 。 amp。 _ Data Source= amp。 amp。 \ amp。 WN If = adStateOpen Then MsgBox 首先在“ amp。 TableName amp。 ”中增加一列“文本類型”的“ amp。 ColumnName amp。 ” sSql = Alter Table amp。 TableName amp。 Add Column amp。 ColumnName amp。 Char(50) sSql MsgBox 成功在“ amp。 TableName amp。 ”中增加一列“文本類型”的“ amp。 ColumnName amp。 _ ” amp。 vbCrLf amp。 _ 您可以打開數據庫示例文件查看一下效果 amp。 vbCrLf amp。 _ 查看完畢后關閉數據庫并按確認繼續(xù)程序！ MsgBox 最后把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 ”刪除！ sSql = Alter Table amp。 TableName amp。 Drop Column amp。 ColumnName sSql MsgBox 成功把剛才“ amp。 TableName amp。 ”中增加的“ amp。 ColumnName amp。 _ ”刪除！ amp。 vbCrLf amp。 _ 您可以打開數據庫示例文件查看一下效果 End If Set conn = Nothing End Sub以之前的Drop Table一樣，SQL并不能刪除Excel中的數據，但程序確能正確運行！最后大家自己動一下復制上面的代碼，在VBA里操作一下，就能更好的理解了。14［SQL語句教程］ INSERT INTO 向數據庫中添加數據繼續(xù)我們的SQL之路，下面的好多語句應該都不能單獨說明，因為很多情況下都是組合在一起用的，不過為了一篇文章一個知識點，一個個的來了解，我們就從向數據庫添加數據的INSERT INTO開始。前面幾篇 SQL語言教程中介紹 SQL的文章后，我們已可以創(chuàng)建，修改與刪除一個數據庫，今天介紹的 INSERT INTO，我們就可以向上面創(chuàng)建的數據庫中添加數據。INSERT INTO添加數據基本有兩種方法：一種是一次性輸入一筆數據，另一種是一次性輸入多筆數據。因為后者還要用到SQL語句中最核心，最重要，最常用，也是最難全懂的Select語句，因此在這一篇文章中，我們先介紹第一種，語法如下： INSERT INTO 表格名 (列名1, 列名2, ...) VALUES (數值1, 數值2, ...) 上面的語法就是向表格名中指定的表格里添加一行新的數據，在列名1，列名2……中添加對應的值，需要說明的一點是，不一定表格中的每一個列名都指定值，如果沒有指定，該列的值就是設定數據庫時默認的值。如果列的數值沒有，而設定數據庫時該列設定的是必填字段，而程序會提示出錯。按照慣例，我們還是給出一段程序來讓我們更了解上面說的內容： Sub 向銷存表數據庫錄入數據() 39。******************************************* 39。作者：bengdeng 39。功能：在程序文件同一目錄下進銷存表數據庫中錄入數據 39。注意：要在工具/引用中引用microsoft activex date objects 39。 ，可能會因為你安裝的office的版本不同而不同， 39。******************************************* Dim conn As Dim WN As String Dim TableName As String Dim sSql As String WN = TableName = 明細表 Set conn = New = Provider=。 amp。 _ Data Source= amp。 amp。 \ amp。 WN If = adStateOpen Then sSql = INSERT INTO amp。 TableName amp