Discussion :

[battit64000]

Bonjour je novice et j'aimerais inserer des enregistrement dans une base oracle.
J'ai reussi à me connecter à la base inserer des valeurs dans ma table depuis deux combo mais je ne peux inserer que des chiffres (integer) si quelqu'un peut m'aider cela ne doit pas etre grand chose mais la je saiche

mon code VB (Visual basic 2005 express)

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
42
43
44
45
46
47
48
49
50
51
52
53
 
Private Sub connection_oracle()
        Try
            Dim oradb As String = "Data Source=(DESCRIPTION=" _
                   + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.103.14)(PORT=1521)))" _
                   + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=PPIFC)));" _
                   + "User Id=ic;Password=icic;"
            Dim conn As New OracleConnection(oradb)
 
            conn.Open()
 
            Dim cmd As New OracleCommand
            Dim toto As Char
            Dim toto2 As Char
            toto = CChar(TextBox1.Text)
            toto2 = CChar(TextBox2.Text)
            cmd.Connection = conn
            cmd.CommandText = "INSERT INTO PP_UTI (NOM_UTI,PRENOM_UTI) VALUES (" + Toto + "," + toto2 + ")"
            cmd.CommandType = CommandType.Text
            cmd.ExecuteNonQuery()
            'Dim dr As OracleDataReader = cmd.ExecuteReader()
            'While dr.Read()
            'ListBox1.Items.Add("Le Nom " + dr.Item(0) + _
            '                  " est à " + dr.Item("PRENOM_UTI"))
            'Attention au signe pour les requêtes paramétrées sous Oracle
 
 
 
 
 
        Catch ex As OracleException ' intercepte seulement les erreurs Oracle
            Select Case ex.Number
                Case 1
                    MessageBox.Show("Insertion ou MAJ impossible car la clé primaire dupliquée.")
                Case 12545
                    MessageBox.Show("La Base de Données n'est pas disponible.")
                Case Else
                    MessageBox.Show("Erreur de Base de Données : " + ex.Message.ToString())
            End Select
 
 
 
        End Try
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connection_oracle()
    End Sub
 
 
End Class

ma table oracle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
CREATE TABLE PP_UTI
(
  ID_UTI      NUMBER                            NOT NULL,
  NOM_UTI     CHAR(20 BYTE)                     NOT NULL,
  PRENOM_UTI  CHAR(20 BYTE)                     NOT NULL
)

[battit64000]

personne peut m'aider!!!

[SaumonAgile]

Utilise des paramètres SQL.

[Aspic]

Utilise des paramètres SQL.

C'est par ici :
http://webman.developpez.com/article...rameter/vbnet/

PS : La fonction recherche ca existe... cette question très récurrente a du etre abordée au moins 10 fois en quelques mois !!