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