Article View: cn.bbs.comp.program
Article #2191Lotus Notes �� �� �� �� �� �� ��
From: ����
Date: Sun, 11 Jan 1998 00:00
Date: Sun, 11 Jan 1998 00:00
190 lines
12274 bytes
12274 bytes
Lotus Notes �� �� �� �� �� �� �� �� һ �� ʵ ��
�� ��
�� �� �� �� ί �� Ϣ �� ��(314001) �� �� ��
Lotus Notes 4.0 �� һ �� �� �� �� Ⱥ �� �� �� ƽ ̨ �� �� �� �� ��
�� �� �� �� �� ϵ ͳ �� �� �� �� ȫ �� �� �� �� �� �� �� �� �� �� �� �� ��
�� ǿ �� �� ȫ �� ʩ �� �� �� �� �� �� �� ֤ �� Ϣ �� ȫ �� �� �� �� �� ��
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ʱ �� �� Ҫ �� ͳ �� �� ϵ
�� �� �� �� �� �� ϵ ͳ �� Э �� �� �� �� �� �� �� �� �� �� �� ϵ �� �� ��
�� �� Ϣ ת �� ��Notes �� �� �� �� �� �� �� ��Notes �� �� �� �� �� �� �� ��
�� �� �� �� �� �� �� �� Ҫ �� �� �� �� �� �� �� �� ��Foxpro �� �� �� Ϊ ��
�� �� ��Lotus Notes �� �� �� �� �� �� �� �� һ �� ʵ �� �� �� ��
Lotus Notes �� �� �� �� �� �� �� �� ; ��
Lotus Notes ʹ ��ODBC �� �� ȡ �� �� �� �� �� �� Ϣ �� ͨ ��Notes
�� �� Ƕ �� �� ʽ ��Script �� �� �� �� ��Notes �� �� �� �� �� ��Notes �� ��
�� �� Ϣ �� �� �� �� �� �� �� ת �� ��Notes �� �� �� ��Notes �� �� �� �� ��
�� �� �� ȡ �� �� �� �� ��
��Notes �� ʽ �� �� ��@Db �� ��
Notes �� ��@DbColumn ��@DbLookup ��@DbCommand �� �� �� �� �� �� ��
�� �� �� �� �� һ �� �� �� �á�ODBC�� �� �� �� �� �� �� �� �� �� �� �� Ϣ
�� �� �� �� һ �� ȱ �� �� ֻ �� �� �� �� ȡ �� Ϣ �� �� �� �� �� �� ¼ ��
ȡ �� Ϣ ��
�� ��Lotus Script �� �� �� ��
LSX �� �� ģ �� ʹ ��Lotus Script �� �� �� �� д �� ȡ �� �� �� ��
�� �� �� ��Notes ��ODBCConnection ��ODBCQuery ��ODBCResultSet �� �� ��
ΪNotes �� �� �� ��ODBC �� �� ȡ �� �� �� �� �� �� �� �� �� �� �� ��
�� �� ȡ �� �� �� �� ֮ ǰ �� �� �� �� �� һ �� �� �� Դ �� �� �� ��
ODBC �� �� �� �� �� �� �� ֪ �� �� �� �� ȡ �� �� �� һ �� �� �� Դ �� һ
�� �� �� ��ODBC �� �� �� �� �� Ҫ �� ȡ �� �� �� �� ϵ �� һ �� �� �� �� ��
Ҫ �� ȡ �� �� �� �� �� �� �� �� �� �� Ŀ ¼ �� �� ̨DBMS �� �� �� �� ƽ ̨
�� �� ϵ �� �� Щ �� Ϣ �� �� ¼ �� һ �� ע �� �� �� ��( ��Winows95 ��
��ODBC.INI) �� �� �� ��Windows �� �� �� �� �� ע �� �� �� Դ ��
��Windows95 �� �� �� �� �� �� �� ��
1.�� ��Windows �� �� �� �� �� ��ODBC ͼ �� �� ��Add �� ť��
2.ѡ �� �� Ҫ �� �� �� �� �� �� ��OK �� ť��
3.�� �� �� �� Դ �� �� �� �� �� �� Ϣ �� �� �� �� Ҫ �� �� �� �� Ϣ��
4.�� Щ �� �� �� �� �� �� Ҫ �� �� һ Щ �� Ϣ �� �� �� �� Щ �� �� ��
�� Ϣ �� �� ��OK �� ť��
5.��Close �� ť ��
Lotus Notes �� ��Foxpro �� һ �� ʵ �� �� ��
ʵ ��Notes �� ��Foxpro �� �� �� �� �� �� �� �� ˼ �� �� �� ��Foxpro
�� һ �� �� �� �� �� �� �� �� �� �� Ӧ �� ��Notes �� �� �� �� �� �� һ ��
ͬ �� �� �� �� �� �� �� �� �� ��Foxpro �� �� �� �� Ϣ �� ת �� �� ��
��Notes �� �� �� Ӧ �� �� �У� �� �� һ �� �� �� �� ��Script �� �� �� д
ת �� �� �� �� �� �� һ �� �� ͼ �� �� �� �� �� �� �� �� ʵ �� �� �� ��
�� �� �� Ϣ ��Notes �� �� �� ת �� ��
�� �� һ ��Foxpro �� �� ��BMZBK.DBF �� �� �� �� �� �� ��
�� �� ��
�� ��
�� ��
˵ ��
code
Character
7
ָ �� �� ��
name
Character
40
ָ �� �� ��
fullname
Character
60
ָ �� ȫ ��
unit
Character
12
�� �� �� λ
�� �� �� �� �� �� �� �� Ϣ ת �� ��Notes �� �� �� ʵ �� �� �� �� ��
��
1. ��Notes �� �� �� һ �� �� �� �� �� ȡ �� ΪConvert.nsf �� �� ��
�� �� �� �� �� �� �� һ �� �� �� �� ȡ �� Ϊcodelib �� �� �� �� �� �� ��
�� ��
�� ��
˵ ��
code
�� �� �� �� ��
ָ �� �� ��
name
�� �� �� �� ��
ָ �� �� ��
fullname
�� �� �� �� ��
ָ �� ȫ ��
unit
�� �� �� �� ��
�� �� �� λ0
��Convert.nsf �� �� �� �� һ �� �� �� �� ȡ �� Ϊvfpagent �� �� ��
�� �� ��
�� �� �� �� �� �� ʱ �� �� �� Ϊ �� �� �� ѡ �� �� ���� �� �� ִ
�У�
ָ �� �� �� �� �� �� �� �� �� �� Ϊ �� �� ͼ �� �� �� �� �� ��
2. �� �� �� Ҫ ִ �� �� �� �� �� ��Script �� д �� �� �� �� ��
(1)Option�¼������±�̣�
Option Public
Uselsx����LSXODBC" ����ȡODBC����ȫ�ֶ���
(2)Initialize�¼������±�̣�
Sub Initialize
Dim session As New Notessession
Dim db As Notesdatabase
Dim doc As notesdocument
Set db=session.currentdatabase
Set doc=New notesdocument(db)
doc.form=��codelib"
Dim conn As New ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Call conn.Disconnect()
Set qry=New ODBCQuery
Set result=New ODBCResultSet
'VFR��ODBC��ע��õ����Դ
If conn.ConnectTo(��VFP")Then
Set qry.Connection=conn
qry.SQL=��SELECT��fromBMZBK" '���Ͳ�ѯ����
Set result.Query=qry
Call result.Execute()
columns=result.Columns
'ȡ�����������Notes��Ӧ���ֶ���
Do Until result.IsEndOfData
doc.code=Trim��(result.getvalue(1))
doc.name=Trim��(result.getvalue(2))
doc.fullname=Trim��(result.getvalue(3))
doc.unit=Trim��(result.getvalue(4))
Call doc.save(True,True)
Set db=session.currentdatabase
Set doc=New notesdocument(db)
doc.form=��codelib"
Call result.nextrow()
Loop
Call conn.Disconnect()�������Դ�Ͽ�����
Else
Messagebox(��Could not connect to server")
End If
End Sub
3. ��Convert.nsf �� �� �� �� һ �� �� ͼ �� ȡ �� ΪDemoView �� ��
�� �� ͼ �� �� �� һ �� �� �� �� �� �� Ϊ�� ת ���� �� �� �� �� ʽ Ϊ �� ��
�� �� �� �� �С�vfpagent�� �� �� �� �� �� �� �� ��Convert.nsf �� �� �� ʱ
�� �� ��DemoView �� ͼ �� �� �� �� �� Ļ �� �� �� �֡� ת ���� �� �� �� ť
�� �� �� �� �� �� ť �� �� �� ��Foxpro һ �� �� �� ��BMZBK.DBF �� �� �� ��
Ϣ ת �� ��Notes �� �� �� �� ��
�� �� �� �� �� �� �� �� �� �� �� �� �� �� ͨ �� �� �� �� �� �� Ϊ ��
�� �� �� �� ��Window NT 3.51,Lotus Notes Server 4.0,IBM PC Server
320,80M �� �� ��
�� �� �� ��Windows95 ��Lotus Notes Client 4.0, �� �� ��586PI/90
��16M �� �� ��
�й���������������˾��Ȩ����
--
[40m[32m[1m __ ___ ___ ___ ___ [33m[1m //// ||
[32m[1m | | / _ \ / __| / __| / _ \ [31m[1m--------[33m[1moOOo[31m[1m-------------[33m[1moOOo[31m[1m--------------,
[32m[1m__| | | __/ \__ \ \__ \ | __/ [31m[1mHOMEPAGE: http://www.swjtu.edu.cn/~jiany/ |
[32m[1m|___/ \___| |___/ |___/ \___| [31m[1mEMAIL: jiany@swjtu.edu.cn |
[31m[1m___________________________________________________________________________|[m
[m[1;32m�� ��Դ:��������վ bbs.swjtu.edu.cn��[FROM: 202.115.65.190][m
Technical Details
Message-ID:
<3MU2ML$snC@bbs.swjtu.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,90d027dc81afa740,start X-Google-Attributes: gidfc86e,public From: Jesse.bbs@bbs.swjtu.edu.cn (����) Subject: Lotus Notes �� �� �� �� �� �� �� Date: 1998/01/11 Message-ID: <3MU2ML$snC@bbs.swjtu.edu.cn> X-Deja-AN: 314923413 X-Filename: Programming/M.884520501.A Organization: ������վ Newsgroups: cn.bbs.comp.program