求助解释一下！谢谢各位大虾！！！

无名...

以下是一个lotus写入sql server2000的按钮的代码
求助的语句我都标的很明显，只是几句
Sub Click(Source As Button)
                Dim con As  New ODBCConnection   '定义 ODBC 连接对象
        Dim qry As  New ODBCQuery       '定义 ODBC 查询对象
        Dim result As  New ODBCResultSet  '定义 ODBC 结果集对象
        Dim ws As New notesuiworkspace     '定义 Lotus 当前打开的工作台对象
        Dim session As New notessession      '定义 Lotus 会话对象
        Dim db As notesdatabase             '定义 Lotus 数据库对象
        Dim uidoc As notesuidocument        '定义 Lotus 当前打开的文档对象
        Dim note As notesdocument          '定义 Lotus 当前的文档对象
        Dim n As Integer                  '定义记数器变量
        Dim xm As Integer
        Dim nnn As String
       
Dim hasno As Integer   ？？？？？？？？？？？？？？？？？？？？？？？？
       
Dim answer As Integer    ？？？？？？？？？？？？？？？？？？？？？？？？
       
                On Error Goto errorHandler       
        Set uidoc = ws.currentdocument        '取得当前文档
        Set note = uidoc.document
        Set db=session.currentdatabase        '取得当前数据库
        Call note.replaceitemvalue("form","表单名")  '使新文档“form”条目值为“表单名”(使文档对应于表单名表单)
        nnn=uidoc.fieldgettext("表单号")
        If Not con.ConnectTo("数据源名") Then
                Messagebox"could not connect to jack ",,"error connecting"
                Exit Sub
        End If
        '如果连接 ODBC 数据源“数据源名”成功则继续，否则退出
        If uidoc.fieldgettext("表单号")="" Then
                Messagebox"表单号必须输入 ",,"输入性错误"
                Exit Sub
        End If
        Set qry.connection=con               '应用 ODBC 连接、查询、结果集对象
        Set result.query=qry       
        qry.sql="select no from SQL中表名  order by no "
        qw=qry.sql
        result.execute                      ’获得表“SQL中表名”中的所有记录
        columns=result.Columns
        n=0
       
hasno=0   ？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

        xm=1                           ’输入的表单号是否存在于数据库中的标志，先假设不存在
        If result.isresultsetavailable Then
                Do
                        result.Nextrow       
                        If result.getvalue("表单号")=uidoc.fieldgettext("表单号对应的域名") Then
'若表单号已存在，则通过对话框获得用户的选择，将标志设为存在，并退出循环
                                answer%=Messagebox(在SQL Server中已有相同的表单号'NO'的记录."+Chr(10)+"选择'是'则覆盖原记录并添加子表信息;"+Chr(10)+"选择'否'则只添加子表信息;"+Chr(10)+"选择'取消'则取消本操作!",3+32,"注意!")                               
hasno=1        ？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？                       
                                Exit Do
                        End If
                Loop Until result.isendofdata
’遍历结果集，以确定输入的表单号是否存在于数据库中
        Else
                Messagebox "您输入的是一个新的记录信息！",,"请确认："
                ’表单号不存在，提示相关信息
        End If
        If answer=6  ？？？？？？？？？？？？？？？？？？？？ Then
qry.sql="UPDATE SQL中表名SET （列名）挤出机_螺杆转数='"+uidoc.fieldgettext("列域名")+"',挤出机_喂料转数='"+uidoc.fieldgettext("jcwlzs")+"',。。。。。。。。。。。
  WHERE NO='"+uidoc.fieldgettext("NO1")+"'"
                result.execute
        '若用户选择的是 yes，则在message表中更新相应的表头信息
        Elseif answer=7  ？？？？？？？？？？？？？？？？？？Then
                Call note.replaceitemvalue("form","表单名")
                Exit Sub
'若用户选择的是 no，则定位文档对应的表单为“表单名”，退出本子程序，让用户可以修改输入的信息
        End If
        If hasno=0  ？？？？？？？？？？？？？？？？？？？Then
qry.sql="insert SQL中表名(（SQL中列名）NO, ,挤出机_喂料转数,。。。。。) values('"_
                +uidoc.fieldgettext("（表单中域名）NO1")+"','"+uidoc.fieldgettext("jclgzs")+"','"+uidoc.fieldgettext("jcwlzs")+"'。。。。。。)"
                qw=qry.sql
                result.execute
'用户输入的是新的信息，则在“SQL中表名”中加入相应的表单信息
        End If
        result.close(DB_CLOSE)
        con.disconnect
        Exit Sub
errorHandler:
        Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
        Exit Sub
End Sub

无名...

其中hasno和answer的含义我都没有理解，请教各位帮小弟的忙

buglary36

这是有关SQL是否一存在目前需添加的记录,HASNO和ANSWER是相应的信息字符串,反馈提示用户!!!

无名...

谢谢！非常感谢！

灰色云天

好图，好贴，顶上去!



















瓜无滚圆，人无十全，好吃甜的，找卖糖的；好吃酸的，找卖醋的，懒人睡大觉ˇ三ˇ

安徽老虎機上分器 浙江老虎機上分器 江苏老虎機上分器 上海老虎機上分器 重庆老虎機遥控器 湖北老虎機定位器 广东老虎機上分器 老虎機解码器 老虎機破解 http://www.zjhldz.cn