Discussion :

[quentincabo]

Bonjour,
J'aimerai savoir savoir comment on écrit dans Oracle grâce à un script VB.Net. Il est a remarqué que j'arrive à lire et les données présentent sur la table grâce à un select


Merci d'avance

[quentincabo]

Bonjour,

J'aimerai connaître le script pour utiliser insert into (avec le commit) dans un script VB.Net afin d'ajouter un enregistrement dans ma requete. J'ai déjà établis ma connection grâce au code suivant et ca marche. Puisque j'arrive à lire le user.

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
Dim A, B, C As Object
        Dim oradb As Object
 
        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()

Merci de vos reponses

[quentincabo]

J'ai oublié de précisé que je travaillais sous oracle 9 i.
Désolé et merci d'avance

[orafrance]

Etre débutant ne t'exempt pas :
- deposter dans le bon forum (Débutez)
- utiliser les balises code
- éviter d'ouvrir plusieurs discussions pour le même problème
- faire un recherche sur le forum et le site par exemple : http://xo.developpez.com/tutoriel/dotnet/oracle/odt/ et http://drq.developpez.com/vb/tutoriels/ADO/

[quentincabo]

Bonjour,
désolé, c'est en faisant des erreurs que l'on apprends.

[quentincabo]

Voilà j'ai résolu mon problème, si ça peut aidé les débutant comme moi c'est tant mieux. Le code est le suivant :

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
34
35
36
37
38
39
40
41
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 = "   User ID='" & User & "',Password='" & Password & "'," & _
        '          " Data Source='" & host & "'"
' A la place de LireIni inserez vos mots de passes
        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
        Dim jour, mois, annee, heure, minute, seconde As String
        Dim datenow As String
 
        jour = System.DateTime.Now.Day
        mois = System.DateTime.Now.Month
        annee = System.DateTime.Now.Year
        heure = System.DateTime.Now.Hour
        minute = System.DateTime.Now.Minute
        seconde = System.DateTime.Now.Second
        datenow = jour & "/" & mois & "/" & annee
        Nompc = getName()
        MsgBox(Nompc)
        cmd.CommandText = "INSERT INTO 
'N'oublier pas les guillemets
PROCESSTRG.Trace(""USR"",""USERNAME"",""ACTION"",""WRKID"",""DATE"") Values ('" & User & "','" & Name & "','Test','" & Nompc & "','" & datenow & "') "
        'cmd.AddRowid
        cmd.CommandType = CommandType.Text
 
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        dr.Read()
        'MsgBox(dr.Item("DATE"))
 
        conn.Dispose()
 
    End Function