vbscript查詢sql
『壹』 如何使用 VBScript 修改 sql Server 服務高級屬性
代碼示例列出了運行在計算機上的 SQL Server 實例及其版本。列出SQL Server 的已安裝實例的名稱和版本在文本編輯器（如 Microsoft 記事本）中，打開一個新文檔。復制採用此過程的代碼，並用 .vbs 擴展名保存該文件。此示例名為 test.vbs。連接到 WMI 提供程序的實例，以便使用 VBScript GetObject 函數進行計算機管理。此示例連接到名為 mpc 的遠程計算機，但在連接本地計算機時省略了計算機名稱 winmgmts:root\Microsoft\SqlServer\ComputerManagement。有關 GetObject 函數的詳細信息，請參閱 VBScript 參考。使用InstancesOf 方法枚舉一組服務。還可以使用簡單的 WQL 查詢和 ExecQuery 方法代替 InstancesOf 方法枚舉這些服務。使用ExecQuery 方法和 WQL 查詢檢索 SQL Server 的已安裝實例的名稱和版本。保存該文件。示例set wmi = GetObject("WINMGMTS:\\.\root\Microsoft\SqlServer\ComputerManagement10") for each prop in wmi.ExecQuery("select * from SqlServiceAdvancedProperty where SQLServiceType = 1 AND PropertyName = 'VERSION'") WScript.Echo prop.ServiceName & " " & prop.PropertyName & ": " & prop.PropertyStrValue next
『貳』 vbs連接sql server資料庫,利用sql語句查詢數據,sql語句中如何使用group by語句,求告知,謝謝
sql="select 欄位1,count(欄位2) from table group by 欄位1"
rs.open sql ,conn,1,3
『叄』 vbscript 連接sql資料庫
你這個ConnStr = "User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & 這種方式需要配置數據源的吧？？？這是ODBC的連接方式，要在控制面板--管理工具--ODBC新增個SQL 的 數據源才行呢。 ADD---SQL SERVER----一步一步填上啊。
這種連接方式過時了。
下面的
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
你的Server.MapPath地方有這個存在的文件么？
『肆』 SQL如何一次查詢多個語句
RS.OPEN SQL,CONN,A,B
SQL就是連接的查詢字元串
A: ADOPENFORWARDONLY(=0) 只讀,且當前數據記錄只能向下移動
ADOPENKEYSET(=1) 可讀寫,當前數據記錄可自由移動
ADOPENDYNAMIC(=2) 可讀寫,當前數據記錄可自由移動,可看到新增記錄
ADOPENSTATIC(=3) 只讀,當前數據記錄可自由移動
B: ADLOCKREADONLY(=1) 預設鎖定類型，記錄集是只讀的，不能修改記錄
ADLOCKPESSIMISTIC(=2) 悲觀鎖定，當修改記錄時，數據提供者將嘗試鎖定記錄以確保成功地編輯記錄。只要編輯一開始，則立即鎖住記錄。
ADLOCKOPTIMISTIC(=3) 樂觀鎖定 ，直到用Update方法提交更新記錄時才鎖定記錄。
ADLOCKBATCHOPTIMISTIC(=4) 批量樂觀鎖定，允許修改多個記錄，只有調用UpdateBatch方法後才鎖定記錄。
當不需要改動任何記錄時，應該使用只讀的記錄集，這樣提供者不用做任何檢測。對於一般的使用，樂觀的鎖定可能是最好的選擇，因為記錄只被鎖定一小段時間， 數據在這段時間被更新。這減少了資源的使用。
『伍』 如何使用VBScript訪問ORACLE資料庫並查詢一張表
如何使用VBScript訪問ORACLE資料庫並查詢一張表
不知道你用的什麼資料庫，權且當作SQL Server
private void showdata()
{
try
{
string selectsql = @"select * from [user]"; //select語句，修改下，應該不難吧
SqlCommand cmd = new SqlCommand(selectsql, conn); //conn就是創建的SqlConnection實例，你如果用到資料庫，應該有創建
cmd.CommandType = CommandType.Text;
string info = String.Empty; //表結果
SqlDataReader odr = cmd.ExecuteReader();
while(odr.Read())
{
info = odr[0].ToString() + " " + odr[1].ToString() + "\n";
//具體每行有幾列數據，就添加到n-1，0是第一列，你應該也能修改，可以在個數據之間加個空格，以及行末加個回車，自己改。。。
}
infoTxt.Text = info; //將info顯示到你說的文本框中，infoTxt為文本框的名稱，你應該也可以看懂
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
}
//將函數體部分放入到你的按鈕click事件中就可以了
『陸』 ASP+VBScript+sql編寫多個篩選條件篩選數據的代碼，急求，解決問題再追加分數，謝謝~s
1、建立前台表單：<select name="snian">...</select> <select name="syue">...</select> <select name="score1">...</select> <select name="score2">...</select>
2、建立查詢語句：sql="select * from [score] where 1=1"
if request("snian") then sql=sql&" and snian='"&snian&"'"
if request("syue") then sql=sql&" and syue='"&syue&"'"
if request("score1") then sql=sql&" and schengji>'"&score1&"'"
if request("score2") then sql=sql&" and schengji<'"&score2&"'"
3、執行唄：rs.open sql,conn,1,1
i=1
while not rs.eof
%>
<%=i%>、這里輸出你要的數據
<%
rs.movenext
wend
rs.close
『柒』 在vbscript腳本中，access資料庫的sql語句中的欄位名如果來自網頁中，該怎麼寫sql語句
將單選按鈕的值改一下，一個value="LDuty"， 一個value="MLDuty"
radio=request.from("radio")
Duty=request.form("Duty")
sql="select "&radio&" From [表名] where Duty='"&Duty&"'"
set rs=conn.execute(sql)
response.write("您的工資是："&rs(0))
rs.close
set rs=nothing
『捌』 VBScript鏈接資料庫後如何執行查詢,插入,刪除,修改語句要例子......謝謝了
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection") conn.open strconn //Sqlset adocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
"database=資料庫名;"
//insert Set rs = Server.CreateObject("ADODB.Recordset")
sql="insert into Review (ReviewName,ProctID) values ('ww','9787799203249')" rs.open sql,conn,3,3 rs.addnew
rs("reviewname")="ll"
rs.updaters.close
『玖』 一個VBS格式的查找和更改SQL的數據小程序
ASP:
<% @ Language="VBScript" CodePage="936" %>
<%
Dim conn,rs,studentname
Set conn=Server.CreateObject("Adodb.Connection")
conn.ConnectionString="Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data\student.mdb"
conn.Open()
studentname=Request("studentname")
sql="Select * From [students] Where studentname Like '%" & studentname & "%'"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open(sql,conn,1,1)
If rs.RecordCount>0 Then
Response.Write(studentname & "的語文成績為：" & rs("語文成績欄位名"))
Response.Write(studentname & "的數學成績為：" & rs("數學成績欄位名"))
Else
Response.Write("很抱歉，" & studentname & "這個學生不在本班。")
End If
rs.Close()
Set rs=Nothing
conn.Close()
Set conn=Nothing
%>