当前位置:编程学习 > VB >>

如何用datagrid编辑文本文件,并保存到另一个数据文件

如何用datagrid编辑文本文件,并保存到另一个数据文件 --------------------编程问答-------------------- 是要保存到数据库中还是保存到其它文件中?保存到数据库中的话用ADO就可以,保存到XLS或是其它文件的话网上都有代码的,你搜一下就可以了 --------------------编程问答-------------------- 你的问题太含糊 不解 --------------------编程问答-------------------- 将文本文件调入datagrid中编辑,再保存进另一个文本文件中 --------------------编程问答--------------------
引用 2 楼 jmshsfhglc 的回复:
你的问题太含糊 不解


你的文件什么格式?问什么要用datagrid编辑

晕,不能说明白些吗?问一句说一句?

这表达 --------------------编程问答-------------------- 文件是txt格式,vb中还有其他控件能编辑txt文件吗? --------------------编程问答-------------------- 参考

Visual Basic文件操作全攻略 --------------------编程问答-------------------- 我编的是商品软件,需要有好的界面,用哪一个控件编辑好呢? --------------------编程问答-------------------- 还不会爬就想跑?连基础都没有就编商品软件? --------------------编程问答-------------------- textbox
richtextbox --------------------编程问答-------------------- 要用表格呢 就用vsflexgrid 文字处理呢 就用textbox、richtextbox --------------------编程问答-------------------- 我基本能明白楼主的意思
想用DataGride做表格编辑
恰巧我前段时间刚弄过差不多的东西
Dim oRs As New Recordset
Dim sLine As String
'保存
Private Sub Command1_Click()
oRs.MoveFirst
Open "l:\tmp1.txt" For Output As #1
Print #1, oRs.GetString(adClipString, , vbTab, vbCrLf, "")
Close #1
End Sub
'添加
Private Sub Command2_Click()
oRs.AddNew
End Sub
'删除
Private Sub Command3_Click()
oRs.Delete adAffectCurrent
End Sub

'修改
Private Sub DataGrid1_Change()
If DataGrid1.Text = "" Then DataGrid1.Text = "null"
End Sub

Private Sub Form_Load()
oRs.Fields.Append "fd1", adBSTR
oRs.Fields.Append "fd2", adBSTR
oRs.Open
loadtxt
End Sub
'读入
Private Function loadtxt()
Open "l:\tmp.txt" For Input As #1
While Not EOF(1)
    oRs.AddNew
    Line Input #1, sLine
    oRs!fd1 = Split(sLine, vbTab)(0)
    oRs!fd2 = Split(sLine, vbTab)(1)
Wend
Close #1
Set DataGrid1.DataSource = oRs
End Function

Private Sub Form_Unload(Cancel As Integer)
Set oRs = Nothing
End Sub
--------------------编程问答-------------------- 上面的代码是假设 文本文件里有2个字段 用vbtab分隔
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,