数据库,XML,MDB --- 我们来TXT...

[导读]转贴请注明来自http://blog.csdn.net/a11s 作者:董含君呵呵,有数据库当然用数据库,SQL Server多好用, mySQL多好用... 不能给客户端随便装服务啊,那就acces

转贴请注明来自http://blog.csdn.net/a11s 作者:董含君

呵呵,有数据库当然用数据库,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吧,因为那个环境下用起来就简单了