INserer des enregistrement dans base oracle
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:
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:
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
) |
