VB编俱乐部
#1 问题1：（难度系数：初级）
我用ADO访问ACCESS数据库时用AddNew方法往里添加一条纪录，但当输入不符要求的数据时，ado会引发一个异常，这时我应该在异常处理中废弃当前纪录，重新加入新的记录；可实际上，我发现什么也做不了了，任何操作（如cancleUpdate，update，move，AddNew）都返回错误或引发异常，我可以确定权限和共享都正确，怀疑是ado的缓冲机制有bug，请哪位高手指点。
答：在操纵记录时应对各种可能出现的错误做相应的陷阱处理。根据错误号代表的含义来改正错误，如：
on error goto ErrorCode
rst001.AddNew 或 rst001.Update ....
…
exit Sub
ErrorCode:
Select case Err.Number
Case 94
Msgbox ″Null无效错误″
Case 461
MsgBox ″指定的格式与数据格式不匹配″
Case ErrNumber
…
End Select
#1 问题2（难度系数：初级）
如何打开加密的数据库（access）?
答：打开加密的ACCESS采用如下命令：
Set Db = WS.OpenDatabases （″MyDBFile.mdb″，False，False，″；PWD=密码″）
（记住前面有个分号。）
#1 问题3（难度系数：中级）
如何使用MSCOMM32.OCX发送大于80H的字符，可否给个示例程序?
答：该接发方式为
MSComm1.InputMode=comInputModeBinary
如发一个A0H
Dim TxData（0） As Byte
TxData（0）=＆HA0
MSComm1.Output=TxData
这是接收方寄存器为8位的情况，如为16位，则：
Dim TxData（1） As Byte
TxData（0）=＆HA0
TxData（1）=＆H0
MSComm1.Output=TxData
#1 问题4（难度系数：中级）
我有一程序，将生成一个数据文件，生成之后要将该文件以附件的方式发到指定的信箱。现在我要在程序上直接提供发送按钮，调用默认的邮件处理程序将附件发送，并附上主题和简单的内容。不知如何实现？
答：可使用MAPISESSION、MAPIMESSAGES控件实现调用默认的支持MAPI的电子邮件如OUTLOOK EXPRESS、EXCHANGE。其中MAPISESSION实现登录、MAPIMESSAGES实现信息操作。
MAPISession1.signon
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose ′创建一封新的消息
MAPIMessages1.RecipAddress = ″xxx@aaa.com″
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Trim（txtSubject）
MAPIMessages1.MsgNoteText = Trim（txtText）
MAPIMessages1.AttachmentPathName = ″c:\Detlog.txt″ ′attach file location
MAPIMessages1.Send′发送
MAPISession1.SignOff
详见vb5.0 onlinebook。（由lsh提供答案）
#1 问题5（难度系数：中级）
用VB生成EXE文件后，如何在后面加上参数？这个参数怎样传给VB？（就像：notepad c:\vb.txt 一样）
答：对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，VB提供了一个Command
对象，该对象返回出现在命令行中应用程序名之后的任何参数。下面函数演示了如何获取参数的所有技术细节。
Function GetCommandLine（Optional MaxArgs）
′声明变量。
Dim C， CmdLine， CmdLnLen， InArg， I， NumArgs
′检查是否提供了 MaxArgs 参数。
If IsMissing（MaxArgs） Then MaxArgs = 10
′ 使数组的大小合适。
ReDim ArgArray（MaxArgs）
NumArgs = 0: InArg = False
′取得命令行参数。
CmdLine = Command（）
CmdLnLen = Len（CmdLine）
′以一次一个字符的方式取出命令行参数。
For I = 1 To CmdLnLen
C = Mid（CmdLine， I， 1） ′检测是否为 space 或 tab。
If （C <> ″ ″ And C <>vbTab） Then
′若既不是 space 键，也不是 tab 键，则检测是否为参数内含之字符。
If Not InArg Then
′新的参数。检测参数是否过多。
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs ＋ 1
InArg = True
End If
′将字符加到当前参数中。
ArgArray（NumArgs） = ArgArray（NumArgs） ＋ C
Else
′找到 space 或 tab。将 InArg 标志设置成 False。
InArg = False
End If
Next I
ReDim Preserve ArgArray（NumArgs） ′调整数组大小使其刚好符合参数个数。
GetCommandLine = ArgArray（） ′将数组返回。
End Function
#1 问题6：（难度系数：高级）
我现在编了一个屏幕保护程序，但不能拦截″ctrl＋alt＋del″的操作，不知如何处理?
答：需要调用API函数″SystemParametersInfo″拦截″ctrl＋alt＋del″，″ctrl＋esc″，″alt＋tab″三组热键。将以下代码加入你的一般模块：
Option Explicit
Public Declare Function SystemParametersInfo Lib ″user32″ Alias
″SystemParametersInfoA″ _
（ByVal uAction As Long， ByVal uParam As Long， ByRef lpvParam As
Any， ByValfuWinIni As Long） As Long
Public Const SPL_SCREENSAVERRUNNING = 97
以下加入你的窗体
Option Explicit
′读取窗体时使热键失效
Private Sub Form_Load（）
SystemParametersInfo SPL_SCREENSAVERRUNNING， True， ByVal 1＆， 0
End Sub
′程序退出时使热键有效
Private Sub Form_QueryUnload（Cancel As Integer， UnloadMode As
Integer）
SystemParametersInfo SPL_SCREENSAVERRUNNING， False， ByVal 1＆， 0
End Sub
切记：一定要一起使用，否则使热键失效后，只有重新启动Windows热键才会恢复。（由HBG提供解答）