Ajouter enregistrements à une table : problème

Question

Bonjour à tous,

voilà j'ai un gros gros problème. je dois insérer de nouveaux enregistrement dans ma table, mais rien ne s'ajoute et encore plus bizarre je n'ai pas de message d'erreur.

Est ce que vous voyez quelque chose qui pourrait faire que ca ne marche pas? je suspecte une faute de syntaxe...

merci

 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDb.4.0; Data Source=C:\Documents and Settings\Michaël\Mes documents\Visual Studio 2005\Projects\Projet\location.mdb"
            conn.Open()
            Dim requete As String
            requete = "select TOP 1 idvoiture from voitures ORDER BY idvoiture DESC "
            dtad = New OleDb.OleDbDataAdapter(requete, conn)
            dtad.Fill(ds, "voitures")
            position = (ds.Tables("voitures").Rows(0).Item("idvoiture")) + 1
            requete = "INSERT INTO Voitures values (" &amp; position &amp; ",'" &amp; TbMarque.Text &amp; "','" &amp; TbModele.Text &amp; "','" &amp; TbCarrosserie.Text &amp; "','" &amp; carburant &amp; "'," &amp; kilometrage &amp; "," &amp; prix &amp; "," &amp; NudPlaces.Value &amp; "," &amp; NudPortes.Value &amp; "," &amp; puissance &amp; ",'" &amp; boite &amp; "','" &amp; chemin &amp; "')"
            cmd.CommandText = requete
            dtad2 = New OleDb.OleDbDataAdapter(cmd)
            Try
                dtad2.InsertCommand = cmd
                dtad2.Update(ds, "voitures")
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

lolokun · Answer

Bonjour,


A quoi correspond ton champ position dans la table? Si c'ets la clé primaire, pas besoin de la mentionner dans la requête

Ha et également après le nom de table il faut mentionner les champs à modifier, "INSERT INTO Voitures(chmp1, champ2,...) values(" & position & ",'" & TbMarque.Text & "','" &
TbModele.Text & "','" & TbCarrosserie.Text & "','" &
carburant & "'," & kilometrage & "," & prix & ","
& NudPlaces.Value & "," & NudPortes.Value & "," &
puissance & ",'" & boite & "','" & chemin & "')"

L'expérience, c'est une connerie par jour, mais jamais la même..

djmic · Answer

position correspond à l'id de la voiture. et si je ne dis pas de bêtises normalement les champs sont pas obligés d'être mentionné si tous les champs sont remplis dans le même ordre que dans la table.

je vais essayer cà tout de suite

merci

djmic · Answer

bon bin désolé mais ca marche pas, je sais pas comment celà se fait.

DevLama · Answer

Regard Très bien ta programmation,il ya des chmps  qui ne sont pas specifié exemple : Puissance;puis regard  bien ta connexion,Bon cette mathode est Trop archaique

lolokun · Answer

Bonjour Okosa,

C'est gentil de répondre maintenant, mais arrêtes de déterrer les fantomes cela ne sert à rien depuis le temps... (2008) 


L'expérience, c'est une connerie par jour, mais jamais la même..

DevLama · Answer

Vas dans le Module declare:
Dim Con As New Connection
Dim Recor As New Recorset
Dim SQL As String

Sub Connect(ByVal m As String)
SQL=m
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& App.Path & "\Mabase.mdb"
Recor.CursorLocation=adUseClint
Recor.Open SQl, Con, adOpenDynamic,adLockOptimistic,adCmdText
end Sub

Pour Enregistrer Tu crée un bouton  puis:
 SQL="Insert into nom_dela_Table(NUMERO,NOM) Values ('" & text1 & "', '" & text2 & "')"
Call Connect(SQL)
Con.close



Pour le Structure des données : NUMERO et NOM

NB:Il faut tjrs espacer les & et text .....

DevLama · Answer

Est-ce bon le code?
NB:Ta BDD doit-être au même endroit que ton appli

Ajouter enregistrements à une table : problème

7 réponses

Votre réponse

Discussions similaires