数据库高手请进!!

bafenghan 2001-08-13 09:30:09
我想从服务器上的一个表中取出一个字段,然后把它输出到本地机上的一个目录下存为文本文件,该怎么办??
谢谢了
...全文
65 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
little_hero 2001-08-13
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=try;Data Source=xxx.xxx.xxx.xxx;Network Library=dbmssocn;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=little_hero"
conn.Open connstr

sqlstr = "select * from myuser"
rs.CursorLocation = 3
rs.Open sqlstr, conn, 3, 2

读字段名称和内容
For i = 0 To rs.Fields.Count - 1
temp=rs.Fields.Item(i).Name '名称
temptxt=temptxt+temp
temp1=rs.fields.item(i).value '内容
temp1txt=temp1txt+temp1
Next

'写入文本文件
Set fs = CreateObject("scripting.filesystemobject")
Set txtfile = fs.createtextfile(filename)
txtfile.write (temptxt)
txtfile.Close

类似以上操作即可完成
回复
wuguangyao 2001-08-13
读出来字段内容,然后创建一个文本文件,将内容写进去,在保存不就可以了吗?

创建新文件可以用 open 语句,读数据库的字段,你应该会吧?

回复
little_hero 2001-08-13
解决了就加分吧!
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-08-13 09:30
社区公告
暂无公告