欢迎来到天天文库
浏览记录
ID:37770102
大小:15.78 KB
页数:5页
时间:2019-05-30
《在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
此文档下载收益归作者所有