其他

光陰荏苒，  似水如梭，轉眼已過一年，  當年的稚嫩青年，  積累了不少涉世的寶貴經驗；  當年畢業時不諳世事的青年，  已經懂得了怎麼處事靈活機變；  當年安份非常，循規蹈矩的青年，  已經不甘碌碌無為和現實的平淡；  當年穩中求進，不願涉險的青年，  頻頻向生活發出挑戰。  離職，只是不想讓寶貴的青春黴爛離職，我心裡沒有任何波瀾和遺憾；  離職，我心裡有對小妹們深深的眷戀；  離職，只是想實現自己心中的憧憬無限；  離職，只是不想辜負親友們的殷殷期盼；  離職，只是想換個環境以求鳳凰涅磐。

菜單 [工程]-[引用] Microsoft ActiveX Data Objects 2.x (找一個高版本的) Private Sub Command2_Click()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;

以前都是用chr(34)來代替雙引號的，今天在網上發現了一個新的方法，如下：Private Sub Form_Load()MsgBox "難道這就是傳說中的" & Chr(34) & "小強" & Chr(34) & "。"MsgBox "難道這就是傳說中的""小強""。"End Sub很明顯第二種比第一種方法簡單多了。唉~，怎麼以前沒發現呢。

Str(x) '將數值資料x轉換成字串Val(x) '將字串x中的數字轉換成數值Chr(x) '返回以x為ASCII碼的字元Asc(x) '給出字元x的ASCII碼值，十進位數Cint(x) '將數值型資料x的小數部分四捨五入取整Int(x) '取小於等於x的最大整數Fix(x) '將數值型資料x的小數部分捨去CBool(x) '將任何有效數字字串或數值轉換成邏輯型CByte(x) '將0-255之間的數值轉換成位元組型CDate(x) '將有效日期文字轉換成日期CCur(x) '將數值資料x轉

Form中的代碼Private Sub Command1_Click()    App.TaskVisible = False '工作列隱藏    Call HideCurrentProcess '進程隱藏End Sub 建立一個模組，代碼如下：'-------------------------------------------------------------------------------------'模組名稱：modHideProcess.bas''模組功能：在 XP/2K

Private Sub Command1_Click() '讀檔案Open "d:a.txt" For Input As #1 Dim Lines As StringDim NextLine As StringDim i As IntegerDo While Not EOF(1)    On Error Resume Next    Line Input #1, NextLine    Lines = Lines & NextLine & Chr(13) & Chr(10

ODBC 標準安全性原則  Driver={Microsoft Access Driver (*.mdb)};Dbq=C:/mydatabase.mdb;Uid=Admin;Pwd=;工作群組  Driver={Microsoft Access Driver (*.mdb)};Dbq=C:/mydatabase.mdb;SystemDB=C:/mydatabase.mdw;獨佔模式  Driver={Microsoft Access Driver

Private Sub Form_Load()If App.PrevInstance Then    MsgBox "程式已在運行。", vbInformation, "系統"    EndEnd IfEnd Sub以上這種方法，是只針對於同目錄同名的程式，下面還有一種方法是通過API函數實現的，不論程式怎麼改名都不可以多開的。 Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAtt

ODBC 標準Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:/MyExcel.xls;DefaultDir=c:/mypath;SQL運算式"SELECT * FROM [sheet1$]"。例如：在excel工作表名稱後面跟"$"字元並且使用"[" "]"將其括起來。  OLE DB 標準Provider=Microsoft.Jet.OLEDB.4.0;Data

首先引用<script language="JavaScript" src="../js/jQuery.js" type="text/javascript"></script><script>  $(function(){      $("#<%=txtentName.ClientID %>").bind("change",function()    { CheckName(); });    $("#<%=txtentTypeID.Clie

Sub XXX() Application.DisplayAlerts = False '程式碼片段 Application.DisplayAlerts = TrueEnd Sub以下是MICROSOFT  給出的說明原文文法 運算式 .DisplayAlerts運算式 一個表示應用程式對象的變數。註解 預設值為 True。將此屬性設定為 False 可在宏運行時禁止顯示提示和警告訊息；當出現需要使用者應答的訊息時，Microsoft Excel

PS：對於pan05、black205兩位提出的部份中文還是計算為1位的問題，已修改，感謝兩位。通常VB中的len("中文")，返回的是2，因為vb計算的是Unicode的字元個數，所以每個漢字（日文、韓文）算作一個字元，但是如果我們不想計算Unicode的個數，而是要將漢字當作2位時，怎麼辦？可以用如下的函數實現： Private Function LenC(s As String) As IntegerDim n As IntegerLenC = 0For n = 1 To Len(s)  

Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付檔案 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 檔案 (*.xls),*.xls,Excel2007 檔案 (*.xlsx),*.xlsx,CSV 檔案 (*.csv),*.csv", , "選擇檔案", , True) For i = LBound(arr) To UBound(arr)

 OLE DB, OleDbConnection (.NET) 微軟公司提供的驅動 TCP/IPProvider=DB2OLEDB;Network Transport Library=TCPIP;Network Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;User

兩個日期之間的天數 123456AB日期 2007-6-8 2007-6-20 公式說明（結果）=A3-A2兩個日期之間的天數 (12)=NETWORKDAYS(A2,A3)兩個日期之間的工作日 (9) 兩個日期之間的月份數 1234567AB日期 2007-6-9 2007-9-2 2008-12-10 公式說明（結果）=MONTH(A3)-MONTH(A2)在同一年中兩個日期之間經曆的月份

日語IME一.Microsoft Global Ime 5.0 for JapaneseIME　剛開始學日語的人往往為日語IME而著急。滿世界尋找日語IME。日語的IME有：Jwin95/98,還有Global ime5.0。微軟拼音中的軟鍵盤IME中,可選日文平假名和片假名,但不能輸入日文漢字,對於學日語的人來說這當然是不夠的。Jwin95/98輸入日語倒是很方便,可是中文又不能輸入了。對於那些又寫日語又寫中文的人來講，怎麼辦呢? ？　對！使用Global

@echo offset today=%date:~0,4%%date:~5,2%%date:~8,2%xcopy  /E /I E:\aaa e:\test\%today%for /f "skip=2" %%i in ('dir /B /O-N E:\test') do rd E:\test\dest\%%i /S /Q--------------------------代碼在上，說明在下--------------------------------說明：@echo

ODBC DSNDSN=myDsn;Uid=myUsername;Pwd=;  檔案DSNFILEDSN=c:/myData.dsn;Uid=myUsername;Pwd=;  

 詳細代碼如下：       private void initTree()        {         ///初始化可選擇的人員            this.treeView1.Nodes.Clear();         TreeNode  RootNode=null,ZMCNode=null,RYNode=null;         RootNode = new TreeNode();         RootNode.Tag = "-1";        

ODBC, Easysoft 本機電腦Driver={Easysoft IB6 ODBC};Server=localhost;Database=localhost:C:/mydatabase.gdb;Uid=myUsername;Pwd=myPassword;  遠端電腦Driver={Easysoft IB6