數據庫,XML,MDB --- 我們來TXT...

轉貼請注明來自http://blog.csdn.net/a11s? 作者:董含君

blog已經遷移到http://a11s.cnblogs.com
呵呵,有數據庫當然用數據庫,SQL Server多好用, mySQL多好用... 不能給客戶端隨便裝服務啊,那就access或者其他單機的xsl之類,或者干脆XML

XML是好東西,就是對于用戶來說,還是有點復雜,比如大小寫區分,過多的尖括號等等,格式要求也很嚴格..

論到最簡單的txt了

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

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

還是用VB6,響應的SQL連接字符串請參閱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

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

運行結果啊,運行結果

至于insert update delete...就是語句的問題了,很明顯不可能不MS SQL 強,但是,這個是以夠用為原則...

對于習慣了DotNet的人來說,還是繼續XML吧,因為那個環境下用起來就簡單了

posted on 2005-11-03 11:28 a11s.net 閱讀(...) 評論(...) 編輯 收藏

轉載于:https://www.cnblogs.com/a11s/archive/2005/11/03/267798.html

總結

以上是生活随笔為你收集整理的数据库,XML,MDB --- 我们来TXT...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。