在VB6中用Select语句检索记录.docxVIP

下载本文档

23
0
约4.53千字
约 5页
2018-01-18 发布于河南
举报
版权申诉

在VB6中用Select语句检索记录.docx

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

在VB6中用Select语句检索记录

　　本文向你介绍如何不用借助Access，直接在程序中创建一个数据库，然后从标准的ASCII文本文件中读取数据到数据库中。原文是微软知识库中的一篇文章，但当时是针对VB3写的，所以其中的代码有点过时。例如现在DAO中已没有Table对象，代之以Recordset对象。下面是修改后的代码，在VB6中调试通过。?　　首先在工程中添加对MicrosoftDAO3.51Library引用。　　在窗体中添加三个命令按钮和两个MSFlexGrid.　　按照下表设置和控件的属性：　　控件属性值　　Command1Caption建立文本文件并显示在网格中　　Command2Caption传输入数据并新建一个数据库　　Command3Caption显示新数据库中的数据　　Grid1Cols5　　Grid1Rows35　　Grid2Cols5　　Grid2Rows35　　将下面的代码添加到窗体的声明部分　　Dimnums(30)AsLong　　Dimnames(30)AsString*20　　Dimaddresses(30)AsString*25　　Dimss_nums(30)AsString*12　　ConstDB_LONG=4　　ConstDB_TEXT=10　　ConstDB_LANG_GENERAL=;LANGID=0x0809;CP=1252;COUNTRY=0　　将下面的代码添加到窗体的Load事件中　　SubForm_Load()　　Show　　grid1.ColWidth(1)=1000ForEmpID　　grid1.ColWidth(2)=2000ForEmpName　　grid1.ColWidth(3)=3000ForEmpAddr　　grid1.ColWidth(4)=2000ForEmpSSN　　grid1.Col=1　　grid1.Row=0　　grid1.Text=EmpIDHeaderforEmpIDfromtextfile　　grid1.Col=2　　grid1.Row=0　　grid1.Text=EmpNameHeaderforEmpNamefromtextfile　　grid1.Col=3　　grid1.Row=0　　grid1.Text=EmpAddrHeaderforEmpAddrfromtextfile　　grid1.Col=4　　grid1.Row=0　　grid1.Text=EmpSSNHeaderforEmpSSNfromtextfile　　grid2.ColWidth(1)=1000ForEmpID　　grid2.ColWidth(2)=2000ForEmpName　　grid2.ColWidth(3)=3000ForEmpAddr　　grid2.ColWidth(4)=2000ForEmpSSN　　grid2.Col=1　　grid2.Row=0　　grid2.Text=EmployeeIDHeaderforEmpIDfromDB　　grid2.Col=2　　grid2.Row=0　　grid2.Text=EmployeeNameHeaderforEmpNamefromDB　　grid2.Col=3　　grid2.Row=0　　grid2.Text=EmployeeAddrHeaderforEmpIDfromDB　　grid2.Col=4　　grid2.Row=0　　grid2.Text=EmployeeSSNHeaderforEmpNamefromDB　　EndSub　　在Command1_Click事件中加入下面的代码?　　SubCommand1_Click()　　Fori=1To30　　nums(i)=i　　names(i)=JohnDoe# Str$(i)　　addresses(i)=Str$(i) MockingBirdLane　　Ifi9Then　　*Enterthefollowingfourlinesasone,singleline:　　ss_nums(i)=Trim$(Str$(i) Trim$(Str$(i)) Trim$(Str$(i)) - Trim$(Str$(i 1)) Trim$(Str$(i 1)) - Trim$(Str$(i))　　 Trim$(Str$(i)) Trim$(Str$(i)) Trim$(Str$(i)))　　Else　　*Enterthefollowingtwolinesasone,singleline:　　ss_nums(i)=Trim$(Trim$(Str$(999)) - Trim$(Str$(88)) - Trim$(Str$(7777)))　　EndIf　　Nexti　　OpenTestdata.DATForOutputAs#1　　F