dim bd As ADODB.Connection dim table as ADODB.recordset dim sql as string 'ouverture de la base de données Set bd = New ADODB.Connection bd.open "dsn=nombase" 'ouverture d'une table ou requete SQL set table = new ADODB.recordset sql = "requete...." table.open sql,bd 'si la requete ne renvoie pas de résultats il n'est pas necessaire de fermer la table.
Et tu peux faire la même chose avec DAO 3.51Moi j'ai pas encore trouvé et sa m'éneeeerve!!!!
La méthode DAO est une ancienne méthode qui a été remplacé par ADO. Moi je n'utilise que l'ADO. En DAO la methode est différente avec des methodes comme addnew.
methode simple et efficace que je rechercher depuis un moment je te mets une bonne note ;-)
J'ai essayé d'adapter cette source a ma connexion ODBC OMNIS qui fonctionne tres bien sous AccessCa plante le VB lorsque j'essaye d'afficher un champ. Pourquoi ? Dim bd As ADODB.Connection Dim table As ADODB.Recordset Dim sql As String 'ouverture de la base de données Set bd = New ADODB.Connection bd.Open "dsn=ODBC_OMNIS" 'ouverture d'une table ou requete SQL Set table = New ADODB.Recordset sql = "select * from MATABLE" table.Open sql, bd MsgBox table.Fields("MONCHAMP").Value
christophe, ca serait cool si tu prenais le temps de repondre aux gens qui testent tes codes...meme si t'en sais rien mais dis le...pour ma part, il me met source de données introuvable et nom de pilote non spécifié avec le code suivant : Dim bd As ADODB.Connection Dim table As ADODB.recordset Dim sql As String 'ouverture de la base de données bd = New ADODB.Connection bd.Open("dsn=loto.mdb") 'ouverture d'une table ou requete SQL table = New ADODB.recordset sql = "CREATE TABLE loto ('col1' int, 'Nom_de_colonne2' varchar);" table.Open(sql, bd)****************************************voila toutmerci de ta reponseEsus table.Close()
esus1985 As tu ajoutais la référence dans VB ADO ?
je besoin une programme qui fait l'enregitrement dans le base de donnee avsc flexgrille et une commande reset pour les remise a zero svp
Bonjour ABRI1983 (si tu es encore la deux mois apres) je ne sais pas ce qu'est flexgrille mais tu as le code pour pouvoir ecrire dans une bdd et pour pouvoir faire une remise a zero je pense que c'est possible si tu as une table intermediaire (ou tempon) dans laquelle tu stock les modifications ou une table archive qui contient les anciennes donnees. Je ne sais pas si je t'ai aidé. bon courage.Vous parlez tous beaucoup d'ADO mais à vrai dire à l'utilisation je ne vois pas la differance avec DAO:'***********************BDD ACCESS OK AVEC ADO**********************************************Dim bddbdd = "chemin_base_de_donnee"'*******************************OPEN DATABASE DAO **************************************Dim dbs As DAO.DatabaseSet dbs = DBEngine.Workspaces(0).OpenDatabase(bdd)'ou set dbs = CurrentDb() je vous laisse devinner dans quel cas'*******************************LES ENREGISTREMENTS AVEC DAO******************************Dim rstdao As DAO.RecordsetSet rstdao = dbs.OpenRecordset("nom_de_la_colonne")if jeVeuxRemplirLaBDD thenrstdao.AddNewrstdao("Nom_champ1") = val1 rstdao("Nom_champ2") = val2rstdao.Updateelse 'je veux utiliser les donnéesrstdao.MoveFirstWhile Not rstdao.EOFTexte6 = Texte6 & rstdao("nom_champ").name & ": " & rstdao("nom_champ") & vbCrLfTexte6 = Texte6 & rstdao(no_champ).name & ": " & rstdao(no_champ) & vbCrLfrstdao.MoveNextWendend if'************************************FERMETURE***************************************rstdao.Closedbs.CloseSet dbs = NothingSet rstdao = NothingComme ça il y aura des petits bouts de code pour tous.@+
http://www.self-access.com/access/dossiers/acDAOversADO.php#DAOADOkvoila pour la difference entre ado et dao
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte