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
%>