连接数据库的Provider、Driver等字符串的写法
生活随笔
收集整理的這篇文章主要介紹了
连接数据库的Provider、Driver等字符串的写法
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
描述不太清楚。
用編程語言或腳本連接數(shù)據(jù)庫時,會有這么一行字符串:
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)'連接數(shù)據(jù)庫 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 '查看是否連接成功,成功狀態(tài)值為1 If Cnn.State = 0 Thenmsgbox "連接數(shù)據(jù)庫失敗"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 '循環(huán)6次WriteFile.Write ""&rs(k)WriteFile.Write vbTabNextWriteFile.Write vbCrlfrs.MoveNextLoop Elsewscript.echo "沒有數(shù)據(jù)" End IfCnn.Close WriteFile.CloseSet Cnn = Nothing Set fso = Nothing
參考文檔:http://bbs.csdn.net/topics/340055240
總結
以上是生活随笔為你收集整理的连接数据库的Provider、Driver等字符串的写法的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: python mp3转wav_pytho
- 下一篇: 2015小米暑期实习笔试题_风口的猪-中