🚀 go-pugleaf

   MicroSoft Excel��һ������ǿ���������ʹ�õĵ��ӱ������
��,����VisualBai c(���¼��VB)���ʹ��,����Գ�ַ��Ӹ���
�ij���,�����׾��ܹ����Ƴ����˶�ɵ�Ӧ�ó��򡣱��ľʹ�̸һ��
Ӧ����ᡣ
    Excel������Ϊ�ⲿ��ݿ�,����Windows�ṩ��ODBC(������ݿ�
����)����,������ܱ�VB���á�
    ����Ҫ��Windows��ODBC���¶�Excel��������: 
    1.��"��ʼ�����á�������"��ѡ��ODBC��

    2.��Data Source������ѡȡExcel,����Setup��
    3.��������Դ���(Data Source Name)������дExcel Files,��
�汾����ѡExcel 4., ��ѡ��Ŀ¼(Select Dirctory)����ѡȡ��װE
xcel�������·��,����OK��
    VB��Excel�Ĵ�ȡ����������,����ֱ���ܡ�
    һ��ʹ��DDL(Dynamic Data Link)��̬����

    1.������֮ǰ,Ҫ�ں�̨������Excel��ݿ��ļ����������Form
��load()��������
    sub Form�� load()
    shell("c:\msoffice\excel\excel.exe  c:\mydb\mywb.xls",0)
    end sub

    2.�ڴ���������һ��Text�ؼ�,����Text1��

    3.�������:
    sub Form��Click()
    If Text1.Linkmode=0 Then
    Text1.LinkTopic="Excel|c:\mydb\[mywb.xls]mytab"
    Text1.LinkItem="r1c1"
    Text1.Mode=2
    end If
    Text1.LinkRequest
    end sub
    ����˵������:
    ��2�� Linkmode��ȡֵ��:0û������,1������,2�����ӡ�
    ��3��mytab��mywb.xls�������е�һ���?
    ��4����ָ��Text1����ݿ����ӵ�����,�����DZ��еĵ�Ԫ,����
��������ķ�Χ��
    ��7�� ���ڵ�5���Linkmode��Ϊ2,����Ҫ��LinkRequest������
��
    ����ʹ��VB���õ���ݿ�����(Jet Engine DataBase)
    ������VB���ܹ�ʶ��Excel����������,�������ڹ������ж�Ӧ
����ݷ�Χ����������VB�������ΪRecordSet����ơ�
    ��Excel�������ж�Ӧ�÷�Χ��������ķ���:���ڹ�������ѡ��
�÷�Χ,����Insert����ѡȡNameDefine��������������:
    sub Form��load()
    Dim mydb As DataBase  ��עһ
    Dim myrec As RecordSet
    Set mydb=OpenDataBase("c:\mydir\mybook.xls",Flase,False,
"Excel4.0")
    Set myrec=mydb.openRecordSet("Books")
    Do Until myrec.EOF
    If myrec![Name]="My Sun" Then   ��ע��
    Text1.text=myrec![date]  ��ע��
    Exit Do
    end If
    myrec.MoveNext   ��ע��
    loop
    end sub
    sub text1��click()  ��ע�塯
    myrec.edit
    myrec![Date]=text1.text
    myrec.update
    myrec.close
    mydb.colse
    end sub
    ���ϴ���ע������:
    עһ:����ҪΪ��ݿ⼰��¼������һ�����������������ʱ
�ڴ˴�����,��ʾusere fined type not find,����ʶ��Database��R
ecordset���������,����ʾ��ʹ�õ�VB�汾Ϊ��רҵ�汾,û��Jet 
Engine DataBase���ܡ�
    ע��:��OpenRecordsetִ�гɹ���,BOOKS�ĵ�һ����¼��������
���Ϊ��ǰ��¼,���������myrec��myrec![Name]��ȡ��ǰ��¼Name
����ֵ��Excel��Ŀ��Ƶ�ȱʡֵ�DZ��е�һ�е��ַ�
    ע��:�����ҵ�����Ϊ"My Sun"�ļ�¼ʱ,�ͰѸü�¼����������
�ݸ����ı���
    ע��:�ѵ�ǰ��¼��ָ��������һ��¼��
    ע��:��δ���Ĺ�����:�����ָ���ı���,����������ʱ,��
�ı��������д�뵱ǰ��¼������edit��update���ʹ��,�Ե�ǰ��
¼����д�롣
    ��ʹ�ù�������Data�ؼ���Excel���д�ȡ����
    ʹ��Data�ؼ��ǽ���һ��Ӧ�ó��������׵ķ���,�ڶ��ⲿ���
���ȡʱʹ�õĴ�������,���������κδ��롣������ɵ�Ӧ�ó���
������������
    ʹ��Data�ؼ�,��Ҫͬʱ����һ�����������ؼ�,��ν�����ؼ�
,��ָһЩ������ʾ���޸���ݿ����ݵĿؼ�,�����ı����б��
��Ͽ򡢱�ǿ�ȡ�
    �������ȶ�Data�ؼ��������ؼ������Խ�������,��������ƻ�
���н���,�����ʹ�ô�����������������á�
    �����û��������õķ���:

    1.����Data1�ؼ���,����Datal���Դ���,���������Databa
seName�ı�������С��ť,������OpenFile�ĶԻ���,�ڴ�ѡ����Ҫ
����ݿ��ļ�,����c:\mydir\m ybook.xls��
    2.����Connect���������ͷ,�������˵���ѡ����Ӧ����ݿ���
�ͼ��汾,����Excel5 .0��

    3.��Recordsource���������ͷ,�������˵���ѡ����Ӧ�Ĺ���
��,����Books����ѡȡ��Excel��ݿ��ļ�֮��,�������ڵĹ����?
��Ŀ��ơ�������ķ�Χ���Զ�װ����������С�

    4.���������ؼ���������ʾ���޸���Ŀ����,�������Խ���һ��
�ı��ؼ���Ϊ���ӡ�
    5.���ı�������Դ����� ,����DataSource�����˵�,ѡDatal��
    6.���ı�������Դ�����,����DataField�������˵�,ѡName��
������ϼ������С����ı�����������ʾ��һ����¼�е�����,�Ժ�
ÿ����һ��Data��ļ�ͷ���ı����оͻ���ʾ��һ����¼�е�����
    ���������������л�����ͨ��:Windows 95,MS Office95,Excel5
.0,Visual Basic4.0
--
 ________ _____          _____        ______________  _____ 
 ___  __ \___(_)________ ___(_)       __  ___/___  /_ ___(_)
 __  /_/ /__  / ___  __ \__  /        _____ \ __  __ \__  / 
 _  ____/ _  /  __  /_/ /_  /         ____/ / _  / / /_  /  
 /_/      /_/   _  .___/ /_/          /____/  /_/ /_/ /_/   
                /_/                                         

�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]