djmic
Messages postés70Date d'inscriptionmardi 25 mars 2008StatutMembreDernière intervention 9 juillet 2010
-
17 avril 2008 à 12:15
DevLama
Messages postés356Date d'inscriptionmercredi 13 avril 2011StatutMembreDernière intervention18 novembre 2021
-
4 nov. 2011 à 14:46
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 (" & position & ",'" & TbMarque.Text & "','" & TbModele.Text & "','" & TbCarrosserie.Text & "','" & carburant & "'," & kilometrage & "," & prix & "," & NudPlaces.Value & "," & NudPortes.Value & "," & puissance & ",'" & boite & "','" & chemin & "')"
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
djmic
Messages postés70Date d'inscriptionmardi 25 mars 2008StatutMembreDernière intervention 9 juillet 2010 17 avril 2008 à 13:40
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.
DevLama
Messages postés356Date d'inscriptionmercredi 13 avril 2011StatutMembreDernière intervention18 novembre 202110 4 nov. 2011 à 14:32
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
DevLama
Messages postés356Date d'inscriptionmercredi 13 avril 2011StatutMembreDernière intervention18 novembre 202110 4 nov. 2011 à 14:41
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