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