VB.Net et oracle

Version imprimable

VB.Net et oracle

Voilà, je suis en stage et je dois me connecter à Oracle via un programme réalisé en vb.net. J'utilise le code ci-dessous :

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
Public Function connect_oracle(ByVal User As String, ByVal Password As String, ByVal host As String) As Boolean
        Dim A, B, C As Object
        Dim oradb As Object
        ' oradb = "Provider=MSDAORA.1," & _
        '            " User ID='" & User & "',Password='" & Password & "'," & _
        '          " Data Source='" & host & "'"
        A = LireINI("taille", "cle1")
        B = LireINI("taille", "cle2")
        C = LireINI("taille", "cle3")
 
        oradb = "Data Source=" & A & " ;User Id=" & B & ";Password= " & C
        Dim conn As New OracleConnection()
        conn.ConnectionString = oradb
        conn.Open()
 
          Try
        Dim sql As String = "INSERT INTO PROCESSTRG.Trace(USR,USERNAME,ACTION,WRKID,DATE) VALUES ('cabo','quentin','essai','1','26/01/2008');"
        Dim cmd = New OracleCommand(sql, conn)
        cmd.Connection = oradb
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader
        dr = cmd.ExecuteReader()
        While dr.Read
            MsgBox("Nom: " + dr.GetString(0))
        End While
        Catch ex As Exception ' intercepte toutes les erreurs
       MessageBox.Show(ex.Message.ToString())
 
        Finally
        conn.Close()
        End Try
 
    End Function

Et je recois le message d'erreur suivant :
:oops:"Method invocation failed because 'Public Property Connection() As Oracle.DataAccess.Client.OracleConnection' cannot be called with these arguments:
Argument matching parameter 'value' cannot convert from 'String' to 'OracleConnection'.":oops:

Je ne comprends pas mon erreur pourriez-vous m'aider

Merci d'avance:bug:

28/02/2008, 10h44
SaumonAgile

Supprime cette ligne :

Code:

cmd.Connection = oradb

Elle ne sert à rien, la connexion est déjà affectée à la commande dans le constructeur de la commande.
28/02/2008, 12h51
quentincabo

merci

Merci de ta reponse j'ai réussi à trouver comment lire les données de la table oracle grâce à ceci si cela peut aider quelqu'un:

Dim A, B, C As Object
Dim oradb As Object
'oradb = " User ID='" & User & "',Password='" & Password & "'," & _
' " Data Source='" & host & "'"

A = LireINI("taille", "cle1")
B = LireINI("taille", "cle2")
C = LireINI("taille", "cle3")

oradb = "Data Source=" & A & " ;User Id=" & B & ";Password= " & C
Dim conn As New OracleConnection(oradb)
conn.Open()

Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select USR from PROCESSTRG.Trace"
cmd.CommandType = CommandType.Text

Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
MsgBox(dr.Item("USR"))

conn.Dispose()