給你一個VB2010讀寫文件的例子吧
創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),扶余企業(yè)網(wǎng)站建設(shè),扶余品牌網(wǎng)站建設(shè),網(wǎng)站定制,扶余網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,扶余網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
Dim?name?As?String?=?""
Dim?age?As?Integer
name?=?InputBox("請輸入姓名")
age?=?InputBox("請輸入年齡")
FileOpen(1,?"d:\信息.txt",?OpenMode.Append)
WriteLine(1,?name,?age)
FileClose(1)
FileOpen(1,?"d:\信息.txt",?OpenMode.Input)
Dim?h?As?String
Dim?j?As?String
Dim?f?As?String
f?=?""
h?=?""
j?=?""
While?EOF(1)?=?False
f?=?LineInput(1)??vbCrLf??f
End?While
FileClose(1)
MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)
.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容,F(xiàn)ile.ReadAllLine(filename)用于讀取多行。
定義一個表對象,定義一個連接對象,定義一個連接字符串變量;
然后定義一個查詢字符串變量,你對照著例子,拼出來一個連接對象;
打開連接,執(zhí)行查詢并填充結(jié)果到表對象。
然后,按照表里面的順序,一行一行的讀取每一列的值。
請照著例子學(xué)。