原创 通過PC發送手機短信
手機短信發送² 中文轉換成Unicode碼函數 因爲手機短消息的發送是以PDU串的形式發送出去的，中文字符以Unicode碼來表示，所以在發送中文短消息之前必須首先將中文字符轉換爲Unicode碼，下面的函數將實現這個功能
2020-06-13 07:11:19
原创 人生應該有的34個習慣。
1、不說“不可能”三個字。2、凡事第一反應：找方法，而不是找藉口。3、遇到挫折對自己大聲說：太棒了！4、不說消極的話，不落入消極情緒，一旦出現立即下面
2020-06-13 07:11:19
原创 查找數據庫中指定字段按拼音首字母的記錄
查找數據庫中指定字段按拼音首字母的記錄用的： Function GetSQLString(ByVal Index)Dim Ascii(27)Dim Line,Row,Char,strTempDim i,jAscii(1) = "45217
2018-08-29 15:45:26
原创 用自定義函數實現中文字首字母的查詢
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_GetPy]') and xtype in (N'FN', N'IF', N'TF')) dr
2018-08-29 15:45:13
原创 SQL語句導入導出大全
SQL語句導入導出大全 /******* 導出到excel EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GN
2018-08-29 15:45:13
2
原创 VB中的ADO對象編程
那天聽到一位同學說他的女朋友是學新聞的可也學會了數據庫,可學計算機的自己卻還是不會,總覺得有點汗顏.在各網站的論壇上,也常看到網友對數據庫的一些操作很難把握.我想簡單的介紹一下VB中關於ADO對象的一些常識
2018-08-29 15:45:11
原创 SQL Server日期計算
通常，你需要獲得當前日期和計算一些其他的日期，例如，你的程序可能需要判斷一個月的第一天或者最後一天。你們大部分人大概都知道怎樣把日期進行分割（年、月、日等），然後僅僅用分割出來的年、月、日等放在幾個函數中計算出自己所需要的日期！在這篇文章
2018-08-29 15:45:10
3
原创 根據漢字取首字母
Public Function getpychar(ByVal str As String) As String tmp = 65536 + Asc(str) If (tmp >= 45217 And tmp <= 45252) Then
2018-08-29 15:45:10
1
原创 觀音度
【 某人在屋檐下躲雨，看見觀音正撐傘走過。這人說：“觀音菩薩，普度一下衆生吧，帶我一段如何？” 觀音說：“我在雨裏，你在檐下，而檐下無雨，你不需要我度。”這人立刻跳出檐下，站在雨中：“現在我
2018-08-29 15:45:10
原创 FSO對象模型在VB中的應用
從 Visual Basic 的第一版至今，VB中有關文件的處理都是通過使用 Open 、Write以及其它一些相關的語句和函數來實現的。隨着軟件技術的不斷髮展，加上面向對象編程概念的日臻成熟，這些文件操作
2018-08-29 15:45:10
4