Connectez-vous à AS400 à l'aide de .NET

Question

J'essaie de créer une application Web .NET en utilisant SQL pour interroger la base de données AS400. C'est la première fois que je rencontre l'AS400.

Que dois-je installer sur ma machine (ou sur le serveur AS400) pour me connecter? (IBM iSeries Access pour Windows ??)

Quels sont les composants de la chaîne de connexion?

Où puis-je trouver des exemples de codes lors de la création de la couche d'accès aux données à l'aide de commandes SQL?

Merci.

Answer 1

Vous avez besoin de l'AS400 .Net fournisseur de données. Vérifier ici: http://www-03.ibm.com/systems/i/software/access/windows/dotnet/index.html

Pour des exemples de chaîne de connexion, vérifiez ici: http://www.connectionstrings.com/as-400

Aussi, découvrez le redbook pour des exemples de code et de prise en main. http://www.redbooks.ibm.com/redbooks/pdfs/sg246440.pdf

Answer 2

Installez le IBM i Access for Windows . Pas libre

Référer les DLL suivantes dans le projet

• IBM.Data.DB2.iSeries.dll
• Interop.cwbx.dll (si la file d'attente de données est utilisée)
• Interop.AD400.dll (si la file d'attente de données est utilisée)

Accès aux données

   using (iDB2Command command = new iDB2Command())
        {
            command.Connection = (iDB2Connection)_connection;
            command.CommandType = CommandType.Text;
            command.Parameters.AddWithValue(Constants.ParamInterfaceTransactionNo, 1);
            command.CommandText = dynamicInsertString;
            command.ExecuteScalar();
        }
 

Chaîne de connexion

 <add name="InterfaceConnection" 
connectionString="Data Source=myserver.mycompany.com;User ID=idbname;Password=mypassxxx;
Default Collection=ASIPTA;Naming=System"/>
 

Answer 3

J'utilise ce code et fonctionne très bien pour moi!

   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
 

Answer 4

Consultez http://asna.com/us/ car ils disposent d'outils de développement fonctionnant avec SQL et l'AS400.