VBScript 访问SQL数据库

翻译 2011年10月17日 23:56:51

Untested, as I don't have SQL Server
Dim cn, rs
Dim fout
Dim i
Dim line
Const Server  = "yourServer"
Const DB      = "yourDatabase"
Const Uid     = "yourUsername"
Const Pwd     = "yourPassword"
Const Proc    = "yourProcedure"
Const outFile = "out.csv"
 
'Open output file
With CreateObject("Scripting.FileSystemObject")
  Set fout = .OpenTextFile(outFile, 2, True)
End With
 
'Connect to database
Set cn = CreateObject("ADODB.Connection")
With cn
  .Provider = "SQLNCLI"
  .ConnectionString = "Server="   & Server & _
                     ";Database=" & DB     & _
                     ";Uid="      & Uid    & _
                     ";Pwd="      & Pwd    & ";"
  .CursorLocation = 3
  .Open
End With
 
'Run procedure
Set rs = CreateObject("ADODB.Recordset")
rs.Open Proc, cn, 0, 1, 4
 
'Dump results to file
Do Until rs.EOF
  line = ""
  For i = 0 To rs.Fields.Count - 1
    If Not IsNull(rs.Fields(i).Value) Then
      line = line & ",""" & rs.Fields(i).Value & """"
    Else
      line = line & ","
    End If
  Next 'i
  fout.WriteLine Mid(line, 2)
  rs.MoveNext
Loop
 
'Clean up
out "#[EoS]#"
rs.Close
cn.Close
fout.Close
 
Sub out(s)
  On Error Resume Next
  WScript.StdOut.WriteLine s
End Sub

数据库sql题目讲解

通过5个面试题的讲解,教会大家等值关联,分组查询,行转列,列转行,日期转换、自定义函数,执行计划分析,组内排序,函数的嵌套使用
  • 2017年04月09日 22:26

用 VBScript 的 ADODB 连接 MySQL 数据库

Step#1, Download MySQL Connector ODBC from Offical Web Site Navigate to http://dev.mysql.com/downloa...
  • wxqee
  • wxqee
  • 2013-08-15 20:52:35
  • 8497

VBScript测试SQL Server 2005数据库连接

Dim conn Set conn = CreateObject("ADODB.Connection") conn.connectionString = "Provider = SQLOLEDB;...
  • tastelife
  • tastelife
  • 2012-03-17 12:52:42
  • 1296

◎Vbs脚本编程简明教程之十六——访问ADO数据库

ADO是Microsoft提供和建议使用的新型数据访问接口,它是建立OLEDB之上的一个抽象层。微软公司在操作系统中默认提供了 Access 的 ODBC 驱动程序以及 JET 引擎,一、对ADO对象...
  • jinghaianlange
  • jinghaianlange
  • 2007-07-16 17:22:00
  • 2062

Vbscript获取数据库结构类(修正版)

ADOX操作类,用ADOX获取数据库结构 制作人: 刘晓逸
  • liuxiaoyi666
  • liuxiaoyi666
  • 2006-12-20 19:42:00
  • 2377

vbscript连接操作mysql

vbscript连接操作mysql 给出一段非常简单的vbscript操作mysql的脚本代码,连接其它数据库类似: strConn="driver={mysql odbc 5.1 driver}...
  • xifeijian
  • xifeijian
  • 2013-02-27 17:21:46
  • 3597

SQL Server 验证身份证合法性函数(使用VBScript.RegExp)

-- 建立正则表达式测试函数 CREATE FUNCTION dbo.RegExpTest ( @source VARCHAR(5000), --需要匹配的源字符串...
  • wzy0623
  • wzy0623
  • 2016-12-27 15:09:49
  • 559

VBScript 连接Oracle和SQL Server

VBScript在Windows平台是相当强大的,例如可以连接数据库执行一些操作 连接Oracle Dim DB  Dim isSQL Dim userName Dim userOwner ...
  • liumengcheng
  • liumengcheng
  • 2013-06-29 00:25:04
  • 1327

连接SQL数据库基于VBS

class Db    private res,conn    '初始化函数    Private sub Class_Initialize()            Dim strcon      ...
  • lb245557472
  • lb245557472
  • 2016-03-02 17:12:24
  • 420

VBScript 访问SQL数据库

Untested, as I don't have SQL Server Dim cn, rs Dim fout Dim i Dim line Const Server  = "yourSe...
  • meizihan0623
  • meizihan0623
  • 2011-10-17 23:56:51
  • 557
收藏助手
不良信息举报
您举报文章:VBScript 访问SQL数据库
举报原因:
原因补充:

(最多只允许输入30个字)