Connexion avec as/400 en vb.net

slt tous le monde

j'ai une chaine de connexion de vb.net a as/400

c'est mon chaine:

Code:

1
2
3
4
5
6
7
  Dim oOleDbConnection As New OleDbConnection
            Dim sConnString As String = "Provider=IBMDA400;" & _
                                         "Password=*******;" & _
                                         "User ID=********;" & _
                                         "Data Source=10.10.10.1;"
            oOleDbConnection = New OleDb.OleDbConnection(sConnString)
            oOleDbConnection.Open()

le problème c'est que quand j'ai exécute ce code le message suivant s'affiche :

http://tryimg.com/u/5fe733e64d.jpg

qu'un a une solution

merci :)

Le message est assez clair, il ne trouve pas la dll indiquée. Tu la références quelque part dans ton projet ?

Bonjour,
Je suis aussi dans un environement ou il y a des AS400. J'ai fait un copier/coller de ton source, mais il ne trouve pas OleDbConnection chez moi... Comment tu fais pour qu'il le trouve ? que je vois si je genere la meme erreur que toi
a+
Jean

pour moi mon probleme a été resolu

merci a tous

+

jean68 il veux que vous import le paquage :

Code:

Imports System.Data.OleDb

+

si vous avez autre probleme envoyé moi un PM

slt jean68

c'est une petit application avec un fichier as/400

http://tryimg.com/u/9be458854b.jpg

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Imports System.Data.OleDb
 
Public Class Form1
    Dim conn As New OleDbConnection
    Dim sConnString As String = "Provider=IBMDA400;" & _
                                    "Password=*****;" & _
                                    "User ID=*****;" & _
                                    "Data Source=10.10.10.1;"
    Dim cmd As New OleDbCommand
 
'insertion
 
    Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            conn = New OleDbConnection(sConnString)
            conn.Open()
            cmd = New OleDbCommand("insert into (Nom de bibliotheque.nom ficheir) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')", conn)
            cmd.ExecuteNonQuery()
            MsgBox("bien Ajouter")
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
        conn.Close()
    End Sub
 
'Affichage
 
    Private Sub Afficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        conn = New OleDbConnection(sConnString)
        Dim requete As String = " SELECT * FROM (Nom de bibliotheque.nom ficheir)  "
        Dim da = New OleDbDataAdapter(requete, conn)
        Dim dts = New DataSet("(Nom de bibliotheque.nom ficheir)")
        da.Fill(dts, "(Nom de bibliotheque.nom ficheir)")
        Dim bdsrc = New BindingSource()
        bdsrc.DataSource = dts.Tables("(Nom de bibliotheque.nom ficheir)")
        DataGridView1.DataSource = bdsrc
    End Sub
 
'modification
    Private Sub Modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            conn = New OleDbConnection(sConnString)
            conn.Open()
            cmd = New OleDbCommand("update (Nom de bibliotheque.nom ficheir)  set test2='" & TextBox2.Text & "',test3='" & TextBox3.Text & "' where test1='" & TextBox1.Text & "'", conn)
            cmd.ExecuteNonQuery()
            MsgBox("bien Modifier")
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
        conn.Close()
    End Sub
 
' Suppression 
    Private Sub Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            conn = New OleDbConnection(sConnString)
            conn.Open()
            cmd = New OleDbCommand("DELETE FROM (Nom de bibliotheque.nom ficheir)  where test1='" & TextBox1.Text & "'", conn)
            cmd.ExecuteNonQuery()
            MsgBox("bien Supprimer")
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
        conn.Close()
    End Sub
End Class

bon courage :)

ne pas oublie te dire merci :) :ccool: