IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

VB.Net et oracle


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    229
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2008
    Messages : 229
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 :
    "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'."

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

    Merci d'avance

  2. #2
    Rédacteur
    Avatar de SaumonAgile
    Homme Profil pro
    Team leader
    Inscrit en
    Avril 2007
    Messages
    4 028
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Team leader
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2007
    Messages : 4 028
    Par défaut
    Supprime cette ligne :
    Elle ne sert à rien, la connexion est déjà affectée à la commande dans le constructeur de la commande.
    Besoin d'un MessageBox amélioré ? InformationBox pour .NET 1.1, 2.0, 3.0, 3.5, 4.0 sous license Apache 2.0.

    Bonnes pratiques pour les accès aux données
    Débogage efficace en .NET
    LINQ to Objects : l'envers du décor

    Mon profil LinkedIn - MCT - MCPD WinForms - MCTS Applications Distribuées - MCTS WCF - MCTS WCF 4.0 - MCTS SQL Server 2008, Database Development - Mon blog - Twitter

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    229
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2008
    Messages : 229
    Par défaut 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()

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 13
    Dernier message: 21/04/2006, 15h39
  2. [ADO.Net][C#/Oracle]Comment gérer OracleType.VarChar?
    Par el_poitevin dans le forum Accès aux données
    Réponses: 5
    Dernier message: 30/03/2006, 13h08
  3. [Net*8] oracle wallet manager
    Par sch dans le forum Oracle
    Réponses: 1
    Dernier message: 08/11/2005, 17h07
  4. [ADO.Net][C#/Oracle] Comment utiliser une requête paramètrée ?
    Par kaboume dans le forum Accès aux données
    Réponses: 4
    Dernier message: 05/07/2005, 14h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo