EXECUTER UNE REQUETE SQL EN ADO
bobo94
-
26 sept. 2001 à 15:14
esus1985 Messages postés 76 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 26 février 2009 - 11 mars 2008 à 11:38
esus1985 Messages postés 76 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 26 février 2009 - 11 mars 2008 à 11:38
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/180-executer-une-requete-sql-en-ado
https://codes-sources.commentcamarche.net/source/180-executer-une-requete-sql-en-ado
11 mars 2008 à 11:38
kvoila pour la difference entre ado et dao
11 mars 2008 à 10:16
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 bdd
bdd = "chemin_base_de_donnee"
'*******************************OPEN DATABASE DAO **************************************
Dim dbs As DAO.Database
Set 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.Recordset
Set rstdao = dbs.OpenRecordset("nom_de_la_colonne")
if jeVeuxRemplirLaBDD then
rstdao.AddNew
rstdao("Nom_champ1") = val1
rstdao("Nom_champ2") = val2
rstdao.Update
else 'je veux utiliser les données
rstdao.MoveFirst
While Not rstdao.EOF
Texte6 = Texte6 & rstdao("nom_champ").name & ": " & rstdao("nom_champ") & vbCrLf
Texte6 = Texte6 & rstdao(no_champ).name & ": " & rstdao(no_champ) & vbCrLf
rstdao.MoveNext
Wend
end if
'************************************FERMETURE***************************************
rstdao.Close
dbs.Close
Set dbs = Nothing
Set rstdao = Nothing
Comme ça il y aura des petits bouts de code pour tous.
@+
8 déc. 2007 à 21:11
et une commande reset pour les remise a zero svp
22 févr. 2007 à 16:09
As tu ajoutais la référence dans VB ADO ?
19 janv. 2007 à 23:47
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 tout
merci de ta reponse
Esus
table.Close()
11 mai 2006 à 16:01
Ca 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
30 avril 2004 à 12:43
que je rechercher depuis un moment
je te mets une bonne note ;-)
23 sept. 2002 à 08:00
20 sept. 2002 à 13:57
Moi j'ai pas encore trouvé et sa m'éneeeerve!!!!
26 sept. 2001 à 15:14
c'est cool la nouvelle version du site mais c'est loooong ! même avec une connexion adsl netissimo 2
:-)