Ajouter un nouvel enreg ds une table depuis VB. URGENt!!
flo
-
21 nov. 2000 à 19:02
developvbdebut Messages postés 476 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 2 juin 2012 - 29 janv. 2005 à 09:47
developvbdebut Messages postés 476 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 2 juin 2012 - 29 janv. 2005 à 09:47
A voir également:
- Ajouter un nouvel enreg ds une table depuis VB. URGENt!!
- Php table - Conseils pratiques -PHP
- Sql ajouter une colonne dans un select - Forum SQL
- Ajouter un cadre a une photo - Forum VB.NET
- Comment ajouter une zone de texte sur canva ✓ - Forum Delphi / Pascal
- Afficher les colonnes d'une table sql ✓ - Forum SQL
4 réponses
Alter Table est pour modifier sa structure je crois.
En fait pour un table aillant deux champs tu devrait utiliser:
Dim RS as Recordset
Dim MyDB as Database
Set RS = MyDB.OpenRecordSet("Table1", dbOpenTable)
RS.AddNew
RS.Fields("Champs1") = Valeur
RS.Fields("Champs2") = Valeur
RS.Update
En fait pour un table aillant deux champs tu devrait utiliser:
Dim RS as Recordset
Dim MyDB as Database
Set RS = MyDB.OpenRecordSet("Table1", dbOpenTable)
RS.AddNew
RS.Fields("Champs1") = Valeur
RS.Fields("Champs2") = Valeur
RS.Update
Par exemple ou faire une requête ajout (UPDATE) en SQL MAIS méthode addnew sur le recorset est plus souple
developvbdebut
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
29 janv. 2005 à 09:47
29 janv. 2005 à 09:47
Bonjour tout le monde
Je suis en trein de réaliser ma premiere base de données avec VB et ACCESS
XP.
Je souhaiterais faire des enregistrements à partir d'une table vide
Voici le non de ma table est: email
J'ai étudié des tuto et des livres, mais je désirerais un petit coup de main pour finir ce que
j'ai commencé seul.
voici mon code ci dessous
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim bdmessag As New ADODB.Command
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
If envoi And (Check1.Value = 1) Then
rst.Source = "select txtto, txtfrom, rtxmessag, objet from EMAIL destinataire, expéditeur, objet, messag"
Pourriez vous svp me dire où y a til une erreur et ce qu'il manque ?
Je vous en remercie d'avance.
Cordiallement
A bientôt
Je suis en trein de réaliser ma premiere base de données avec VB et ACCESS
XP.
Je souhaiterais faire des enregistrements à partir d'une table vide
Voici le non de ma table est: email
J'ai étudié des tuto et des livres, mais je désirerais un petit coup de main pour finir ce que
j'ai commencé seul.
voici mon code ci dessous
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim bdmessag As New ADODB.Command
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
If envoi And (Check1.Value = 1) Then
rst.Source = "select txtto, txtfrom, rtxmessag, objet from EMAIL destinataire, expéditeur, objet, messag"
Pourriez vous svp me dire où y a til une erreur et ce qu'il manque ?
Je vous en remercie d'avance.
Cordiallement
A bientôt
