Sujet Précédent Sujet Suivant

MODULES INSERTION ET MISE À JOUR DES DONNÉES DANS UNE TABLE( SGBD )

apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009 - 2 oct. 2009 à 18:00
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009 - 1 nov. 2009 à 15:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/50615-modules-insertion-et-mise-a-jour-des-donnees-dans-une-table-sgbd
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009
1 nov. 2009 à 15:03
il n'est utilisable que dans un certain contexte dont une partie n'est pas fournie
soit tu "donnes du pain", soit tu "jettes des miettes". *
Sur le produit je recherche un partenaire 50 sur le produit
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009
16 oct. 2009 à 22:29
tant mieux si d'autres sites acceptent ton code, et tant pis pour nous si nous sommes dans l'erreur : que ton code soit bon ou pas, il n'est utilisable que dans un certain contexte dont une partie n'est pas fournie
soit tu "donnes du pain", soit tu "jettes des miettes".


Il est bien évident que tout le code pour une application précis il faut qu’il se connecte sur mon produit qui leur écrit le code approprie a leur base de données, et c’es la en un clic il récupéré leur script complet avec un projet complet vbp.
Je n’ai perdu tout ce temps inutilement.
Bientôt pour la formation des informaticiens ou des autodidactes .Quand j’ai appris à utiliser
La calculatrice pour des calculs scientifique je ne suis plus capable de revenir en arrière.
Je n’ai pas de temps à perdre.

paul.
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009
10 oct. 2009 à 14:07
Modules Insertion et mise à jour des données dans une table ( SGBD ).
Le code que je vous ai envoyé été destiné au développeur VBA accès sur leurs bases de données.
Il ne fallait trop le script en fonction d’une base se donnée particulier. Mais un script qui fonctionne.
Le code de Visual basic est plus simple pour un développeur. Mais ne peut être Actif que sous une application VB, pas à la porté de tous.
Un autre module : Table Oracle vers ( SGBD ) index et la structure de la TABLE « Champ type numérique ».
Intéressant pour les gens du métier.
Un autre module : Table SGBD vers ( Oracle ) index et la structure de la TABLE « Champ type numérique ».
Qui demande beaucoup plus de réflexion.
RMI depuis 6 longues année n'est pas une évidance.
Paul.
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
3 oct. 2009 à 06:15
la "blague" est en rapport à la rigidité du code fourni (non utilisable tel quel), sa petite consistance (limite "snippet => www.codyx.org), et sa liaison à une base fixe impliquant un code non générique

voilà ce que je demandais à mi mot

PS : cette source étant en effet désactivée c'est par MP qu'il fallait me contacter, c'est par pur hasard que j'ai pu prendre connaissance de ton message...

bonne continuation
apaulux Messages postés 73 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 2 octobre 2009
2 oct. 2009 à 18:00
'Référence-VBAPoject : Microsolft DAO 3.6 Object Library
'Excel ves Access
'Module VBA à insérer > Set DBX = OpenDatabase(...)
Sub CreateBaseBisAccess()
Dim DB As Database, DBX As Database, sDestination As String, gExpDB, sTable, idxFrom, idxTo, idxFromName, sType, gsSQLDB
Dim RS As DAO.Recordset, TableEnCour As DAO.Recordset
Dim fldLoop As Field, tdfNew As TableDef

On Error Resume Next
Set DBX = OpenDatabase("E:\Documents and Settings\PAUL\Bureau\CLIENTS.XLS", False, gnReadOnly, "Excel 5.0;")
Set TableEnCour = DBX.OpenRecordset("CLIENTS$", dbOpenDynaset, dbSeeChanges, dbOptimistic)
Screen.MousePointer = 11
'pointe sur la base MDB
sDestination = "E:\Documents and Settings\PAUL\Bureau\DEMO\FICHIER\CLIENTS.MDB"

sConnect = ";pwd="
Set DB = OpenDatabase(sDestination, False, gnReadOnly, sConnect)

Do Until TableEnCour.EOF
Set RS = DB.OpenRecordset("select * FROM [CLIENTS] WHERE ((([CLIENTS].[codeclient]) Like '" & TableEnCour.Fields(0).Value & "'))", dbOpenDynaset, dbSeeChanges, dbOptimistic)
If RS.RecordCount = 0 Then
RS.AddNew
Else
RS.Edit
End If
RS.Fields("codeclient").Value = TableEnCour.Fields("codeclient").Value
RS.Fields("société").Value = TableEnCour.Fields("société").Value
RS.Fields("contact").Value = TableEnCour.Fields("contact").Value
RS.Fields("fonction").Value = TableEnCour.Fields("fonction").Value
RS.Fields("adresse").Value = TableEnCour.Fields("adresse").Value
RS.Fields("ville").Value = TableEnCour.Fields("ville").Value
RS.Fields("région").Value = TableEnCour.Fields("région").Value
RS.Fields("code postal").Value = TableEnCour.Fields("code postal").Value
RS.Fields("pays").Value = TableEnCour.Fields("pays").Value
RS.Fields("téléphone").Value = TableEnCour.Fields("téléphone").Value
RS.Fields("fax").Value = TableEnCour.Fields("fax").Value
RS.Update
TableEnCour.MoveNext
Loop
TableEnCour.Close
DB.Close
Set DB = Nothing
Set TableEnCour = Nothing
Screen.MousePointer = 0
End Sub


'Référence-VBAPoject : Microsolft DAO 3.6 Object Library
'Access vers Excel
'Module VBA à insérer > Set DBX = OpenDatabase(...)
Sub CreateBaseBisAccess()
Dim DB As Database, DBX As Database, sDestination As String, gExpDB, sTable, idxFrom, idxTo, idxFromName, sType, gsSQLDB
Dim RS As DAO.Recordset, TableEnCour As DAO.Recordset
Dim fldLoop As Field, tdfNew As TableDef

On Error Resume Next
Set DBX = OpenDatabase("E:\Documents and Settings\PAUL\Bureau\CLIENTS.MDB", False, gnReadOnly, "")
Set TableEnCour = DBX.OpenRecordset("CLIENTS", dbOpenDynaset, dbSeeChanges, dbOptimistic)
Screen.MousePointer = 11
'pointe sur la base XLS
sDestination = "E:\Documents and Settings\PAUL\Bureau\DEMO\FICHIER\CLIENTS.XLS"

Set DB = OpenDatabase(sDestination, False, gnReadOnly, "Excel 5.0;")

Do Until TableEnCour.EOF
Set RS = DB.OpenRecordset("select * FROM [CLIENTS] WHERE ((([CLIENTS$].[codeclient]) Like '" & TableEnCour.Fields(0).Value & "'))", dbOpenDynaset, dbSeeChanges, dbOptimistic)
If RS.RecordCount = 0 Then
RS.AddNew
Else
RS.Edit
End If
RS.Fields("codeclient").Value = TableEnCour.Fields("codeclient").Value
RS.Fields("société").Value = TableEnCour.Fields("société").Value
RS.Fields("contact").Value = TableEnCour.Fields("contact").Value
RS.Fields("fonction").Value = TableEnCour.Fields("fonction").Value
RS.Fields("adresse").Value = TableEnCour.Fields("adresse").Value
RS.Fields("ville").Value = TableEnCour.Fields("ville").Value
RS.Fields("région").Value = TableEnCour.Fields("région").Value
RS.Fields("code postal").Value = TableEnCour.Fields("code postal").Value
RS.Fields("pays").Value = TableEnCour.Fields("pays").Value
RS.Fields("téléphone").Value = TableEnCour.Fields("téléphone").Value
RS.Fields("fax").Value = TableEnCour.Fields("fax").Value
RS.Update
TableEnCour.MoveNext
Loop
TableEnCour.Close
DB.Close
Set DB = Nothing
Set TableEnCour = Nothing
Screen.MousePointer = 0
End Sub


'Référence-VBAPoject : Microsolft DAO 3.6 Object Library
'Access ver SQL Server
'Module VBA à insérer > Set DBX = OpenDatabase(...)
Sub CreateBaseBisAccess()
Dim DB As Database, DBX As Database, sDestination As String, gExpDB, sTable, idxFrom, idxTo, idxFromName, sType, gsSQLDB
Dim RS As DAO.Recordset, TableEnCour As DAO.Recordset
Dim fldLoop As Field, tdfNew As TableDef

On Error Resume Next
Set DBX = OpenDatabase("E:\Documents and Settings\PAUL\Bureau\CLIENTS.MDB", False, gnReadOnly, "")
Set TableEnCour = DBX.OpenRecordset("CLIENTS", dbOpenDynaset, dbSeeChanges, dbOptimistic)
Screen.MousePointer = 11
sDestination = "UID=SA;PWD=;DRIVER={SQL Server};SERVER=CELINE;DATABASE=pubs;"

Set DB = OpenDatabase("", False, gnReadOnly, "UID=SA;PWD=;DRIVER={SQL Server};SERVER=CELINE;DATABASE=pubs;")

Do Until TableEnCour.EOF
If Not DB Is Nothing Then Set DB = Nothing
Set DB = OpenDatabase("", False, gnReadOnly, "UID=SA;PWD=;DRIVER={SQL Server};SERVER=CELINE;DATABASE=pubs;")
Set RS = DB.OpenRecordset("select * FROM [CLIENTS] WHERE ((([CLIENTS].[codeclient]) Like '" & TableEnCour.Fields(0).Value & "'))", dbOpenDynaset, dbSeeChanges, dbOptimistic)
If RS.RecordCount = 0 Then
RS.AddNew
Else
RS.Edit
End If
RS.Fields("codeclient").Value = TableEnCour.Fields("codeclient").Value
RS.Fields("société").Value = TableEnCour.Fields("société").Value
RS.Fields("contact").Value = TableEnCour.Fields("contact").Value
RS.Fields("fonction").Value = TableEnCour.Fields("fonction").Value
RS.Fields("adresse").Value = TableEnCour.Fields("adresse").Value
RS.Fields("ville").Value = TableEnCour.Fields("ville").Value
RS.Fields("région").Value = TableEnCour.Fields("région").Value
RS.Fields("code postal").Value = TableEnCour.Fields("code postal").Value
RS.Fields("pays").Value = TableEnCour.Fields("pays").Value
RS.Fields("téléphone").Value = TableEnCour.Fields("téléphone").Value
RS.Fields("fax").Value = TableEnCour.Fields("fax").Value
RS.Update
TableEnCour.MoveNext
Loop
TableEnCour.Close
DB.Close
Set DB = Nothing
Set TableEnCour = Nothing
Screen.MousePointer = 0
End Sub


'Référence-VBAPoject : Microsolft DAO 3.6 Object Library
'SQL Server Ves Access
'Module VBA à insérer > Set DBX = OpenDatabase(...)
Sub CreateBaseBisAccess()
Dim DB As Database, DBX As Database, sDestination As String, gExpDB, sTable, idxFrom, idxTo, idxFromName, sType, gsSQLDB
Dim RS As DAO.Recordset, TableEnCour As DAO.Recordset
Dim fldLoop As Field, tdfNew As TableDef

On Error Resume Next
Set DBX = OpenDatabase("", False, gnReadOnly, "UID=SA;PWD=;DRIVER={SQL Server};SERVER=CELINE;DATABASE=pubs;")
Set TableEnCour = DBX.OpenRecordset("clients", dbOpenDynaset, dbSeeChanges, dbOptimistic)
Screen.MousePointer = 11
'pointe sur la base MDB
sDestination = "E:\Documents and Settings\PAUL\Bureau\CLIENTS.MDB"

sConnect = ";pwd="
Set DB = OpenDatabase(sDestination, False, gnReadOnly, sConnect)

Do Until TableEnCour.EOF
Set RS = DB.OpenRecordset("select * FROM [clients] WHERE ((([clients].[codeclient]) Like '" & TableEnCour.Fields(0).Value & "'))", dbOpenDynaset, dbSeeChanges, dbOptimistic)
If RS.RecordCount = 0 Then
RS.AddNew
Else
RS.Edit
End If
RS.Fields("codeclient").Value = TableEnCour.Fields("codeclient").Value
RS.Fields("société").Value = TableEnCour.Fields("société").Value
RS.Fields("contact").Value = TableEnCour.Fields("contact").Value
RS.Fields("fonction").Value = TableEnCour.Fields("fonction").Value
RS.Fields("adresse").Value = TableEnCour.Fields("adresse").Value
RS.Fields("ville").Value = TableEnCour.Fields("ville").Value
RS.Fields("région").Value = TableEnCour.Fields("région").Value
RS.Fields("code postal").Value = TableEnCour.Fields("code postal").Value
RS.Fields("pays").Value = TableEnCour.Fields("pays").Value
RS.Fields("téléphone").Value = TableEnCour.Fields("téléphone").Value
RS.Fields("fax").Value = TableEnCour.Fields("fax").Value
RS.Update
TableEnCour.MoveNext
Loop
TableEnCour.Close
DB.Close
Set DB = Nothing
Set TableEnCour = Nothing
Screen.MousePointer = 0
End Sub

Discussions similaires

L’opération doit utiliser une requête qui peut être mise à jour
cs_meryamaa -
meryamaa -

8 réponses
Mise a jour DELPHI
jmj01 -
cantador -

4 réponses
L'opération doit utiliser une requête qui peut être mise..
Levotre123 -
jordane45 -

1 réponse
LOPERATION DOIT UTILISER UNE REQUETE QUI PEUT ETRE MISE A JOUR
cs_nawal59 -
tecman -

1 réponse
copier le contenu d'une table dans une autre
biloutte33 -
imaneinfo1 -

2 réponses
Rejoignez-nous