Creer une base Access
Résolu
Dounej
Messages postés
28
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
7 avril 2007
-
19 mars 2007 à 22:54
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 20 mars 2007 à 15:33
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 20 mars 2007 à 15:33
4 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
19 mars 2007 à 23:34
19 mars 2007 à 23:34
Salut,
j'ai pas cherché mais je pense qu'il doit y avoir des centaines de sources sur le sujet.
Voici un exemple d'une de mes sources (sur les doublons) :
Dim BddTemp As Database
Dim TableTemp As TableDef
Dim ChampsTemp As Field
Dim NomFichier As String, sql As String
Dim i As Integer, j As Integer
' donne le nom du fichier
NomFichier = App.Path & "\NomDeLaBase.mdb"
' références pour la création de la base de données, l'ouverture de celle-ci et on crée
' la table et le champs
Set BddTemp = CreateDatabase(NomFichier, dbLangGeneral)
Set BddTemp = OpenDatabase(NomFichier)
Set TableTemp = BddTemp.CreateTableDef("Nom de la table")
Set ChampsTemp = TableTemp.CreateField("Nom du champ", dbText)
TableTemp.Fields.Append ChampsTemp
BddTemp.TableDefs.Append TableTemp
BddTemp.Close
' ouverture de la base pour écriture
Set BddTemp = DBEngine.Workspaces(0).OpenDatabase(NomFichier)
DoEvents
For i = 1 To 10
MaValeur = "Valeur " & i
' et création de la requête
sql = "INSERT INTO Nom de la table (Nom du champ) VALUES ('" & MaValeur & "')"
' ^ pour insérer ^ dans table ^ et champs ^ cette valeur
BddTemp.Execute sql ' puis on l'exécute
Next i
BddTemp.Close ' une fois terminé, ferfrmDoublonsture de la base
' un p'tit Messsage pour avertir l'utilisateur que c'est fait
MsgBox "Le fichier a bien été enregistré à l'emplacement suivant :" & vbCrLf & NomFichier
~ <small> Mortalino ~ Colorisation automatique </small>
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
j'ai pas cherché mais je pense qu'il doit y avoir des centaines de sources sur le sujet.
Voici un exemple d'une de mes sources (sur les doublons) :
Dim BddTemp As Database
Dim TableTemp As TableDef
Dim ChampsTemp As Field
Dim NomFichier As String, sql As String
Dim i As Integer, j As Integer
' donne le nom du fichier
NomFichier = App.Path & "\NomDeLaBase.mdb"
' références pour la création de la base de données, l'ouverture de celle-ci et on crée
' la table et le champs
Set BddTemp = CreateDatabase(NomFichier, dbLangGeneral)
Set BddTemp = OpenDatabase(NomFichier)
Set TableTemp = BddTemp.CreateTableDef("Nom de la table")
Set ChampsTemp = TableTemp.CreateField("Nom du champ", dbText)
TableTemp.Fields.Append ChampsTemp
BddTemp.TableDefs.Append TableTemp
BddTemp.Close
' ouverture de la base pour écriture
Set BddTemp = DBEngine.Workspaces(0).OpenDatabase(NomFichier)
DoEvents
For i = 1 To 10
MaValeur = "Valeur " & i
' et création de la requête
sql = "INSERT INTO Nom de la table (Nom du champ) VALUES ('" & MaValeur & "')"
' ^ pour insérer ^ dans table ^ et champs ^ cette valeur
BddTemp.Execute sql ' puis on l'exécute
Next i
BddTemp.Close ' une fois terminé, ferfrmDoublonsture de la base
' un p'tit Messsage pour avertir l'utilisateur que c'est fait
MsgBox "Le fichier a bien été enregistré à l'emplacement suivant :" & vbCrLf & NomFichier
~ <small> Mortalino ~ Colorisation automatique </small>
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
20 mars 2007 à 08:56
20 mars 2007 à 08:56
Salut,
Regarde aussi cette source....
A+
Exploreur
Regarde aussi cette source....
A+
Exploreur
Dounej
Messages postés
28
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
7 avril 2007
20 mars 2007 à 15:13
20 mars 2007 à 15:13
Un grand merci pour vos réponses
J'ai utilisé la source proposer par 17710 Exploreur
http://www.vbfrance.com/codes/COMMENT-CREER-BASE-ACCESS-CREER-TABLE-LIRE-COLONNE_2722.aspx
dont l'auteur est bigane
Ce programme est très simple et très didactique car il explique chacune des étapes.
(j'avais au préalable fait une longue recherche sur ce site pour trouver une source convenable, le moteur de recherche n'a jamais présenté cette source !,
alors merci de nouveau =17710 Exploreur )
Cordialement
Marc
J'ai utilisé la source proposer par 17710 Exploreur
http://www.vbfrance.com/codes/COMMENT-CREER-BASE-ACCESS-CREER-TABLE-LIRE-COLONNE_2722.aspx
dont l'auteur est bigane
Ce programme est très simple et très didactique car il explique chacune des étapes.
(j'avais au préalable fait une longue recherche sur ce site pour trouver une source convenable, le moteur de recherche n'a jamais présenté cette source !,
alors merci de nouveau =17710 Exploreur )
Cordialement
Marc
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
20 mars 2007 à 15:33
20 mars 2007 à 15:33
Salut,
De rien, et au plaisir....
A+
Exploreur
De rien, et au plaisir....
A+
Exploreur