Soyez le premier à donner votre avis sur cette source.
Snippet vu 30 110 fois - Téléchargée 83 fois
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.
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()
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.