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

转贴请注明来自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吧,因为那个环境下用起来就简单了

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值