Question

我难以让下面的代码工作我累了我能想到的一切，如果有人可以帮助指出我错过了什么我会非常感激。

我目前能够使用SSIS中的OLE DB源任务连接到服务器，我的连接管理器的设置如下....

提供者：原生OLE DB \ Sysbase OLEDB提供者
OLE DB提供程序：Sysbase OLEDB提供程序
服务器：xx.xx.xx.xx：xxxx
用户名：xxxxxxxx
密码：xxxxxxxx
初始目录：xxxxxxxxx
我也必须在属性中设置ALwaysUseDefaultCodePage = True
这种联系非常完美。

VB.NET代码

Public Sub Main()

    Dim SQLCmd As String
    Dim conSyBase As New OleDb.OleDbConnection("Provider=SQLOLEDB;Server Name=xx.xx.xx.xx;Server Port Address=5000;Initial Catalog=xxxxxxxxxx;User ID=xxxxxxxx;Password=xxxxxxxxx;")


    conSyBase.Open()

    SQLCmd = "Select EID, ENTY, MINDATE From dbo.ITRANS"

    Dim cmdSyBase As New OleDb.OleDbCommand("SQLCmd", conSyBase)
    Dim dbRead = cmdSyBase.ExecuteReader()

    Do
        While dbRead.Read()
            Dim EID As String = dbRead.GetValue(0)
            MsgBox(EID)
        End While
    Loop While dbRead.NextResult()


    conSyBase.Close()
    cmdSyBase.Dispose()
    conSyBase.Dispose()

End Sub

SSIS中的VB.NET连接到Sybase OLEDB Provider并运行Sql Query

0 个答案: