Discussion :

[chuspyto]

bonjour,

j'ai commencé a faire une requete pour remplir une table access mais lors de l'execution il ne se passe rien ,ni message d'erreur ni mise a jour de la table

recherche.text est une textbox

Code :

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

1
2
3
4
5
6
7
8
 Using cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base1.mdb")
            cnn.Open()
            Dim cmd As New OleDbCommand("insert into classe FROM nomtable", cnn)
            cmd.Parameters.Add("classe", System.Data.OleDb.OleDbType.Integer)
            cmd.Parameters("classe").Value = Recherche.Text
 
 
        End Using

merci pour votre aide

[Invité]

Normal vu que t'as pas exécuté la commande. Il va falloir faire appel à la méthode ExecuteReader de ta commande. Grâce à l'instance DataReader renvoyée tu pourras récupérer les données pour remplir ton ComboBox.

[chuspyto]

j'ai utilisé une autre methode mais j'ai un message d'erreur qui me specifie qu'il est impossible de trouver la table de destination

Code :

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

1
2
3
4
5
6
7
Dim SQLstr As String
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\visionneur6.mdb")
        cnn.Open()
        SQLstr = "INSERT INTO table1 (Acces) VALUES ('Recherche.Text') "
        Dim cmd As New OleDbCommand(SQLstr, cnn)
 
        cmd.ExecuteNonQuery()

[Invité]

Es-tu sûr que la table table1 existe dans ta base de données ?

[chuspyto]

oui c'est bon car le probleme est resolu pour ma table (erreur de syntaxe)par contre j'ai une erreur que je ne comprends pas:
L'opération doit utiliser une requête qui peut être mise à jour.

[Invité]

L'opération doit utiliser une requête qui peut être mise à jour.

Peut-on avoir le code impliqué stp ?

[chuspyto]

En fait le code est le même que sur le post#3,et l erreur est sur
Cmd.executenonquery()

[_Ez3kiel]

Code :

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

1
2
3
 
        SQLstr = "INSERT INTO table1 (Acces) VALUES ('Recherche.Text') "
)

Je ne pense pas que l'erreur vienne de là, mais ça éviterai que tu ajoutes la chaîne 'Recherche.Text' dans ta BDD. (Et j'ai pas compris le '(Acces)' dans ta requête ...

Code :

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

  SQLstr = "INSERT INTO table1 VALUES ('" & Recherche.Text & "') "

As-tu les droits pour accéder à ta BDD ? Ou n'est-elle pas en lecture seule ?