连接数据库的Provider、Driver等字符串的写法

来源：互联网发布：jquery ajax 遍历json 编辑：程序博客网时间：2024/05/01 12:00

描述不太清楚。

用编程语言或脚本连接数据库时，会有这么一行字符串：

StrCnn="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='Driver=MySQL ODBC 5.3 Unicode Driver;SERVER=10.1.3.133;UID=koa;PWD=koa;DATABASE=koa;PORT=3307'"

或是

ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

本文即说这个字符串如何获得。

一.新建记事本，重命名后缀名为udl

二.双击打开这个文件

记得勾选“允许保存密码”，点击下方“测试连接”，连接通过，即配置正确。

三.用记事本打开该文件

这个文件的第三行，即我们需要的字符串。

四.VBScript连接示例

Set fso = CreateObject("Scripting.FileSystemObject")Set WriteFile = fso.OpenTextFile(DatePart("yyyy",date)&Right("0" & DatePart("m",date), 2)&Right("0"&DatePart("d", date),2)&".txt", 8, True)'连接数据库StrCnn="Provider=SQLOLEDB.1;Password=fsdx123;Persist Security Info=True;User ID=sa;Initial Catalog=msdb;Data Source=10.1.1.50"Set Cnn = CreateObject("ADODB.Connection")Cnn.Open strCnn'查看是否连接成功，成功状态值为1If Cnn.State = 0 Then    msgbox  "连接数据库失败"wscript.quit End IfstrQuery = "SELECT * from komp_sys..node"Set rs = Cnn.Execute(strQuery)If Not rs.BOF ThenDo While Not rs.EOFFor k = 0 To 5 '循环6次WriteFile.Write ""&rs(k)WriteFile.Write vbTabNextWriteFile.Write vbCrlfrs.MoveNextLoopElsewscript.echo "没有数据"End IfCnn.CloseWriteFile.CloseSet Cnn = NothingSet fso = Nothing

参考文档：http://bbs.csdn.net/topics/340055240

0 0