begin process at 2010 02 10 04:55:50
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > EXECUTER UNE REQUETE SQL EN ADO

EXECUTER UNE REQUETE SQL EN ADO


 Information sur la source

Note :
6 / 10 - par 5 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :ado, requete, sql Niveau :Débutant Date de création :24/09/2001 Date de mise à jour :22/01/2002 15:13:07 Vu :22 394

Auteur : christophe

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description


Source

  • 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.
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.  

 Conclusion

  le nom de la base correspond a une base ODBC ayant été configuré préalablement configuré dans le gestionnaire de source ODBC.


 Sources du même auteur

OUVRIR UNE BASE DE DONNEES EN ADO

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) DATA ACCESS COMPONENT par zaimfaycal
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip GESTION D'UNE BIBLIOTHÈQUE par Elmarzougui
Source avec Zip VISUALISATION BASE ACCESS par claude440
Source avec Zip SUPER MONEY par MdelM

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture EXECUTEUR DE REQUETE SQL (ORIENTÉ ORACLE) par denpx
Source avec Zip Source .NET (Dotnet) UTILISATION DE SQLITE AVEC UNE CLASSE DE CONNECTION par lucdr
Source avec Zip Source avec une capture OPEN ACCESS MDB par MALIKcpp
Source avec Zip Source avec une capture STOCK INFO ** GESTION INFORMATIQUE ** par Exploreur
Source avec Zip Source avec une capture QUICK_EXP : BASE DE DONNÉES par Exploreur

Commentaires et avis

Commentaire de PrX le 20/09/2002 13:57:27

Et tu peux faire la même chose avec DAO 3.51
Moi j'ai pas encore trouvé et sa m'éneeeerve!!!!

Commentaire de christophe le 23/09/2002 08:00:06

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.

Commentaire de aurbadguy le 30/04/2004 12:43:43

methode simple et efficace
que je rechercher depuis un moment
je te mets une bonne note ;-)

Commentaire de globule le 11/05/2006 16:01:19

J'ai essayé d'adapter cette source a ma connexion ODBC OMNIS qui fonctionne tres bien sous Access
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

Commentaire de esus1985 le 19/01/2007 23:47:00

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 tout

merci de ta reponse

Esus
        table.Close()

Commentaire de wortmany le 22/02/2007 16:09:35

esus1985

As tu ajoutais la référence dans VB ADO ?

Commentaire de arbi1983 le 08/12/2007 21:11:53

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

Commentaire de l0r3nz1 le 11/03/2008 10:16:19

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 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.
@+

Commentaire de esus1985 le 11/03/2008 11:38:52

http://www.self-access.com/access/dossiers/acDAOversADO.php#DAOADO

kvoila pour la difference entre ado et dao

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

DEBUTANTE - SQL et ADO [ par Gaëlle ] BonjourJe souhaite inclure une requete SQL ds mon code source pour aller chercher des infos sur un serveur via une connection ODBC.Pb: J'ai vraiment d Requete SQL sur Bd Visual FoxPro (*.dbf) trop lent avec ADO [ par long ] Dans un appication VB, j'écrit une requête SQL sur une grosse table VF (*.dbf) avec SELEC * FROM ...via ODBC pour afficher dans un datagrid (Ms Datagr Executer une requete SQL avec ADO [ par filou ] Bonjour, J'aimerai pouvoir executer une requete SQL avec un recordset ADO.J'ouvre ma base de cette facon :Call OuvreBase(App.Path & "\STV.mdb", "S Aides requete SQL [ par Believe ] Je suis debutant et j'ai besoin d'aide. Je fais une requete de ce style :rs.Open "select * from pneus where Largeur = '" & La & "' and Hauteur Requete SQL avec left rght mid.... [ par XGuarden ] BOnjours, je cherche a savoir comment faire une requete SQL qui vérifie non pas un champ mais les caractere dans un champ.Exemple:dans la close w VBA Requete sql Access [ par jordinette ] Bonjour sur access lorsque l'on fait une requete sur un champs monétaire (0,00€) il faut le caractère @ avant la valeur. comme on met #Date#. genre d Probleme avec recordset (requete sql) [ par DraaFil ] Bonjou a tous,l'instruction sql suitevante ne fonctionne pas parcontre, elle me donne pas d'erreur;voici le code:Private Sub Command1_Click() &nb requete SQL access [ par le manche ] je voudrai savoir comment marche les requete SQL avec Visual basic et Access Je dois recuperer des information dans ma base de donnée depuis VB6 Pb. de vitesse : Analyseur SQL Server vs. VB6+ADO [ par Shoopoop ] Bonjour à tous J'essaye de comprendre pourquoi la même requête SQL, lançée avec ADO à l'aide d'un recordset so Comment faire une requete SQL sur un nom de table composé de 2 mots [ par globule ] Comment faire une requete SQL sur un nom de table composé de 2 motsexemple :Nom de table : Ma TableRequeteSql="Select * from Ma Table" -> Ne f


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales