网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.如何由两个ASC码(区位码)复原成.
.VisualBasic变态用法之函数指针.
.VB从零开始编外挂(二).
.复制字符串中的字符.
.在VB中模拟实现邮件传输.
.在VB中用Outlook发电子邮件.
.VB6.0初学者的10个编程小技巧.
.呼叫子程序(Subroutine).
.关于VisualBasic6.0类开发(下).
.VB6在拖托盘中写入应用程序图标.
.用API函数遍历指定驱动器、目录的.
.DataCombo和DataList控件的使用二.
.用VB编写一个光驱保镖.
.用VB自制屏幕保护程序.
.VB精彩教程:数据异步加载.
.充分扩充VisualBasic功能.
.用VB编写网络寻呼机.
.在VB5.0中编辑数据库和电子表格.
.VisualBasic概念.
.VisualBasic变量、常数和数据类型.

在VB6中用Select语句检索记录

发表日期:2006-2-27


本文向你介绍如何不用借助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)=1000'ForEmpID

  grid1.ColWidth(2)=2000'ForEmpName

  grid1.ColWidth(3)=3000'ForEmpAddr

  grid1.ColWidth(4)=2000'ForEmpSSN

  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

  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"'HeaderforEmpIDfromDB

  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事件中加入下面的代码

  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$(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

  Open"Testdata.DAT"ForOutputAs#1

  Forj=1To30

  Print#1,nums(j)

  Print#1,names(j)

  Print#1,addresses(j)

  Print#1,ss_nums(j)

  Nextj

  Close#1

  Fori=1To30'Displayresultsfromtextfile

  grid1.Col=1

  grid1.Row=i

  grid1.Text=nums(i)'LoadEmpIDs

  grid1.Col=2

  grid1.Row=i

  grid1.Text=names(i)'LoadEmpNames

  grid1.Col=3

  grid1.Row=i

  grid1.Text=addresses(i)'LoadEmpAddrs

  grid1.Col=4

  grid1.Row=i

  grid1.Text=ss_nums(i)'LoadEmpSSNs

  Nexti

  EndSub

  在Command2_Click事件中加入下面的代码

  SubCommand2_Click()

  DimnewdbAsDatabase

  DimnewtbAsRecordset

  DimnewtdAsNewtabledef

  DimnewidxAsNewIndex

  Dimfield1AsNewfield'ForEmpnums

  Dimfield2AsNewfield'ForEmpnames

  Dimfield3AsNewfield'ForEmpaddresses

  Dimfield4AsNewfield'ForEmpss_nums

  screen.MousePointer=11'Displaythetimetobuild

  

  Setnewdb=CreateDatabase("NEWDB.MDB",DB_LANG_GENERAL)

  

  newtd.Name="Emp_Table"'*Newtablename

  field1.Name="Emp_ID"'*HoldsEmployeeIDnums()

  field1.Type=DB_LONG

  newtd.Fields.Appendfield1

  field2.Name="Emp_Name"'*HoldsEmpnames()

  field2.Type=DB_TEXT

  field2.Size=20

  newtd.Fields.Appendfield2

  field3.Name="Emp_Addr"'*HoldsEmployeeaddr()

  field3.Type=DB_TEXT

  field3.Size=25

  newtd.Fields.Appendfield3

  field4.Name="Emp_SSN"'*Holdsempss_nums()

  field4.Type=DB_TEXT

  field4.Size=12

  newtd.Fields.Appendfield4

  newidx.Name="Emp_ID_IDX"'*Youhavetohaveanindex

  newidx.Fields="Emp_ID"

  newidx.Primary=True

  newtd.Indexes.Appendnewidx

  newdb.TableDefs.Appendnewtd

  Setnewtb=newdb.OpenRecordset("Emp_Table")

  Open"Testdata.dat"ForInputAs#1

  BeginTrans

  DoWhileNot(EOF(1))

  newtb.AddNew

  LineInput#1,tmp1$'Retrieveempl_id

  LineInput#1,tmp2$'Retrieveempl_name

  LineInput#1,tmp3$'Retrieveempl_addr

  LineInput#1,tmp4$

  newtb("Emp_ID")=Trim$(tmp1$)'Placeinfield1

  newtb("Emp_Name")=Trim$(tmp2$)'Placeinfield2

  newtb("Emp_Addr")=Trim$(tmp3$)'Placeinfield3

  newtb("Emp_SSN")=Trim$(tmp4$)'Placeinfield4

  newtb.Update'Savetotable

  Loop

  CommitTrans

  Close#1'Closetextfile

  newtb.Close'CloseDB'stable

  newdb.Close'CloseDB

  screen.MousePointer=0'Setbacktoshowdone

  EndSub

  在Command3_Click事件中加入下面的代码

  SubCommand3_Click()

  DimdbAsDatabase

  DimtAsRecordset

  Dimcounter

  Setdb=OpenDatabase("NEWDB.MDB")

  Sett=db.OpenRecordset("Emp_Table")

  counter=1'StartcounteratRow=1

  DoUntilt.EOF

  grid2.Col=1

  grid2.Row=counter

  grid2.Text=t(0)'LoadEmpID

  grid2.Col=2

  grid2.Row=counter

  grid2.Text=t(1)'LoadEmpName

  grid2.Col=3

  grid2.Row=counter

  grid2.Text=t(2)'LoadEmpAddr

  grid2.Col=4

  grid2.Row=counter

  grid2.Text=t(3)'LoadEmpSSN

  counter=counter 1

  t.MoveNext

  Loop

  t.Close

  db.Close

  EndSub

->

上一篇:Data控件使用有admin888的Access数据库 人气:5529
下一篇:导出EXCEL/FOXPRO/PRODOX格式表 人气:2643
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐