kevinzhaoyp

下面这个例子找出程序是否在运行,你可作一个处理,如果在运行就退出.         Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Lo

  Dim con As ADODB.Connection  Dim Rs As ADODB.Recordset  Dim sqlstr As String    sqlstr = "SELECT SUM(CJ004) AS zf,xs001, xs002, xs003, xs004, xs005,  " & _      "SUM(CASE cj003 WHEN 数学 THEN cj004

在连接DB的时候用到，就该知道代表什么意思了RS.OPEN SQL,CONN,A,BA: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动ADOPENKEYSET(=1) 只读,当前数据记录可自由移动ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动ADOPENSTATIC(=3) 可读写,当前数据记录可自由移动,可看到新增记录B:ADLOCKREADO

http://www.feiesoft.com/vba/