【正文】 但無論如何，這種操作只能在從原表的基礎(chǔ)上產(chǎn)生一個新表，不能產(chǎn)生一個數(shù)據(jù)庫文件，并且新表和原表放在同一個數(shù)據(jù)庫中。 str amp。 pstr = pstr amp。 pstr = pstr amp?，F(xiàn)在我們把其中的實發(fā)工資大于 2022的記錄篩選出來組成一個新表，新表的名稱由用戶從文本框中輸入，新表中我們只要三個字段，它們是：編號、姓名、實發(fā)工資。 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： 3: 在原有數(shù)據(jù)表的基礎(chǔ)上產(chǎn)生新的數(shù)據(jù)表 如果僅僅是在已有的數(shù)據(jù)表的基礎(chǔ)上產(chǎn)生新的數(shù)據(jù)表，我們只要引用對象庫 Microsoft ActiveX Data Objects Library再利用 Select? Into語句就可以了。 ADOX常用方法有： Append（包括 Columns、 Groups、 Indexes、 Keys、 Procedures、 Tables、Users、 Views）、 Create(創(chuàng)建新的目錄 )、 Delete(刪除集合中的對象 )、 Refresh(更新集合中的對象 )等等。 User 表示在安全數(shù)據(jù)庫內(nèi)具有訪問權(quán)限的用戶帳號。 Procedure 表示存儲的過程。 Index 表示數(shù)據(jù)庫表中的索引。 Column 表示表 、索引或關(guān)鍵字的列。它還包括安全對象，用于維護(hù)用戶和組，以及授予和撤消對象的權(quán)限。如果要在程序運(yùn)行過程中創(chuàng)建數(shù)據(jù)庫和表，我們還要引用對象庫Microsoft ADO Ext . For DDL Security，簡稱為 ADOX，其庫文件名為是： 。 2: ADO 與 ADOX 我們先來對 ADO 和 ADOX進(jìn)行簡單的認(rèn)識。眾所周知，在 Foxpro或 ASP編程中，這是很容易的一件事件。在開發(fā)過程中，我們通常的使用的方法是：先使用數(shù)據(jù)庫管理系統(tǒng) (例如： Microsoft Access)或 VB中的可視化數(shù)據(jù)管理器建立好數(shù)據(jù)庫和數(shù)據(jù)表結(jié)構(gòu)，然后在程序中通過使用ADODC數(shù)據(jù)庫控件或引用 ADO對象與數(shù)據(jù)庫中的表建立連接，再通過數(shù)據(jù)庫感知控件 (例如：文本框、 DataGrid等 )來進(jìn)行數(shù)據(jù)庫的各種操作。最新的是 ADO，它是比 RDO和 DAO更加簡單，然而更加靈活的對象模型。 中對 ADO 對象的一些常見操作與應(yīng)用 1: 問題的提出 在 Visual Basic 中，常用的數(shù)據(jù)訪問接口有下列三種：數(shù)據(jù)庫訪問對象 (DAO， Data Access Object)、遠(yuǎn)程數(shù)據(jù)庫對象 (RDO， Remote Data Object)和 ActiveX數(shù)據(jù)對象 (ADO， 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： ActiveX Data Object )。在描述的最后，我包括了一些怎樣運(yùn)行 DirCopy的示例。 我想讓幫助文本顯眼一點(diǎn)，為此，我把 ForegroundColor屬性設(shè)置為綠色。 DisplayUsage做的下一件事情是，使用 方法清除控制臺屏幕。當(dāng)你分析這部分代碼時，你會注意到，在每個修改前景或背景顏色的子程序中都是這樣 操作的。 下列是 DisplayUsage子 程序的代碼： Private Sub DisplayUsage() Dim originalForegroundColor As ConsoleColor = () = (DirCopy ) (Written by Josh Fitzgerald) (New String(, )) (DirCopy will copy all of the files from the source folder to the) (destination folder. While the files are copying, a progress bar) (will display the percent plete.) () (If a directory name contains spaces, enclose it in double quotes.) () (Example : ) = (DirCopy C:\MyFolder C:\MyNewFolder) = () (Example : ) = (DirCopy C:\My Folder C:\My New Folder) = originalForegroundColor End Sub 該子程序做的第一事情是創(chuàng)建一個變量 originalForegroundColor，然后它存儲 的值。 首先，我編寫一個 DisplayUsage 子程序。然后，它把所有文件從源目錄復(fù)制到目的目錄。當(dāng)我復(fù)制一個含有大量文件的目錄時，我經(jīng)常希望得 到一些提示 — 復(fù)制進(jìn)程完成的怎么樣了？復(fù)制快結(jié)束了還是再等待一會？為了實現(xiàn)這一問題，我構(gòu)建了一個控制臺應(yīng)用程序，它能夠在控制臺窗口內(nèi)顯示一個進(jìn)度條來以圖形化顯示復(fù)制進(jìn)度。下面列出的僅是 VB 2022中更為激動人心的功能中的一部分： ◆清除控制臺窗口 ◆得到并設(shè)定光標(biāo)位置和大小 ◆得到并設(shè)定窗口高度和寬度 ◆得到并設(shè)定前景和背景顏色 ◆選擇并在控制臺窗口內(nèi)移動部分文本 本文中的其它部分將詳細(xì)地分析一個控制臺應(yīng)用程序的創(chuàng)建過程，以便展示上面這些特征的使用。但是， 仍然缺乏用于改變光標(biāo)或文本的位置或顏色的方法或?qū)傩?，還有其它許多更高級的特征。因此，你不必再“困擾”于 Win32 API 了。 如今， 引入了新的控制臺應(yīng)用程序特征。而且，盡管 VB 6及其早期版本能夠創(chuàng)建控制臺應(yīng)用程序；但是，這不是一種簡單的或直接的過程。另外，當(dāng)你需要大量重復(fù)的腳本操作，當(dāng)然還有可能的更復(fù)雜的操作時，都會用到這種控制臺應(yīng)用程序。當(dāng)光標(biāo)移出 TextBox時文字設(shè)置為黑色 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： Private Sub Text1_LostFocus() = vbBlack End Sub 以上代碼只要將 改為 TextBox 的背景色。 39。 Private Sub Text1_GotFocus() = 0 = Len(Text1) End Sub 當(dāng)光標(biāo)移到 TextBox 時改變其文字顏色。 Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “ {tab}” KeyAscii = 0 End If End Sub 當(dāng)光標(biāo)移到 TextBox 時自動選定其中的整串文字。 Private Sub Text1_KeyPress(KeyAscii As Integer) Text2=Text1 End Sub 按下 Enter 鍵之后，光標(biāo)自動移到下一個控件。小寫轉(zhuǎn)大寫 Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 97 And KeyAscii = 122 Then KeyAscii = KeyAscii 32 End If End Sub 使兩個 TextBox 同步的方法。 39。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 8 And KeyAscii 48 Or KeyAscii 57 Then Beep KeyAscii = 0 End If End Sub 自動將輸入的英文轉(zhuǎn)為小寫 /大寫。 限制 TextBox 只能輸入數(shù)字。獲取 DeviceID 39。==================================================== Public Function GetWindowHandle() As Long Dim RefStr As String * 160 mciSendString status NOWMUSIC window handle, RefStr, 80, 0 GetWindowHandle = Val(RefStr) End Function 39。==================================================== 39。獲得當(dāng)前媒體的狀態(tài)是不是在播放 39。 OnOff, vbNull, 0, 0) If RefInt = 0 Then SetWindowShow = True End Function 39。是否有畫面 True 為有， FALSE為取消 39。 OnOff, vbNull, 0, 0) If RefInt = 0 Then SetAudioOff = True End Function 39。靜音 True為靜音， FALSE為取消靜音 39。 Speed, vbNull, 0, 0) If RefInt = 0 Then SetSpeed = True End Function 39。設(shè)置播放速度 39。 Volume, vbNull, 0, 0) If RefInt = 0 Then SetVolume = True End Function 39。設(shè)置聲音大小 39。====================================================== Public Function PlayFullScreen() As Boolean Dim RefInt As Long PlayFullScreen = False RefInt = mciSendString(play NOWMUSIC fullscreen, vbNull, 0, 0) If RefInt = 0 Then PlayFullScreen = True End Function 39。====================================================== 39。====================================================== Public Function SetAudioSource(sAudioSource As AudioSource) As Boolean Dim RefInt As Long Dim strSource As String Select Case sAudioSource Case 1: strSource = left Case 2: strSource = right Case 0: strSource = stereo End Select SetAudioSource = False RefInt = mciSendString(setaudio NOWMUSIC source to amp。====================================================== 39。關(guān)閉媒體 39。====================================================== Public Function PauseMusic() As Boolean Dim RefInt As Long PauseMusic = False RefInt = mciSendString(pause NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then PauseMusic = True End Function 39。====================================================== 39。====================================================== Public Function SetMusicPos(Position As Long) As Boolean Dim RefInt As Long SetMusicPos = False RefInt = mciSendString(seek NOWMUSIC to amp。====================================================== 39。獲取當(dāng)前播放進(jìn)度 39。====================================================== Public Function GetMu