首页 > 解决方案 > 如何将搜索结果写入文本文件或将其加载到 SUD 或 GUI 上的表中?

问题描述

我正在尝试将结果显示在 GUI 或 SUD 中的表上,这是我在查询数据库时得到的。我将结果存储在一个对象上。当尝试使用现有代码显示在表格中时,由于某种原因它不起作用,所以我正在考虑将它写入文本文件并像现有代码那样从那里读取它。

GlobalDim("NEWT,CheckCalLimits,CalFileName,DefFileNm")
NEWT = CLng(NEWT)

Dim myConn
Dim myCommand
Dim RS

Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=FWATRGSQLVCL2;Initial Catalog=calsample;user id ='sampleUser';password='sample@1'"

Set myConn = CreateObject("ADODB.Connection")
Set myCommand = CreateObject("ADODB.Command" )

myConn.Open DB_CONNECT_STRING
Set myCommand.ActiveConnection = myConn

myCommand.CommandText = "SELECT [heid],[zvalue],[limit],[type],[xchannel],[xvalue],[ychannel],[yvalue],[class],[descrip] FROM [calsimple].[dbo].[Req_Simpledata] where hwid= "&NEWT&""

标签: vbscript

解决方案


推荐阅读