精华内容
下载资源
问答
  • VBS查询数据库然后写入到文本文件

    千次阅读 2014-04-14 11:09:19
    VBS访问数据库并执行查询或存储过程,然后把结果输出到文本文件。
    


    TextExportFile = "sExportFile.txt"
    
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=FILENAME.mdb; jet oledb:database password=abcdef"
    'Here the strSQL can be a SQL sentense or a Stored procedure
    strSQL = "execute psv_main_clone"
    
    rs.Open strSQL, cn, 3, 3
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateTextFile(TextExportFile, True)
    a = rs.GetString
    
    f.WriteLine a
    f.Close
    
    
    展开全文
  • 要是你想选择自己用vbs实现这个要求,需要弄清楚三个问题:1、怎么用vbs连接数据库2、怎么查询变量归档3、怎么用vbs操作控件第一个问题主要是写好连接字符串,可以看书或者在网上搜教程,很简单。第三个问题网上也有...

    要是你想选择自己用vbs实现这个要求,需要弄清楚三个问题:

    1、怎么用vbs连接数据库

    2、怎么查询变量归档

    3、怎么用vbs操作控件

    第一个问题主要是写好连接字符串,可以看书或者在网上搜教程,很简单。

    第三个问题网上也有不少,可以看看控件的方法的注释,但是一般的对控件操作分两种,一是调整控件格式,二是读写数据。

    如果表格格式固定,可以直接编辑属性,不用写代码,如果是动态的格式,常用的属性可以参考我下面的代码。

    读写操作就是一句话,就是ADO回来的数写进表格。

    GName.TextMatrix(行号,列好) = adoRecordset("字段").value

    表格调整:

    dim GName

    set GName = HMIRuntime.screen(画面名).Screenitems(表格名)

    dim Fstring

    Fstring = “列标题1|列标题2|列标题3”

    GName.AllowUserResizing = 1

    GName.ScrollBars = 2 ''有无滚动条,横1竖2无0全3

    GName.ScrollTrack = True ''滚动条随着改变还是结束后改变,true为随着变

    Dim rNum

    Dim ii

    rNum = 1

    For ii = 1 To Len(FString) Step 1

    If Mid (FString,ii,1) = "|" Then

    rNum = rNum + 1

    End If

    Next

    GName.Cols = rNum ''列数

    GName.Rows = RowsNum  ''行数

    GName.FormatString = Fstring ''列写列标题

    GName.FixedRows = 1 ''固定行数

    GName.FixedCols = 0 ''固定列数

    GName.WordWrap = True  ''允许自动换行

    GName.ColAlignment = 4 ''非固定单元格的对齐方式,居中

    GName.ColAlignmentFixed = 4 ''固定单元格的对齐方式,居中

    展开全文
  • WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL。 查询SQL数据库,将...

    博途WINCC RT Professional通过VBS脚本链接数据库查询数据库显示并导出EXCEL

    Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述博途WINCC RT Professional通过VBS脚本链接数据库查询数据库显示并导出EXCEL。

    1. 查询SQL数据库,将数据显示到MSFlexGrid控件上
      打开数据库:
    Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persis Security Info=False;Initial Catalog=Data;Data Source=.\WINCC"
    Set conn=CreateObject("ADODB.Connection")
    conn.ConnectionString=Con
    conn.CursorLocation=3
    conn.Open

    接下来需要根据自己需求,编写SQL查询语句,涉及各种查询条件
    执行SQL语句:

    Set oRs=CreateObject("ADODB.Recordset")
    Set oCom=CreateObject("ADODB.Command")
    Set oCom.ActiveConnection=conn
    oCom.CommandType=1
    oCom.CommandText=sSql
    Set oRs=oCom.Execute

    其次将查询到的数据填写到MSFlexGrid控件上,表格的宽高可以通过脚本定义

    MSFlexGrid1.TextMatrix(i,0)=oRs.Fields(0).value
    MSFlexGrid1.TextMatrix(i,1)=oRs.Fields(1).value
    

    在这里插入图片描述
    2. 查询SQL数据库,将数据导出EXCEL
    导出EXCEL与显示数据到MSFlexGrid控件上基本类似,也是先进行查询,唯一区别是需要设置EXCEL模板,填充对象为EXCEL。
    打开EXCEL模板:

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible=False
    objExcelApp.Workbooks.Open "D:\模板\record.xlsx"
    `

    最后将EXCEL另存为:

    objExcelApp.DisplayAlerts=False
    objExcelApp.activeworkbook.saveas excel_name
    objExcelApp.Workbooks.Close
    objExcelApp.Quit
    Set objExcelApp=Nothing

    在这里插入图片描述

    在这里要感谢某卖家给予的帮助:https://item.taobao.com/item.htm?spm=a2oq0.12575281.0.0.50111debAj2cJd&ft=t&id=587359488903

    展开全文
  • WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述PLC设备数据存储到SQL数据库,并用于日后查询与导出。 查询SQL数据库,将数据...

    **

    WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL

    Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL。

    1. 查询SQL数据库,将数据显示到MSFlexGrid控件上

      打开数据库:

    Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persis Security Info=False;Initial Catalog=Data;Data Source=.\WINCC"
    Set conn=CreateObject("ADODB.Connection")
    conn.ConnectionString=Con
    conn.CursorLocation=3
    conn.Open
    

    接下来需要根据自己需求,编写SQL查询语句,涉及各种查询条件
    执行SQL语句:

    Set oRs=CreateObject("ADODB.Recordset")
    Set oCom=CreateObject("ADODB.Command")
    Set oCom.ActiveConnection=conn
    oCom.CommandType=1
    oCom.CommandText=sSql
    Set oRs=oCom.Execute
    

    其次将查询到的数据填写到MSFlexGrid控件上,表格的宽高可以通过脚本定义

    MSFlexGrid1.TextMatrix(i,0)=oRs.Fields(0).value
    MSFlexGrid1.TextMatrix(i,1)=oRs.Fields(1).value
    

    在这里插入图片描述
    2. 查询SQL数据库,将数据导出EXCEL
    导出EXCEL与显示数据到MSFlexGrid控件上基本类似,也是先进行查询,唯一区别是需要设置EXCEL模板,填充对象为EXCEL。

    打开EXCEL模板:
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible=False
    objExcelApp.Workbooks.Open "D:\模板\record.xlsx"
    

    其次将数据填充到EXCEL模板中:

    objExcelApp.Cells(i,1).Value=oRs.Fields(0).value
    objExcelApp.Cells(i,2).Value=oRs.Fields(1).value
    

    最后将EXCEL另存为:

    objExcelApp.DisplayAlerts=False
    objExcelApp.activeworkbook.saveas excel_name
    objExcelApp.Workbooks.Close
    objExcelApp.Quit
    Set objExcelApp=Nothing

    在这里插入图片描述

    在这里要感谢某卖家给与帮助:

    https://item.taobao.com/item.htm?spm=a2oq0.12575281.0.0.50111deblpZrxn&ft=t&id=619025043138

    展开全文
  • '查询语句 Dim strSQL '结果集行数 Dim RsCount Set objConnection = CreateObject("ADODB.Connection") 'wincc运行数据库 strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;...
  • On error resume nextDim oShell,admin,pass,user,db,path,nameadmin="root"pass="gsl"''''''''删除5天前的备份ddir="d:\mysqlbak"set Fso=CreateObject("Scripting.FileSystemObject")set dFol=fso.getfolder(ddir)...
  • vbs脚本文件,枚举了几种连接数据库的方式,使得开发者可以方便的连接任何数据库,查询数据库的信息。
  • Database=数据库名称;uid=sa;pwd=sa的密码;" isSQL = "select * from IoTable where Tag like '%"&tag&"%'" Set objRecordSet = DB.Execute(isSQL) Do While Not objRecordSet.EOF Addr1 =objRecordSet("列名...
  • '数据库连接字符串 Dim strCon '结果集对象 Dim oRs '执行对象 Dim oCmd '查询语句 Dim strSQL '结果集行数 Dim RsCount,IP,Port,PWD,usr,DBName Set oCon = CreateObject("ADODB.Connection")...
  • 20这段时间内news表中字段writer等于“某某人”的所有信息的条数,这个用vbs的代码怎么实现啊? <input type="text" name="textfield2" onFocus="CalendarWebControl.show(this,false,this.value);"> 到 ...
  • 要是时间足够,建议学习以下内容:1,数据库基础,学习建库建表,以及基本的查询操作。如果数据需要处理的话也需要学习一下聚合函数。2,VBS脚本。做数据库的话建议用VBS,学起来和用起来简单一些。主要搞清楚vbs...
  • 这篇文件简单介绍通过WinCC使用VBS数据库增改删查询的功能实现,实际项目中要根据需要进行代码扩展和数据库建表,比如数据的检验、数据库表的主键和索引等。 1. 环境 系统:Windows 10 LTSB2016 WinCC: V7.5 ...
  • 标题为QTP对数据库的操作,其实应该改为QTP/VBS数据库的操作。因为QTP中就是通过vbs完成数据库操作的。以access为例。    通过ADO对数据库访问的步骤如下:  a.创建一个到数据库的 ADO 连接  b....
  • 我用VBS写一条查询字符串, 其中where条件里有一项是日期比较,但数据库里的是时间格式和我想在查询条件里直接加 数据库字段的时间转换函数,但试了多次没有成功,请教下怎么改了? 数据库的时间字段名称是...
  • 万年历查询、手机号码归属地查询、免费在线翻译、手机话费查询、生肖属相查询、黄金价格走势图、股市行情查询、阿拉伯数字译成英文、省市自治区简称、二十四节气表、女性预产期自测、常用电话号码查询、定时关机工具...
  • 因为在研究这货,捣鼓一个月发现自动化功能难以发挥其威力,因此决定当半自动化工具用,第一个想到的就是连接数据库,今后就决定用这货分析数据了,顺便学习下VBS。 代码作用:根据查询语句,在excel中得到需要...
  • Dim WshShellSet WshShell = CreateObject("WScript.Shell")WshShell.run "isqlw -S server -d database -U username -P pass"Set WshShell = Nothing把上面的代码保存成sql.vbs。然后双击就可以直接打开查询分析...
  • 在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Management Studio(SSMS)可以创建自己的...
  • QTP访问数据库

    2012-03-19 11:12:20
    一 、先给一个访问数据库vbs脚本: 使用的时候只需要调用下面标记为红色的三个函数基本就可以了 '@Description获取检索到数据集 '@Documentation查询语句 PublicFunction FillDataTable(ByRef ...
  • 使用VBS,通过ODBC SQL的select语句,查找多个文本内重复的QQ...该资源展示了一种巧妙的方法:将文本当做数据库的表,使用VBS数据库表执行SQL语句。用简单的SQL语句,实现了多个文本复杂逻辑的查询、插入、新建的操作。
  • 在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Management Studio(SSMS)可以创建自己...
  • /data/common.inc.php这个文件存放数据库配置信息,一般可以查询相关关键字的文件,这里可以找到root密码。查找到数据库账号密码后,连接上服务器的数据库。连接数据库: mysql.exe -u账号 -p密码 -hip地址一、启动...
  • 我的第一篇文章说的就是历史数据和报表的问题,做的是用OLEDB连接SQL Server数据库取得Wincc历史数据,但是查询速度很慢。由于Wincc是压缩存储的模式,这种特有的格式,在对应格式写入到MSHG表格里也比较麻烦。 所以...
  • 一 、先给一个访问数据库vbs脚本:使用的时候只需要调用下面标记为红色的三个函数基本就可以了@Description获取检索到数据集@Documentation查询语句Public Function FillDataTable(ByRef selectCommandText) Dim...

空空如也

空空如也

1 2 3 4
收藏数 65
精华内容 26
关键字:

vbs查询数据库