Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
926 connectés 

  FORUM HardWare.fr
  Programmation

  [vb] objet dao: base de donnée

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[vb] objet dao: base de donnée

n°80754
486dx
abuse admistrator
Posté le 11-12-2001 à 23:36:37  profilanswer
 

pour creer une base de donnée je fais:
 
Dim db As Database
Dim table As TableDef
Dim champs(1 To 3) As Field
 
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("c:\3\glen\glen.mdb", dbLangGeneral, dbVersion30)
Set table = db.CreateTableDef("Liste" )
Set champs(1) = table.CreateField("nom", dbText, 20)
Set champs(2) = table.CreateField("prenom", dbText, 20)
Set champs(3) = table.CreateField("salaire", dbInteger)
 
table.Fields.Append champs(1)
table.Fields.Append champs(2)
table.Fields.Append champs(3)
db.TableDefs.Append table
 
'index
Dim ind As Index
Set ind = table.CreateIndex("indnom" )
Dim tempo As Field
Set tempo = ind.CreateField("nom" )
ind.Fields.Append tempo
table.Indexes.Append ind
------------------------------------
comment faire pour entrer des données dans ma base de donnée en utilisant les objets dao (et pas l'objet data)
 
(j'aurai jamais de reponse)

 

[edtdd]--Message édité par 486dx--[/edtdd]


---------------
Sorry, you have insufficient access to perform that command
mood
Publicité
Posté le 11-12-2001 à 23:36:37  profilanswer
 

n°80777
yop
Posté le 12-12-2001 à 07:46:07  profilanswer
 

2 solutions :
  - En passant par l'object recordset de DAO (db.openrecordset ...,  rec.edit, .. rec.update) cf MSDN
  - Ou bien par la methode 'db.execute' de la database en sql par un insert.
 
Bon courage:)

n°80858
486dx
abuse admistrator
Posté le 12-12-2001 à 12:52:03  profilanswer
 

ouch
 
t'as pas un exemple ?


---------------
Sorry, you have insufficient access to perform that command
n°80886
redridingh​ood
Posté le 12-12-2001 à 14:14:22  profilanswer
 

perso je prefere la methode SQL:
(je me souviens plus trop comment on fait en VB, mais l'idee est la)
tu cree une chaine contenant ta requete d'ajout:
"INSERT INTO nomtalbe VALUES(v1,v2...)"
tu crée un recordset sur ta table
tu ouvres le recordset avec ta chaine d'ajout (gaffe aux verrous sur la table)
 
voile !

n°80893
486dx
abuse admistrator
Posté le 12-12-2001 à 14:28:33  profilanswer
 

j'ai trouvé ca (et en plus ca marche):
 
Set db = OpenDatabase("c:\3\glen\glen.mdb" )
Set rs = db.OpenRecordset("Liste" )
rs.AddNew
rs!nom = "pouet"
rs!prenom = "pof"
rs!salaire = 23
rs.Update
 
 
merchi quand meme :hello:
(ca marche aussi:)
Set db = OpenDatabase("c:\3\glen\glen.mdb" )
Set rs = db.OpenRecordset("Liste" )
 
    db.Execute " INSERT INTO Liste " _
        & "(nom,prenom, salaire) VALUES " _
        & "('Hdfarry', 'Washington', '121';);"

 

[edtdd]--Message édité par 486dx--[/edtdd]


---------------
Sorry, you have insufficient access to perform that command
n°80902
redridingh​ood
Posté le 12-12-2001 à 14:34:25  profilanswer
 

ok !!!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [vb] objet dao: base de donnée

 

Sujets relatifs
[VB] [Path] Petite question sur le path d'une base de donnéeforum php objet?
[Delphi] Utiliser une base de donnée (Interbase) avec Delphi 6 perso.[JAVA] Comment acceder a la base de registre ?
[php - MySQL] Test d'une entrée ds la base MySQLPB sur la base de données
(VB+base de donnee distante] Comment faire ????sécurité et accès java/web/base de donnée
Plus de sujets relatifs à : [vb] objet dao: base de donnée


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR