Tag: ibm midrange

Dim myConn As ADODB.Connection

我正在尝试几件事情,其中​​之一是将excel工作簿连接到AS400,以便在我们的系统中获得对部件号的描述,但试图保持连接处于打开状态,或者至less在工作簿closures之前。 有没有人有什么build议? Public Sub GetPartNumbers() Dim myConn As ADODB.Connection Dim myRS As ADODB.Recordset '' Dim selVal As String '' Dim selRow As Integer Set myConn = New ADODB.Connection myConn.ConnectionString = "Provider=SEQUEL ViewPoint;" myConn.Open Set myRS = New ADODB.Recordset

在Excel中连接到AS400以使用2个表中的数据更新2个工作表?

我有一个Excel工作簿与几个工作表。 我需要连接到AS400,并将其设置到用户单击刷新时的位置,2个工作表([Feedname]和[Feedprod])用来自400上的2个表的数据更新。 任何人都知道如何做这样的事情?

将YYYYMMDD转换为Excel dd / mm / yy

在这篇文章中, Gert Grenanderbuild议将date字段的格式设置为“yyyy-mm-dd hh:mm:ss”。 在我的SQL调用中,如何使用相同的方法将“YYYYMMDD”转换为“dd / mm / yy”?

如何将数据从ms-access或excel导出到IBM DB2 I-Series数据库?

我有一些访问(和excel)数据,我没有find一个自由而不是真的很难做到这一点…任何帮助? 我有excel和访问2003 *

如何将as400 Spooled文件转换为Excel(XLS)文件

我是新的Java开发400(JT400)。我得到假脱机文件列表,并阅读正常文本。 现在我想将其转换为Excel(XLS)文件。 我试图将AS400假脱机文件转换为Excel(XLS)文件使用Java.but im faild。 任何人都知道如何做到这一点? 我可以直接从as400转换吗? 谁知道如何将这个假脱机文件(或这个文本文件)转换为使用Java的Excel文件? 提前致谢! 我的一个假脱机文件是这样的: 5722WDS V5R3M0 030905 RN IBM ILE RPG XXXXXXXXX/XXXX SSSS 10/01/11 06:19:46 Page 1 Command . . . . . . . . . . . . : CRTBNDRPG Issued by . . . . . . . . . . : XXXXXXXXX Program . . […]

在Excel中转​​换为文本格式

我使用excelmacros从AS400中提取一些数据。 在AS400中,这个特定的列(Ref)显示20100729000078154,但是当我解压到excel时,它将是2.01007E + 16。 我需要高达20100729000078154作为我的最终输出。 这是我用来从AS400中提取信息的macros: Sub Extract() Dim StrSQl As String FromA = Format(Sheet1.Range("B3")) FromB = Format(Sheet1.Range("B4")) FromC = Format(Sheet1.Range("B5")) FromD = Format(Sheet1.Range("B6")) StrSQl = "select Cno,Itno,Ref from test " StrSQl = StrSQl & " where Cno= " & FromA & " and Itno like " & FromB & " and " StrSQl = […]

INNER JOIN OPENROWSET VBA编程?

在SQL编程中,有一个代码:INNER JOIN OPENROWSET在excel工作表中用MSSQL数据库连接表。 我的问题是VBA编程中的代码与MSSQL中的INNER JOIN OPENROWSET具有相同的function,但function是将AS400数据库连接到Excel工作表中。

上传Excel工作表到AS400

我有一个Excel工作簿与多个工作表。 第一个工作表具有用户的login信息,并且有一个button可以上传与AS400中不同表格对应的所有工作表。 工作表名称与AS400表名称相同。 我有这个上传button的代码如下: 码: Dim objConn As New ADODB.Connection, objRs As New ADODB.Recordset Dim WS_Count As Integer Dim I As Integer Dim WS_Name As String objConn.ConnectionString = "DSN=MYAS400;DRIVER=Client Access ODBC Driver (32-bit); " & _ "SYSTEM = <ip>; UID = <uname>;PWD = <pwd>" objConn.Open WS_Count = ActiveWorkbook.Worksheets.Count For I = 2 To WS_Count WS_Name […]

使用来自System i的传输数据进行Excel查询

我正在寻找有关如何使用System i的Excel加载项中的传输数据仅获取等于我的某列中的数据(两组数据都是string)的数据的信息。 不幸的是,我不能仅仅获取System i表的全部内容,因为它包含了Excel中允许的最大值。 谢谢! 有关说明的其他信息: 我试图从iSeries表中获取特定的数据。 如果iSeries中的字段=列A,我希望将这些数据放在列c中。 COLUMN A COLUMN B COLUMN C 100 xxxxx on the iSeries table FIELD 1 = 40 FIELD 2 = ITEMDESC1 FIELD 1 = 100 FIELD 2 = ITEMDESC2 FIELD 1 = 500 FIELD 2 = ITEMDESC3 在这种情况下,它会将ITEMDESC2放入C列,因为FIELD 1 = 100我只需要知道在WHERE子句中是否有使用Data Transfer for System i的方法来执行此操作? 我希望这更清楚

必须将所有AS400 DB2字段名称放到一个表中

我需要创build一个包含AS / 400文件的字段名称和长度的表格,并且必须为Description和值添加额外的列。 例如,一个Orderheader文件将有一个名为“STATUS”的字段,其值可以是OPEN,CLOSE,Held等。 所以首先我需要得到这些字段名称和镜头的输出,如果可能的话进入一个.CSV文件。 目的是让用户input或ITinput描述等,然后像SSRS这样的报告工具可以将这些字段呈现给用户作为前端,用户可以创build报告,即他们可以看到姓名,地址,电话或只是名字。 我想只是保持在Excel中这可能工作,但我也可以创build一个网格与网格,如果需要的话。 或者也许最好输出到XML。