在VB6中用Select语句检索记录

《在VB6中用Select语句检索记录》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、本文向你介绍如何不用借助Access，直接在程序中创建一个数据库，然后从标准的ASCII文本文件中读取数据到数据库中。原文是微软知识库中的一篇文章，但当时是针对VB3写的，所以其中的代码有点过时。例如现在DAO中已没有Table对象，代之以Recordset对象。下面是修改后的代码，在VB6中调试通过。 　　首先在工程中添加对MicrosoftDAO3.51Library引用。　　在窗体中添加三个命令按钮和两个MSFlexGrid.　　按照下表设置和控件的属性：　　控件属性值　　Command1Captio

2、n"建立文本文件并显示在网格中"　　Command2Caption"传输入数据并新建一个数据库"　　Command3Caption"显示新数据库中的数据"　　Grid1Cols5　　Grid1Rows35　　Grid2Cols5　　Grid2Rows35　　将下面的代码添加到窗体的声明部分　　Dimnums(30)AsLong　　Dimnames(30)AsString*20　　Dimaddresses(30)AsString*25　　Dimss_nums(30)AsString*12　　ConstDB_L

3、ONG=4　　ConstDB_TEXT=10　　ConstDB_LANG_GENERAL=";LANGID=0x0809;CP=1252;COUNTRY=0"　　将下面的代码添加到窗体的Load事件中　　SubForm_Load()　　Show　　grid1.ColWidth(1)=1000'ForEmpID　　grid1.ColWidth(2)=2000'ForEmpName　　grid1.ColWidth(3)=3000'ForEmpAddr　　grid1.ColWidth(4)=2000'ForEmp

4、SSN　　grid1.Col=1　　grid1.Row=0　　grid1.Text="EmpID"'HeaderforEmpIDfromtextfile　　grid1.Col=2　　grid1.Row=0　　grid1.Text="EmpName"'HeaderforEmpNamefromtextfile　　grid1.Col=3　　grid1.Row=0　　grid1.Text="EmpAddr"'HeaderforEmpAddrfromtextfile　　grid1.Col=4　　grid1.Row=0

5、　　grid1.Text="EmpSSN"'HeaderforEmpSSNfromtextfile　　grid2.ColWidth(1)=1000'ForEmpID　　grid2.ColWidth(2)=2000'ForEmpName　　grid2.ColWidth(3)=3000'ForEmpAddr　　grid2.ColWidth(4)=2000'ForEmpSSN　　grid2.Col=1　　grid2.Row=0　　grid2.Text="EmployeeID"'HeaderforEmpIDfrom

6、DB　　grid2.Col=2　　grid2.Row=0　　grid2.Text="EmployeeName"'HeaderforEmpNamefromDB　　grid2.Col=3　　grid2.Row=0　　grid2.Text="EmployeeAddr"'HeaderforEmpIDfromDB　　grid2.Col=4　　grid2.Row=0　　grid2.Text="EmployeeSSN"'HeaderforEmpNamefromDB　　EndSub　　在Command1_Click事件中加

7、入下面的代码 　　SubCommand1_Click()　　Fori=1To30　　nums(i)=i　　names(i)="JohnDoe#"Str$(i)　　addresses(i)=Str$(i)"MockingBirdLane"　　Ifi<9Then　　'*Enterthefollowingfourlinesasone,singleline:　　ss_nums(i)=Trim$(Str$(i)Trim$(Str$(i))Trim$(Str$(i))"-"Trim$(Str$(i1))Trim$(St

8、r$(i1))"-"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　　Next