描述不太清楚。

用程式語言或指令碼連線資料庫時，會有這麼一行字串：

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
'檢視是否連線成功，成功狀態值為1
If Cnn.State = 0 Then
    msgbox  "連線資料庫失敗"
	wscript.quit 
End If

strQuery = "SELECT * from komp_sys..node"
Set rs = Cnn.Execute(strQuery)
If Not rs.BOF Then
	Do While Not rs.EOF
		For k = 0 To 5 '迴圈6次
			WriteFile.Write ""&rs(k)
			WriteFile.Write vbTab
		Next
		WriteFile.Write vbCrlf
		rs.MoveNext
	Loop
Else
	wscript.echo "沒有資料"
End If

Cnn.Close
WriteFile.Close

Set Cnn = Nothing
Set fso = Nothing