| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2334 人关注过本帖
标题:文本写入更新
只看楼主 加入收藏
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
唉~你绑定了数据,反正是运行不了……

你按我说的思路做,遇到问题给你说OK?你这个看代码思路都不一样……

快上课了……
2007-09-06 18:06
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

[CODE]Public Function Read_Text_File() As ADODB.Recordset
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=d:\;", "", ""

rs.Open "select * from [123#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
End Function[/CODE]


Private Sub Command1_Click()
Dim aaa As ADODB.Recordset
Set aaa = Read_Text_File
Do While Not aaa.EOF
Debug.Print aaa.Fields(0).Value;
Debug.Print aaa.Fields(1).Value;
Debug.Print aaa.Fields(2).Value
aaa.MoveNext
Loop
End Sub
这个是个查询,你自己做写个update
就可以了 不知道是否类似!


2007-09-07 08:46
jiangyawen
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-8-31
收藏
得分:0 

行不通呢,你这是从文本中查找,我要的是获取datagrid里最新的内容,把他输出


2007-09-07 09:08
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

让你写 update语句啊,写了以后 你 先更新txt 然后 datagrid就自然更新了!


2007-09-07 10:50
jiangyawen
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-8-31
收藏
得分:0 

我现在的程序是这样的

[IMG]C:\Documents and Settings\Jiangyw\桌面\1.bmp[/IMG]
我每在界面上增加一条记录,在datagrid里都能实时更新,在界面上都是没有问题的
主要的问题是点击界面上的apply按钮后就会把datagrid里的内容都输出到文本中
但是现在就是一个问题,当我再点击这个窗体,再添加记录或者是修改删除,datagrid里此时的信息
就会改变吧,我再点击apply按钮生成文本的时候,在文本里不能更新,他只是在文本的后面再次添加
而不是修改文本之前的记录

2007-09-07 10:56
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

你写文本的时候 是追加 ,不是覆盖!
Open "TESTFILE" For Input As #1
' 若要以其他方式打开文件,必需先关闭此文件。
Close #1

下列代码以只允许写操作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打开文件,必需先关闭此文件。
Close #1

下列代码以随机方式打开文件,文件中含有用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打开文件,必需先关闭此文件。
Close #1

下列代码以顺序输出方式打开文件;任何过程都可以读写该文件。

Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打开文件,必需先关闭此文件。
Close #1

下列代码以只允许读的二进制方式打开文件;其他过程不可以读该文件。

Open "TESTFILE" For Binary Access Read Lock Read As #1


如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打开文件时,可以建立这一文件。

如果文件已由其它进程打开,而且不允许指定的访问类型,则 Open 操作失败,而且会有错误发生。

如果 mode 是 Binary 方式,则 Len 子句会被忽略掉。

重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件,而不必先将该文件关闭。在 Append 和 Output 方式下,如果要用不同的文件号打开同一文件,则必须在打开文件之前先关闭该文件。


你不要用 Append


2007-09-07 10:59
jiangyawen
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-8-31
收藏
得分:0 
我是想先input这个文本查看是否有相同的记录,如果有,就把这记录之前的文本和修改的记录放在StrFileContent里面,然后关闭
在output这个文本,把StrFileContent的内容写入到文本里,然后关闭
如果没有相同的记录,那么就append这个文本,直接在后面追加

更新文本的内容如果界面不带datagrid,我都能实现了!
现在就是datagrid里的内容是动态的并且是多条的,所以要用到循环之类的语句,就实现不了了

2007-09-07 11:11
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
回复:(jiangyawen)我是想先input这个文本查看是否有...
z3WV5qN1.rar (2.09 KB) 文本写入更新



也许你说的不一样吧?但是这个是我的思路……你想要的效果用这个修改吧。。。。

快上课了……
2007-09-07 12:53
jiangyawen
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-8-31
收藏
得分:0 

谢谢你这么帮我,太感谢了!
你说如果我要批量生成文本,就是我那个config文件,我可以让他生成100个内容完全一样的config文件吗?这100个名字可以不同
可以以config1,config2,config3之类的命名不?


2007-09-07 13:21
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
用个循环……就可以了。不知道直接复制快还是读取写入快……应该是复制快些……

快上课了……
2007-09-07 14:01
快速回复:文本写入更新
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017276 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved