轉(zhuǎn)貼請(qǐng)注明來自http://blog.csdn.net/a11s 作者:董含君

呵呵,有數(shù)據(jù)庫(kù)當(dāng)然用數(shù)據(jù)庫(kù),SQL Server多好用, mySQL多好用... 不能給客戶端隨便裝服務(wù)啊,那就access或者其他單機(jī)的xsl之類,或者干脆XML

XML是好東西,就是對(duì)于用戶來說,還是有點(diǎn)復(fù)雜,比如大小寫區(qū)分,過多的尖括號(hào)等等,格式要求也很嚴(yán)格..

論到最簡(jiǎn)單的txt了

例子 c:/Inetpub/cc.txt
----------------------------------
a,b,c,d
11,22,33,44
----------------------------------

保存啊保存.下面就是程序部分

還是用VB6,響應(yīng)的SQL連接字符串請(qǐng)參閱http://blog.csdn.net/a11s/archive/2005/10/12/501023.aspx
-----------------------------------
Private Sub Form_Load()
Dim oconn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
oconn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
?????????????????? "Dbq=c:/inetpub/;" & _
?????????????????? "Extensions=asc,csv,tab,txt;" & _
?????????????????? "Persist Security Info=False"
oRs.Open "Select * From cc.txt", _
?????????????? oconn, adOpenStatic, adLockReadOnly, adCmdText
If oRs.RecordCount < 1 Then Exit Sub
oRs.MoveFirst
List1.AddItem "a=" + CStr(oRs("a"))
List1.AddItem "b=" + oRs("b")
List1.AddItem "c+1=" + CStr(oRs("c") + 1)
List1.AddItem "d=" + oRs("d")

oRs.Close
oconn.Close
Set oRs = Nothing
Set oconn = Nothing

End Sub

------------------------------------

運(yùn)行結(jié)果啊,運(yùn)行結(jié)果

至于insert update delete...就是語(yǔ)句的問題了,很明顯不可能不MS SQL 強(qiáng),但是,這個(gè)是以夠用為原則...

對(duì)于習(xí)慣了DotNet的人來說,還是繼續(xù)XML吧,因?yàn)槟莻€(gè)環(huán)境下用起來就簡(jiǎn)單了