数据库高手请进！！

[bafenghan]

我想从服务器上的一个表中取出一个字段，然后把它输出到本地机上的一个目录下存为文本文件，该怎么办？？
谢谢了

[little_hero]

解决了就加分吧!

[wuguangyao]

读出来字段内容,然后创建一个文本文件,将内容写进去,在保存不就可以了吗?

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

[little_hero]

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

类似以上操作即可完成