Connect to AS400 using .NET

前端 未结 7 2166
再見小時候
再見小時候 2020-12-12 19:39

I am trying to build a .NET web application using SQL to query AS400 database. This is my first time encountering the AS400.

What do I have to install on my machine

7条回答
  •  醉话见心
    2020-12-12 20:03

    I'm using this code and work very good for me!

      Try
            Dim sqltxt As String = "SELECT * FROM mplib.pfcarfib where LOTEF=" & My.Settings.loteproceso
            dt1 = New DataTable
            Dim ConAS400 As New OleDb.OleDbConnection
            ConAS400.ConnectionString = "Provider=IBMDA400;" & _
            "Data Source=192.168.100.100;" & _
            "User ID=" & My.Settings.usuario & ";" & _
            "Password=" & My.Settings.contrasena
            Dim CmdAS400 As New OleDb.OleDbCommand(sqltxt, ConAS400)
            Dim sqlAS400 As New OleDb.OleDbDataAdapter
            sqlAS400.SelectCommand = CmdAS400
            ConAS400.Open()
            sqlAS400.Fill(dt1)
            grid_detalle.DataSource = dt1
            grid_detalle.DataMember = dt1.TableName
        Catch ex As Exception
            DevExpress.XtraEditors.XtraMessageBox.Show("Comunicación Con El AS400 No Establecida, Notifique a Informatica..", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Close()
        End Try
    

提交回复
热议问题