Discussion :

[cyberSpace]

Bonjou à toute la communauté,
j'ai un petit problème, dont la solution doit etre evidente mais malheureusement je ne vois pas.
je voudrais inserer des données dans la table Client à travers mon formulaire mais ça marche pas et aucun message d'erreur. mon 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
 Public Sub InsertClient(ByVal BanqPool As String)
          Dim RequetteInsertClt, RequetteSQL, BanqPool As String
        RequetteInsertClt = "INSERT INTO Client( Id_Clt , Raison_Sociale, Adresse_Clt) values ('" & Me.Text_IdClt.Text & "', '" & Me.Text_RaisonSciale.Text & "','" & Me.TextAdrpostale.Text & "')"
        'connectOracle.Execute(RequetteInsertClt)
        Using connection As New System.Data.OracleClient.OracleConnection(BanqPool)
            Dim command As New OracleClient.OracleCommand(RequetteInsertClt)
            command.Connection = connection
            Try
                connection.Open()
                command.ExecuteNonQuery()
 
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
        End Using
    End Sub

Merci de m'aider

[Gurdil le nain]

Bonjour,

La connexion se fait elle bien ?

As tu essayé de récupérer la requête complète en mode débug et de l'exécuter directement dans Oracle pour voir si elle marche ?

[cyberSpace]

bonjour,
le connexion est bien et j'ai exécuté la requette sous Oracle et j'arrive bien à
insérer des enregistrements. je ne comprend pas.
Merci de m'aider

[Gurdil le nain]

Tu initialise ta chaine de connexion où ?

[Treize_]

Bonjour,

Je ne suis pas sur..

Code :

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

1
2
Using connection As New System.Data.OracleClient.OracleConnection(BanqPool) 
Dim command As New OracleClient.OracleCommand(RequetteInsertClt, connection)

non ?


Treize.

[Gurdil le nain]

Non il fait un :

Code :

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

command.Connection = connection

[Treize_]

C'est vrai.

Enfin ça lui coûte rien d'essayer

[ostenhard]

Bonjour,

Faudrait pas faire un commit ?

Et sinon, il faut utiliser les requêtes paramétrées (=> FAQ)

[cyberSpace]

le message d'erreur est :

Le format de la chaine d'initialisation n'est pas conforme à la chaine de spécification qui débute à l'index 0.

mon message d'erreur vient du code suivant marqué en orange :

Code :

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

Using connection As New System.Data.OracleClient.OracleConnection(BanqPool)

j'ai du mal à le comprendre!!!

Merci

[Treize_]

Qu'est ce que tu as mis comme chaîne de caractère dans "banqPool" ?

A mon avis il y a des chances pour que l'erreur provienne de ce string.

[cyberSpace]

oui,effectivement je ne renseigne pas BanqPool quand j'appel ma fonction à l'execution.

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
Public Class Nouveau_Client
 
    Dim RequetteInsertClt, RequetteSQL, BanqPool As String
    Dim Ex As Integer=0
    Public Sub InsertClient(ByVal BanqPool As String)
 
        If ((Me.IdClt.Text = "") Or (Me.Text_RaisonSciale.Text = "") Or (Me.TextAdrpostale.Text = "")) Then
            MsgBox("Attention !!! Veuillez remplir tous les champs du formulaire", MsgBoxStyle.OkOnly, Title:="Inscription des Clients")
        Else
 
            RequetteInsertClt = "INSERT INTO Client( Id_Clt , Raison_Sociale, Adresse_Clt) values ('" & Me.Text_IdClt.Text & "', '" & Me.Text_RaisonSciale.Text & "','" & Me.TextAdrpostale.Text & "');COMMIT /"
            'connectOracle.Execute(RequetteInsertClt)
            Using connection As New System.Data.OracleClient.OracleConnection(BanqPool)
                Dim command As New OracleClient.OracleCommand(RequetteInsertClt)
                command.Connection = connection
                Try
                    connection.Open()
                    Ex = command.ExecuteNonQuery()
                    If Ex <> 0 Then
                        MsgBox("Client ajouté avec success !!!", MsgBoxStyle.OkOnly, Title:="Inscription des Clients")
                    End If
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try
            End Using
 
 
        End If
 
    End Sub 
End Class

[cyberSpace]

j'ai trouvé la solution.
je fais un clic droit sur la base de données et je recupère les informations du connection String et j'ai renseigné la chaine de connection dans mon code.
Merci.