1188
社区成员
...全文
当前发帖距今超过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
类似以上操作即可完成
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 语句,读数据库的字段,你应该会吧?
创建新文件可以用 open 语句,读数据库的字段,你应该会吧?
little_hero 2001-08-13
解决了就加分吧!
JAVA上百实例源码以及开源项目源代码 Java源码下载 1个目标文件 摘要:Java源码,网络相关,HTTP Java实现HTTP连接与浏览，Java源码下载，输入html文件地址或网址，显示页面和HTML源文件，一步步的实现过程请下载本实例的Java源码，代码中包括丰富的...
数据库高手请进 2013-06-26 今天决定开源部分源码 VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form MainForm BorderStyle = 1 'Fixed Single Caption = "数据库
streams复制出错，高手请进！ ORA-32593: 流量中的数据库补充事件记录属性 ORA-06512: 在 "SYS.DBMS_STREAMS_ADM_UTL_INVOK", line 289 ORA-06512: 在 "SYS.DBMS_STREAMS_ADM", line 439 ORA-06512: 在 "SYS.DBMS_STREAMS_ADM", line 397 ORA...
Android数据库高手秘籍(零)——前言 但是，能够很好地掌握数据库各方面的使用技巧，对于一个Android程序员来仍然是至关重要的，因此，这里我准备写一个《Android数据库高手秘籍》的专栏，带你一步步成为一个Android数据库高手，这是本专栏的第零篇文章
JAVA上百实例源码以及开源项目 Java实现HTTP连接与浏览，Java源码下载，输入html文件地址或网址，显示页面和HTML源文件，一步步的实现过程请下载本实例的Java源码，代码中包括丰富的注释，对学习有帮助。 Java实现的FTP连接与数据浏览程序 1个...
Android数据库高手秘籍 Android数据库高手秘籍(零)——前言 分类： Android数据库高手秘籍 转载请注明出处：http://blog.csdn.net/guolin_blog/article/details/38083103 在我刚开始接触Android的时候甚至都不敢相信，...
Ubuntu完全教程，让你成为Ubuntu高手！ 请您把一块硬盘想象为一本书……即便您不喜欢读书，您也一定非常熟悉它，所有的书都是相同的，包括我们使用的课本……您肯定非常熟悉 一本完整的书，通常包括书名、索引和正文。 如果您需要Linux，您首先需要...
安装SQL Server2000遇到的问题。请高手帮忙！！ 我上个月安装了SQL Server2000用来做数据库实验的，一直到上周前我还用来做过实验，可是在9月28号的时候突然就不能用了！ 我打开“所有程序”，然后想打开“企业管理器”时就进不去了。跳出一个“Microsoft ...
高手请进，关于word的问题，高分奉送 高手请进，关于word的问题，高分奉送 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061218135544240.html 我做了一个word文档的模版，里面有一个表格，如何才能把word打开，并把...
Ubuntu教程，让你成为Ubuntu高手！ 请您把一块硬盘想象为一本书……即便您不喜欢读书，您也一定非常熟悉它，所有的书都是相同的，包括我们使用的课本……您肯定非常熟悉 一本完整的书，通常包括书名、索引和正文。 如果您需要Linux，您首先需要...
Linux操作系统基础教程 系统，因此不需要先安装 DOS 或其他的操作系统（MS Windows, OS2, MINIX..）就可以进 行直接的安装。 Linux的最早起源是在1991年10月5日由一位芬兰的大学生Linux Torvalds (Torvalds@kruuna.helsinki.fi)写了 Linux...
