在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)=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"

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

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