精华内容
下载资源
问答
  • 在学习报表,写了一段插入数据的,出现提示“没有为命令对象设置命令”,代码如下,求解ubOnLButtonDown(ByValItem,ByValFlags,ByValx,ByValy)DimstrCon,sSqlDimconn,commDimrTime,Level,...

    在学习报表,写了一段插入数据的,出现提示“没有为命令对象设置命令”,代码如下,求解

    ub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

    Dim strCon, sSql

    Dim conn,comm

    Dim rTime,Level,UserType

    On Error Resume Next

    rtime = Now

    UserType = HMIRuntime.Tags("@CurrentUser").Read

    Level = HMIRuntime.Tags("level").Read

    strCon = "PROVIDER=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;INITIAL CATALOG = CC_study_11_09_08_09_30_02R;DATA SOURCE = XMGB\WINCC"

    sSql = "INSERT INTO MyTable VALUES('"&sdate&"','"&slevel&"','"&UserTyPe&"')"

    Set conn = CreateObject("ADODB.Connection")

    conn.ConnectionString = strCon

    conn.Open

    Set comm = CreateObject("ADODB.Command")

    comm.ActiveConnection = conn

    comm.CommandText = sSql

    comm.execute sSql

    If  Err.number <> 0 Then

    MsgBox "Error#" & Err.Number & "" & Err.Description

    errCleear

    Exit Sub

    Else  '显示连接的状态

    MsgBox   "连接成功!"

    End If

    Set conn = Nothing

    Set comm = Nothing

    End Sub

    顺便问下哪位大哥如果有成熟的报表系统分享一下

    问题补充:

    谢逆行道,改了引号的地方,可以正常存储数据,可是还会弹出一个“变量未定义的框”什么情况啊,求解,我能不能加你QQ啊,

    图片说明:

    83105d4fd9bd73822b7e11b52e280914.png  

    cede22956a1e83334e0cd9698fb6fe9f.png

    悬赏分:15 | 解决时间:2013-03-29 14:56:51 | 提问者: 无影神 - 学长&nbsp&nbsp第2级

    问题ID:94183

    展开全文
  • 要是你想选择自己用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 ''固定单元格的对齐方式,居中

    展开全文
  • vbs从sqlserver数据库导出数据成execl
  • VBS创建数据库

    2014-11-26 15:09:00
    VBS创建数据库 '创建数据库'参数:strDBPath 字符串型 数据库文件的完整路径Sub CreateDataBase(strDBPath)Dim catObjSet catObj = CreateObject("ADOX.Catalog")catObj.Create "Provider=...

    '创建数据库
    '参数:strDBPath 字符串型 数据库文件的完整路径
    Sub CreateDataBase(strDBPath)
    Dim catObj
    Set catObj = CreateObject("ADOX.Catalog")
    catObj.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & strDBPath
    Set catObj = Nothing
    EndSub
    '关于catObj.Create的参数说明,这一串字符串,其中Provider表示数据库的版本,百度搜出来的代码大多数都是Microsoft.Jet.OLEDB.4.0,
    '反正我还知道Microsoft.ACE.OLEDB.12.0是Office 2010 Access的数据库,其他版本我就不清楚了。
    'Data Source 很明显,中文翻译过来就是 数据源,就是数据库的路径了。
    '例子如下:
    CreateDataBase "C:\Test.mdb"

    posted on 2014-11-26 15:09 futrueface 阅读(...) 评论(...) 编辑 收藏

    转载于:https://www.cnblogs.com/futrueface/p/4123306.html

    展开全文
  • 我编写了vbs脚本读取Access数据库,代码如下:Dimpath,ssql,cnn,rst,a,bsetcnn=WScript.CreateObject("ADODB.Connection")setrst=WScript.CreateObject("adodb.recordset")path="d:\student.mdb"cnn....

    我编写了vbs脚本读取Access数据库,代码如下:Dim path,ssql,cnn,rst,a,b

    set cnn=WScript.CreateObject("ADODB.Connection")

    set rst=WScript.CreateObject("adodb.recordset")

    path="d:\student.mdb"

    cnn.connectionstring="driver={Microsoft Access Driver (*.mdb)};dbq=" &path

    cnn.open

    ssql="select * from 学生情况"

    rst.open ssql,cnn

    rst.MoveFirst

    if rst.eof then

    rst.close

    else

    rst.MoveFirst

    do while not rst.eof

    a=rst("学号")

    b=rst("姓名")

    HMIRuntime.Tags("access1").Write a

    HMIRuntime.Tags("access2").Write b

    rst.movenext

    loop

    rst.close

    end if

    为什么在vbs中运行没有问题,但是导入到wincc中就取不到数据呀,请高手指点一下,谢谢!

    最佳答案

    不要使用WScript.CreateObject("ADODB.Connection"),WinCC不存在WScript对象,直接用CreateObject("ADODB.Connection")语句就可以了。

    另外你的do while 语句好像没什么意义啊?变量access1、access2的值总是记录的最后一条。

    提问者对于答案的评价:

    谢谢,我把WScript对象去掉候能行了。上面的代码中do while语句是没有用,我只是想试试能不能取道数据,没有把它删掉。再次谢过!

    展开全文
  • '#######################################################################################'功能:VBS访问SQL数据库dim connset conn=WScript.CreateObject("ADODB.Connection")conn.Open "Driver={SQL server};...
  • VBS连接数据库操作

    千次阅读 2010-09-09 21:47:00
    VBS连接数据库操作
  • " objConnection.Open strConnectionString Case Else MsgBox "输入的数据库类型格式有误" & vbCrLf & "支持的数据库类型格式:ORACLE;DB2;SQL;ACCESS;EXCEL" End Select If (objConnection.State = 0) Then ...
  • VBS 连接WinCC数据库

    2018-06-03 16:19:15
    访问远程数据库服务器,配置数据库用户登录 配置启用TCP/IP,在数据库存储的情况下双击VBS文件直接可以访问数据库
  • 0 tag1.Write 'statements End If 我用的是SQL2008R2,因是初次使用VBS脚本配合wincc,上面是我写的数据写入数据库脚本,可是SQL内部没有我写的数据,是不是缺少创建数据库脚本,有没有详细一点的操作步骤,SQL需...
  • VBS 连接oracleDim CnnDim RstDim strCnnStrCnn="Provider=MSDAORA.1;User ID=loan;Password=loan;Data Source=orcl;Persist Security Info=False"Set Cnn = CreateObject("ADODB.Connection")Cnn.Open strCnn'查看...
  • 描述了 vbs 是则样链接主流关系性数据库,包括oracle sqlserver myseql db2等
  • VBS 访问数据库

    2013-02-17 12:29:08
     MsgBox "输入的数据库类型格式有误" & vbCrLf & "支持的数据库类型格式:ORACLE;DB2;SQL;ACCESS;EXCEL"  End Select    If (objConnection.State = 0) Then  MsgBox "连接数据库失败!"  End If...
  • '数据库连接'Option explicit'Dim cnn,rst,strCnn,str,i'Dim ParamCount,ParamIndex,ParamName,ParamValue'strCnn="Provider=SQLOLEDB.1;Password=Atlas2012;Persist Security Info=True;User ID=sa;Initial Catalog...
  • VBS连接DB2数据库

    2019-10-03 23:56:11
    VBS连接数据库,参考了点资料 '建立连接Dim Cnn '定义数据库连接串 Set Cnn = CreateObject("ADODB.Connection") sql="DSN=*;DATABASE=*;PWD=*;SERVER=*;UID=*"Cnn.ConnectionString = sqlCnn.Open '打开数据库...
  • VBS 连接数据库 - 样例

    2011-05-03 17:02:00
    VBS 连接数据库 - 样例 例程1: Public strConn As StringPublic connPublic rsPublic xxPublic Sub Workbook_Open()strConn = "DSN=testdatabase;UID=;password="Set conn = CreateObject("ADODB...
  • Dim adoConn '定义ADO连接对象 Dim ConnectionStr '定义数据库连接字符串 'ConnectionStr="DSN=mysql;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306" '"driver={mysql odbc 5.1 driver};server=192....
  • vbs批量分离数据库 SQLServer 2008,数据库名称数组名称、服务器名称需要根据实际情况赋值 VBS文件直接执行
  • VBS连接数据库代码

    2012-03-23 16:14:42
     MsgBox "输入的数据库类型格式有误" & vbCrLf & "支持的数据库类型格式:ORACLE;DB2;SQL;ACCESS;EXCEL"  End Select    If (objConnection.State = 0) Then  MsgBox "连接数据库失败!"  ...
  • VBS查询数据库然后写入到文本文件

    千次阅读 2014-04-14 11:09:19
    VBS访问数据库并执行查询或存储过程,然后把结果输出到文本文件。
  • 新建一个wincc项目,想要在其后台数据库中间建立表格,通过VBS脚本对该数据库进行读写操作,该如何做?佳答案Dimconnstrconnstr="Provider=SQLOLEDB.1;PersistSecurityInfo=False;InitialCatalog=CC_JZX_WINC_13_03_...
  • WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL。 查询SQL数据库,将...
  • '查询语句 Dim strSQL '结果集行数 Dim RsCount Set objConnection = ...'wincc运行数据库 strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Dat...
  • VBS访问SQL数据库

    2011-05-03 16:56:00
    VBS访问SQL数据库 '#######################################################################################'功能:VBS访问SQL数据库 dim conn set conn=WScript.CreateObject("ADODB.Co...
  • 新手问题:vbs连接数据库

    千次阅读 2017-01-08 16:42:04
    我换用vbs返回为空了,不知道为什么不行???:   Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=SQLNCLI;Server=192.168.123.39;Database=dbcar;UID=sa;PWD=123" Set rs =...
  • WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL Wincc作为西门子可视化系统,可以用于数据追溯功能。本文将讲述PLC设备数据存储到SQL数据库,并用于日后查询与导出。 查询SQL数据库,将数据...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 576
精华内容 230
关键字:

vbs数据库