VB.net Ajout de données dans une table

Version imprimable

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:

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

21/04/2011, 09h11
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 ?
21/04/2011, 10h16
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
21/04/2011, 10h32
Gurdil le nain

Tu initialise ta chaine de connexion où ?

Bonjour,

Je ne suis pas sur..

Code:

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

non ?

Treize.

21/04/2011, 10h36
Gurdil le nain

Non il fait un :

Code:

command.Connection = connection
21/04/2011, 11h05
Treize_

C'est vrai.

Enfin ça lui coûte rien d'essayer ;)
21/04/2011, 11h48
ostenhard

Bonjour,

Faudrait pas faire un commit ?

Et sinon, il faut utiliser les requêtes paramétrées (=> FAQ)
21/04/2011, 12h07
cyberSpace

message d'erreur

le message d'erreur est :

Citation:

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:

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

j'ai du mal à le comprendre!!!

Merci
21/04/2011, 13h30
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.

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

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
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

26/04/2011, 12h33
cyberSpace

Connection String

j'ai trouvé la solution.:ccool:
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. :ccool: