原创 使用用VB處理MYSQL數據庫中二進制數據問題
'XP Professional SP2 + VB6.0 + MYSQL5.0 + MySql ODBC 3.51 ' 使用ADO 將ACCESS數據庫中的表導入到MYSQL數據庫中 Dim AdoRst As Ne
2020-06-16 05:10:33
2
原创 文件對象FSO的引用（整理）
Dim Fo As Object Set Fo = CreateObject("Scripting.FileSystemObject") If Not fo.FolderExists("C:/Kt") Then
2020-06-16 05:10:32
原创 MsFlexGrid用法 (轉貼)
option explicitdim cn as new adodb.connectiondim rs as new adodb.recordsetd
2020-06-16 05:10:32
8
原创 SQL Server2000安裝問題
問題： XP Home(SP2) 安裝MSSQL2000發現以下問題 事件ID 19011 本地計算機可能沒有必要註冊信息或消息DLL文件從遠端計算機顯示消息…… SpnRegister Error 1355 微軟QA: http
2020-02-21 20:15:29
原创 實現任務欄上的氣球
Private Type NOTIFYICONDATA '這個類形是參考網上VC程序改寫的，VB提供的不是最新的 cbSize As Long hWnd As Long uId As Lo
2020-02-21 20:15:29
1
原创 MySQL備份
備份:CODE:mysqldump -u user_name -p database_name > path/filename.sql 恢復:CODE:mysql -u user_name -p database_name < path
2020-02-21 20:15:29
原创 用鼠標移動沒有標題的Form（整理）
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias
2020-02-21 20:15:29
原创 Word2007 SoftEdge和棱臺屬性
Word 2007開發人員參考提到： SoftEdgeFormat.Type 屬性返回或設置一個 MsoBevelType 常量， 該常量代表使用軟邊緣格式的圖像邊緣的棱臺類型。可讀寫。 經測試發現這是錯的，返回類型爲不是MsoBevel
2020-02-21 20:15:29
原创 關於API HOOK（OpenProcess)，根據網上文章改寫
以下是部分程序，在VC++6.0 Plat SDK 2003 SP1下編譯通過 #include <windows.h>#include "APIHook.h" extern CAPIHook g_OpenProcess; //
2020-02-21 20:15:29
原创 關於Agent 角色代理使用（整理）
'使用控件：Microsoft Agent Control 2.0Private Sub VbAcs_Click() '菜單 VbAcs單擊事件 Dim Genie As IagentCtlCh
2020-02-21 20:15:29
原创 客戶端訪問SQL Server 2000
當使用命名管道連接到NT或2000上運行的SQLSERVER時,用戶必須有連接到命名管道IPC//ComputerName/IPC$的權限. 如果用戶沒有連接權限,則不能使用命名管道連接到SQL Server實例,除非計算機上Guest
2020-02-21 20:15:28
原创 MAKEINTRESOURCE()
The MAKEINTRESOURCE macro converts an integer value to a resource type compatible with Win32 resource-management functi
2020-02-21 20:15:28
原创 c++構造與析構函數
#include "iostream.h"#include "string.h"class base{public: base( const char *p) { strcpy(t,p); cout<<p<<" base Con
2020-02-21 20:15:28
原创 從一個數據庫向另一個數據庫插入記錄
INSERT INTO T_Test1SELECT *FROM OPENDATASOURCE ('SQLOLEDB', 'Data Source=1
2020-02-21 20:15:28