vbs查詢資料庫
這里是我些的模板! 具體你自己修改! 有點基本的VBS工灶沒底就可以了!
==============================================================
dim cn
dim rs
dim row
dim col
dim viewdata '繼承返回的查詢結果 將從這里獲取查詢的返回內容
dim mdbpath '這個是mdb資料庫孫中文件路徑
dim sqlcmd '這里是SQL語句
dim STRsql '返回的查詢結果存放在這個變數里
set cn=CreateObject("ADODB.Connection")
set rs=CreateObject("ADODB.Recordset")
mdbpath="d:\pass.mdb"
cn.Open "DSN=dsnmdb;Uid=;Pwd="
SQLcmd="select * from Pathlist"
rs.Open SQLcmd,cn,,,adCmdText
if rs.bof=false then '則辯山如果查詢結果有返回的則
viewdata=rs.GetRows
STRsql=""
for row=0 to UBound(viewdata,2) '獲取二維數組的長度
for col=0 to UBound(viewdata,1)
strsql=strsql & viewdata(col,row) & " "
next
strsql=strsql & vbcrlf
next
end if
rs.close
cn.close
msgbox strsql
Ⅱ vbs連接上資料庫後，如何查詢數據（在線等）
一般數據查詢返回結果保存在記錄集recordset中，而不是數組array中。
set rs = new recordset
rs.open "select name age from students where userid=0001",,
調用的話，可以用rs.fields("name")等。
Ⅲ vbs讀取sqlite
vbs讀取sqlite方法如下：
根據系統編程指南可知：
1.下載和安裝SQLite ODBC驅動程序。
2.在VBScript代碼脊洞中創建一個ADO連談野凳接對象並打開連接。
3. 創建一個ADO命令對象含旅並執行查詢。
4.處理查詢結果。
VBS是基於Visual Basic的腳本語言。
VBS是基於Visual Basic的腳本語言，全稱是：Microsoft Visual Basic Script Edition。
Ⅳ vbs連接mysql
這是復制來的,我之前做過,確實是需要建立DSN數據源,需要去下載mysql驅動
\一種是在ODBC數據源中建立一個DSN。具體方法是：
1、打開控制面板中的ODBD數據源；
2、選擇系統DSN，添加一個新的DSN驅動程序；
3、選擇MyODBD，出現一個對話框供輸入MySQL：
（1）Windows DSN name：所要建立DSN的名稱；
（2）MySQL Host (name or ip)：MySQL伺服器的名稱或IP地址。一般填LocalHost ；
（3） MySQL database name：需要使用資料庫的名稱。
4、在MySQL管理程序中建立資料庫。以資料庫chunfeng為例，內有user數據表，兩個欄位分別是：username和password，我們可以試著加入幾個記錄：
（1）user：連接資料庫的用戶名。可填root超級用戶；
（2）password：連接資料庫用戶口令。可不填；
（3）Port(if not 3306)：MySQL在伺服器的埠。填默認為3306；
（4）SQL command on connect：使用SQL命令連接資料庫。可不填。
全部填完後按OK保存。
好了，我們來連接資料庫，ASP代碼如下：
<%
strConnection = "dsn=chunfeng;driver={myodbd driver};server=localhost;uid=root;pwd=; database=chunfeng"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
strQuery = "SELECT * FROM user"
Set rs = adoDataConn.Execute(strQuery)
If Not rs.BOF Then
%>
<TABLE>
<TR>
<TD<b>用戶名</b></TD>
<TD><b>口令</b></TD>
</TR>
<%
Do While Not rs.EOF
%>
<TR>
<TD><%=rs("username")%></TD>
<TD><%=rs("password")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
<%
Else
Response.Write("Sorry, no data found.")
End If
rs.Close
adoDataConn.Close
Set adoDataConn = Nothing
Set rsEmailData = Nothing
%>
另一種方法就是把上面ASP代碼第二行代碼改為：
strconnection="DefaultDir=;Driver={myodbc driver};database=chunfeng"
並且無需建立系統DSN，也不需要用戶名和口令。不過不推薦使用這種方法。
Ⅳ 西門子(Siemens)WinCC監控組態軟體怎麼用C或VBS腳本編寫Excel數據報表資料庫查詢
vb能直接操作文件,vbs不能
vb能族納調用API,vbs不能
VB能定義結構體數據,vbs不能
VB能創建界面[窗體],vbs不能
vb需要編譯,vbs不需要
其餘的基本一樣,除個別函數以外.
vbs腳本應用廣泛,word、excel、asp、html還有系統配置都用到它.
vb入門相當簡單，開發視窗兆汪沒程陵悔序，資料庫等應用型程序快捷，方便。
Ⅵ vbs連接sql server資料庫,利用sql語句查詢數據,sql語句中如何使用group by語句,求告知,謝謝
sql="select 欄位1,count(欄位2) from table group by 欄位1"
rs.open sql ,conn,1,3
Ⅶ VBS中關於錯誤的處理程序。
SetoCom=CreateObject("ADODB.Command")
OnErrorResumenext'好像沒有跳轉語句（gotolabel)
SetoCom.ActiveConnection神雹高=conn
oCom.CommandType=1
oCom.CommandTimeout=2
oCom.CommandText=sSQL
IfErr.Number>0Then'所以可以游尺判斷錯誤號來決定調用錯誤處理過程肆猜
handleErr
Err.Clear
EndIf
WScript.Quit
SubhandleErr()
MsgBoxtrue
Endsub
Ⅷ 關於vbs連接oracle資料庫
sql語句中的列表最好不要用漢字和數字組合，將sql中21歲改豎早為num
sql="select count(*) num from xingxi where nianlian='21' "
set resultRecordSet=CreateObject("ADODB.Recordset")
conn.open sql,con, 1,3
msgbox resultRecordSet.Fields("塌纖逗num").Value
這樣就可以彈出結團賣果了
Ⅸ VBS 讀取 SQL2008 資料庫
我知道。。。。
Ⅹ vbs怎樣將word書簽與資料庫中的數據連接
1、首先給出連接資料庫的VB代碼，
2、定義ADO連接對象，
3、定義資料庫連接字元串，
4、獲取資料庫連接字元串，
5、獲取資料庫查詢語句
6、創建資料庫連接對象。
7、利用資料庫連接字元串打開資料庫。
8、執行sql語句並返回對應的結果集。
9、獲得結果集中年齡欄位的值。
10、關閉資料庫。
11、釋放資料庫對象。