旺财

转载 注册OLEDB

regsvr32 msjetoledb40.dll

转载 （转）二进制与八卦

转载 【转载】C# 字符转换

字符转ASCII码：public static int Asc(string character)  {   if (character.Length == 1)   {    System.Text.ASCIIEncoding asciiEncoding = new Syste

原创 MSDEV.EXE 版本

MSDEV.EXE  6.0.8168.2 编译时没有反应MSDEV.EXE  6.0.9782.2 编译没有问题 

转载 Update

Update   Tbl1SET  Fld1=X.Fld1From Tbl2 W, Tbl2 XWHERE  W.id=X.id

转载 获取Access数据表的方法

获取数据表的方法： 方法一：直接用ado的OpenSchema()方法打开adSchemaTables，建立一个schema记录集 Const adSchemaTables = 20 adSchemaColumns = 4 dim Conn,db dim ConnStr db="temp.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPat

转载 （转）SQL查询慢的48个原因分析

转自：http://topic.csdn.net/u/20100109/09/70f82fb7-eabc-4140-9573-5f8395e0f62e.html查询速度慢的原因很多，常见如下几种： 　　1、没有索引或者没有用到索引(这是查询慢最常见的问题，是程序设计的缺陷) 　　2、I/O吞吐量小，形成了瓶颈效应。 　　3、没有创建计算列导致查询不优化。 　　4、内存不足 　　5、网络速度慢

转载 （转）sql语句递归查询和删除问题

SQL code if object_id(tb) is not null drop table tb gocreate table tb(id int,name varchar(50),parentId int)goinsert into tb select 1 , 工具, 0 union alls

转载 （转）模拟QQ截屏

QQ确实太占资源了， 物理内存和虚拟内存加起来大概有40多M，不过他提供的屏幕截图功能却是不错，能方便的选取能所感兴趣的区域图片，本文试图用VB模拟这一功能，当然功能还是要比QQ截屏少一点，但基本的功能以完备。       截屏原理：QQ截屏应该时先把当前屏幕的内容拷贝到一个窗体，并且这个窗体和屏幕一样大，然后再对这个窗体上的图片进行处理，因此在使用QQ截屏的时候你会发现托盘区那个网络链接的图

转载 （转）如何使用ADOX/DAO刷新/更新/删除并重定义链接表

方法一： 如何使用ADOX刷新链接表  Public Sub NewLinkedExternalTableMdb() 　　 　　 strTargetDB: 被链接的数据库路径名 　　 strProviderString: 连接字符串 　　 strSourceTbl: 被链接的源表名称 　　 strLinkTblName: 要重设链接的链接表的名称 　

转载 MSDN：OpenSchema 方法 (ADO)

从提供者获取数据库纲要信息。语法Set recordset = connection.OpenSchema (QueryType, Criteria, SchemaID)返回值返回包含纲要信息的 Recordset 对象。Recordset 将以只读、静态游标打开。参数QueryType   所要运行的纲要查询类型，可以为下列任意常量。Criteria   可选。每个

原创 VfpOledb 打开视图

    Cn.ConnectionString = "Provider=VFPOLEDB.1;Data Source=c:/学生管理.dbc;"    Cn.Open    Cn.Execute "SET ENGINEBEHAVIOR 70"   SQL Group by 在8.0中为向标准SQL     Rs.Open "Select * from sview", Cn, adOpenFo

转载 (转) 导入/导出 Excel 的基本方法

/*=================== 导入/导出 Excel 的基本方法 ===================*/ 从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句: /*===================================================================*/ --如果接受数据导入的表已经存在 insert into

转载 转贴 'MSVBVM60.DLL

MSVBVM60.DLL Declare Sub rtcBeep Lib "msvbvm60.dll" () Declare Sub rtcDoEvents Lib "msvbvm60.dll" () Declare Function rtcTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Functio

转载 (转)解密存储过程

CREATE  PROCEDURE sp_decrypt(@objectName varchar(50))ASbeginset nocount onbegin trandeclare @objectname1 varchar(100),@orgvarbin varbinary(8000)declare @sql1 nvarchar(4000),@sql2 varchar(8000),@sql3 n

原创 （转）SHELL SORT

        SHELL SORT    Written by Sanchit Karve AKA born2c0de    born2c0de AT hotmail DOT com    Translated to .net by Margus Martsepp AKA m2s87    Sub shellsort(ByRef A() As Integer, ByVal max A

转载 （转）排序算法

Private Sub BubbleSortNumbers(varray As Variant)      Dim cnt1 As Long   Dim cnt2 As Long   Dim tmp As Long   Dim counter As Long      Label12.Caption = "Working..."      For cnt1 = UBound(varray) To

转载 (转贴) B树

B 树、 B- 树、 B+ 树、 B* 树都是什么 B树       即二叉搜索树：       1.所有非叶子结点至多拥有两个儿子（Left和Right）；       2.所有结点存储一个关键字；       3.非叶子结点的左指针指向小于其关键字的子树，右指针指向大于其关键字的子树；       如：B树的搜索，从根结点开始，如果查询的关键字与结点的关键字相等，那

转载 （转）VFP文件结构－微软MSDN

备注文件的结构（.FPT）请参阅备注文件包含一个头记录以及任意数目的块结构。头记录中包含指向下一个自由块的指针以及以字节为单位表示的块大小。块的大小是在创建文件时由 SET BLOCKSIZE 命令确定的。头记录从文件位置 0 开始并占用 512 个字节。命令 SET BLOCKSJZE TO 0 设置块大小为 1。头记录之后是包含块标头与备注文本的各个块。表文件包含有用于引用备

原创 VB ActiveDll 后期绑定

CreateObject(工程名.类别) 

原创 从一个数据库向另一个数据库插入记录

INSERT INTO T_Test1SELECT *FROM OPENDATASOURCE (SQLOLEDB,  Data Source=192.168.1.2;User ID=sa;Password= ).TA.dbo.Test2

原创 Word2007 SoftEdge和棱台属性

Word 2007开发人员参考提到： SoftEdgeFormat.Type 属性返回或设置一个 MsoBevelType 常量，该常量代表使用软边缘格式的图像边缘的棱台类型。可读写。经测试发现这是错的，返回类型为不是MsoBevelType 。正确描述应该是“返回指定形状范围的柔化边缘格式。msoSoftEdgeType 类型” 再有就是棱台效果，无论怎么设置， VBA跟踪出

转载 Dtpiker控件

DTPicker (日历控件)是微软的公共控件中用于显示日期和/或时间信息的控件，包含在COMCT232.ocx 文件中。您可以在 VB6.0 的 MSDN 中找到有关该控件的帮助，您也可以在 SUPPORT.MICROSOFT.COM 上查找到相关的资料  http://access911.net/appraise.asp?mode=list&recordid=72FAB71E11DCE

原创 c++构造与析构函数

#include "iostream.h"#include "string.h"class base{public:  base( const char *p) {   strcpy(t,p);  cout } ~base() {  cout } void get() {   cout  cout } private : static int w; char t[20]; };int base::

转载 客户端访问SQL Server 2000

当使用命名管道连接到NT或2000上运行的SQLSERVER时,用户必须有连接到命名管道IPC//ComputerName/IPC$的权限. 如果用户没有连接权限,则不能使用命名管道连接到SQL Server实例,除非计算机上Guest账户已启用,或者给用户账户授予"从网络访问该计算机"的权限.

原创 平台（PSDK）

英文：http://www.microsoft.com/downloads/details.aspx?FamilyId=A55B6B43-E24F-4EA3-A93E-40C0EC4F68E5&displaylang=en 中文下载中心：http://www.microsoft.com/downloads/search.aspx?displaylang=zh-cn

转载 MAKEINTRESOURCE()

The MAKEINTRESOURCE macro converts an integer value to a resource type compatible with Win32 resource-management functions. This macro is used in place of a string containing the name of the resource.

转载 关于VB生成标准DLL文件

工程NewLinker.vbp模块文件NewLinker.basOption ExplicitPublic Sub Main()   Dim SpecialLink As Boolean, fCPL As Boolean, fResource As Boolean   Dim intPos As Integer   Dim strCmd As String   Dim strPath

原创 更改场景字体

Private Type LOGFONT        lfHeight As Long        lfWidth As Long        lfEscapement As Long        lfOrientation As Long        lfWeight As Long        lfItalic As Byte        lfUnderline As Byte 

转载 MySQL备份

 备份:CODE:mysqldump -u user_name -p database_name > path/filename.sql恢复:CODE:mysql -u user_name -p database_name

转载 MSDN的文档 Open 方法 (ADO Recordset)

Open 方法 (ADO Recordset)打开游标。语法recordset.Open Source, ActiveConnection, CursorType, LockType, Options参数Source   可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。ActiveConnection  

原创 使用用VB处理MYSQL数据库中二进制数据问题

XP Professional  SP2  +    VB6.0 + MYSQL5.0  +    MySql ODBC 3.51 使用ADO 将ACCESS数据库中的表导入到MYSQL数据库中  Dim AdoRst As New ADODB.Recordset     MySql 数据库的ST表  Dim Adoact As New ADODB.Recordset      A

原创 SQL Server2000安装问题

问题：XP Home(SP2)安装MSSQL2000发现以下问题事件ID 19011本地计算机可能没有必要注册信息或消息DLL文件从远端计算机显示消息……SpnRegister  Error  1355微软QA:   http://support.microsoft.com/kb/303411/

原创 用鼠标移动没有标题的Form（整理）

Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lPa

原创 关于Agent 角色代理使用（整理）

使用控件：Microsoft Agent Control 2.0Private Sub VbAcs_Click()                    菜单 VbAcs单击事件    Dim Genie As IagentCtlCharacter               定义角色变量    Dim DataPath As String                        定

原创 文件对象FSO的引用（整理）

    Dim Fo As Object    Set Fo = CreateObject("Scripting.FileSystemObject")If Not fo.FolderExists("C:/Kt") Then       fo.CreateFolder "C:/Kt"    End If    fo.CopyFile "kk.exe", "c:/kt/kk.exe

转载 MsFlexGrid用法 (转贴)

option explicitdim cn as new adodb.connectiondim rs as new adodb.recordsetdim str as stringdim strSQL as string  str="provider=SQLSERVER.1;SERVER=LOCAL;UID=SA;PWD="";DATABASE=PUBS"if cn.state=adstateo

原创 关于API HOOK（OpenProcess)，根据网上文章改写

 以下是部分程序，在VC++6.0   Plat  SDK 2003 SP1下编译通过#include #include "APIHook.h"extern CAPIHook g_OpenProcess;// 自定义OpenProcess函数#pragma data_seg("YCIShared")HHOOK g_hHook = NULL;DWORD  dwCurrentProcess

原创 实现任务栏上的气球

Private Type NOTIFYICONDATA  这个类形是参考网上VC程序改写的，VB提供的不是最新的         cbSize As Long         hWnd As Long         uId As Long         uFlags As Long         uCallBackMessage As Long         hIcon As Long