��VB5��ݿ��

Article View: cn.bbs.comp.database

Article #9861

Back to cn.bbs.comp.database Previous Next

#9861

From: bobo
Date: Thu, 13 Aug 1998 00:00

21 lines
1344 bytes

  ��������VB��һ��FOXPRO3��0����ݿ⡣�ҵĳ������£�

    Dim Club1 As Database
  Dim ClubTb2, ClubDyn As Recordset
  Dim OldWs As Workspaces
  Dim Number As Integer

  Set Club1 = OpenDatabase("c:\billtemp\9807\", False, False, "FoxPro 3.0")
  SQLSel = "Select * from Nhbh9807"
  Set ClubDyn = Club1.OpenRecordset(SQLSel, dbOpenDynaset)
  Number = 2
  Number = ClubDyn.RecordCount
  Print Number

  ֻ��NUMBER��ֵ���ǵ���1 ��������ݿ���������Ҳ���м�����
� ���ʸ����������ʲôԭ��С�˾ʹ�л��



--
[m[1;36m�� ��Դ:���������� BBS bbs.nease.net��[FROM: 202.103.162.136][m

Technical Details

Message-ID: <3Q4j82$UaL@bbs.nease.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 101948,fde6913c4b467953,start
X-Google-Attributes: gid101948,public
From: dudu.bbs@bbs.nease.net (bobo)
Subject: ��VB5����ݿ������
Date: 1998/08/13
Message-ID: <3Q4j82$UaL@bbs.nease.net>
X-Deja-AN: 380618780
X-Filename: DataBase/M.902977154.A
X-Complaints-To: usenet@news.nease.net
X-Trace: news.nease.net 902977890 20420 202.96.152.195 (13 Aug 1998 03:11:30 GMT)
Organization: Net Ease
NNTP-Posting-Date: 13 Aug 1998 03:11:30 GMT
Newsgroups: cn.bbs.comp.database,

Article View: cn.bbs.comp.database

��VB5����ݿ������

��VB5��ݿ��