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、释放数据库对象。