今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3  as integer
gcstrT_1  = 1
gcstrT_3  = 3
 strWhere = strWhere &  "……"
 strWhere = strWhere &  "AND ((T_KB = " & gcstrT_1 &; ") "   '注意点 AND 后面需要一个括号 "(" 
 strWhere = strWhere &  "OR "
 strWhere = strWhere &  " (T_KB = " &  gcstrT_3 &  " "
 strWhere = strWhere &  " AND S_CD IS NOT NULL "
 strWhere = strWhere &  " AND Z_SU > 0 )) "        '注意点 AND 后面需要一个括号 ")" 
 AND 后面的条件是一个整体,所以加"()" ......

今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3  as integer
gcstrT_1  = 1
gcstrT_3  = 3
 strWhere = strWhere &  "……"
 strWhere = strWhere &  "AND ((T_KB = " & gcstrT_1 &; ") "   '注意点 AND 后面需要一个括号 "(" 
 strWhere = strWhere &  "OR "
 strWhere = strWhere &  " (T_KB = " &  gcstrT_3 &  " "
 strWhere = strWhere &  " AND S_CD IS NOT NULL "
 strWhere = strWhere &  " AND Z_SU > 0 )) "        '注意点 AND 后面需要一个括号 ")" 
 AND 后面的条件是一个整体,所以加"()" ......

Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long = 260
Private Const MAX_CACHE_ENTRY_INFO_SIZE As Long = 4096
Private Const LMEM_FIXED As Long = &H0
Private Const LMEM_ZEROINIT As Long = &H40
Private Const LPTR As Long = (LMEM_FIXED Or LMEM_ZEROINIT)
Private Const NORMAL_CACHE_ENTRY As Long = &H1
Private Const EDITED_CACHE_ENTRY As Long = &H8
Private Const TRACK_OFFLINE_CACHE_ENTRY As Long = &H10
Private Const TRACK_ONLINE_CACHE_ENTRY As Long = &H20
Private Const STICKY_CACHE_ENTRY As Long = &H40
Private Const SPARSE_CACHE_ENTRY As Long = &H10000
Private Const COOKIE_CACHE_ENTRY As Long = &H100000
Private Const URLHISTORY_CACHE_ENTRY As Long = &H200000
Private Const URLCACHE_FIND_DEFAUL ......

LOF函数：LOF（文件号）--返回文件号所代表文件的长度，长度以字节为单位。
LOC函数：LOC（文件号）--返回文件号所代表文件的读写位置，LOC函数的返回值为long数据类型。对于随机文件，返回的为上一次对文件进行读出或写入的记录号；对于二进制文件，返回的为上一次读出或写入的字节位置；对于顺序文件，返回的是文件的当前字节位置除以128的值，对于顺序文件通常不使用LOC函数。
EOF函数：EOF（文件号）--该函数测试当前读写位置即文件指针是否位于文件号所代表文件的末尾。是文件末尾返回true，否则返回false
filelen函数：filelen（文件名）--函数返回指定文件的文件长度，以字节为单位，返回值为long数据类型。
freefile函数：freefile[（范围）]--使用freefile函数可获得尚未被占用的文件号中的头一个。
seek函数：seek（文件号）--返回文件号所指定文件的当前读写位置，返回值为long数据类型。
Curdir函数：curdir[（驱动器号）]--返回一个字符串，该字符串表示指定驱动器的当前路径。
shell函数：shell（）--该函数的功能是执行字符串类型参数pathname指定的可执行文件。
dir函数：dir[]--返回一个表示文件名、目录名或文件夹名称的字符串。
......

Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不
使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。
    其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow和FindWindowEx来获得
它们的句柄，然后再调用其它相应的API函数来控制它们。而放置桌面图标的窗口是一个ListView对象，利用SendMessage函数
向该窗口发送相应的消息，就可以对图标进行修改了。下面是具体的程序实现。
    首先在VB中建立一个新的工程，在Form1中加入三个CommandButton控件，然后在Form1的代码窗口中加入以下代码：
Option Explicit
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindW ......

VB无所不能之五：建立“标准”DLL动态链接库文件（2）
 
——作者：钟声
博客地址：http://blog.csdn.net/useway
        昨天我们讲到，如何通过特殊方法获取OBJ文件，那么今天我们继续讲如何进行编译连接。
        昨天的上一篇：http://blog.csdn.net/useway/archive/2010/04/14/5487046.aspx
 
       一、首先我们看看这种特殊方法的操作准备步骤：
 
       步骤一：建立一个假的“Link.exe”;
       建立一个新的项目，在那个项目中建立一个“Form”，然后，在“Form”中加入如下代码：
 
Sub Form_Load() 
        MsgBox "现在可以拷贝OBJ文件了！！"
        End
End Sub
 
       编译为：Link.exe
 
       步骤二：将“ ......

RGB函数：RGB是通过指定红绿蓝不同的分量值得到不同的颜色。
·格式：RGB（红色值，绿色值，蓝色值）
·取值范围为0--255，分别代表所要颜色中的红、绿、蓝分量的大小。
QBColor函数：用一个整数值对应RGB的常用颜色值
·格式QBColor（颜色值）
·颜色值是一个整数，取值范围0--15代表16种基本颜色。
......