Base de donnée avec ADO en vb

Fermé
elocrak - 13 juin 2002 à 17:21
 amine - 9 oct. 2010 à 16:07
Salut
je suis en stage et je suis en train de faire un projet
Mon pb c que j'ai connecté ma base de donnée (faite sur access 2000) à vb 6.0 avec ADO, mais j'y connais rien !!!
je voudrais savoir comment faire fonctionner ma connection parfaitement, avec les jeu d'enregistrement.

Alors si qqun peut me donner des cours ou des codes ou n'importe quoi qui me ferai mieux comprendre ADO, je serai très ravi!

Merci beaucoup!!!!

19 réponses

Voila un exemple de connection vers SQL Server...a adapter pour access.

A+

Public oConn As ADODB.Connection 'Objet Connection ADO SQL Server
Public oRec As ADODB.Recordset 'Objet Recordset SQL Server



'Ouverture connection DB
strDriver = "{SQL Server}" 'Driver pour l'accès à la database
Set oConn = New ADODB.Connection
oConn.Open "Driver=" & strDriver & ";" & _
"Server=" & strServeur & ";" & _
"Database=" & strDataBase & ";" & _
"Uid=" & strUid & ";" & _
"Pwd=" & strPwd & ";"

strMyQuery = "SELECT * FROM table"

Set oRec = oConn.Execute(strMyQuery, adCmdText)

oRec.MoveFirst

variable = oRec("nomchamp")

'Fermeture connection DB
oConn.Close
Set oConn = Nothing
4
Emmanuel panzu
21 juil. 2009 à 18:40
je suis un étudiant, futur administrateur réseau, j'ai quelques diffultés sur la création des interface VB et C++ et les connexion de ces interfaces avec les SGBD, je vous de bien vouloir m'assister
Ir Emmanuel PANZU NGIMBI
0
mbarek > Emmanuel panzu
21 juil. 2009 à 19:46
salut
je te donne les démarches pour effectuer ce travail:
je peux diviser le probleme en trois partie:
partie 1: la base de données (merise et access):
avant de lancer access pour créer des tables, il faut d'avoir une méthode de la conception qui te permet d'eviter plusieurs problemes.
partie 2: l'interface (vb ou c++):
apartir de la base de données, tu peut déterimer l'interface à créer ( ce n'est pas le contraire)
par exemple dans vb ,c'est mieux de nommer les controles de l'inteface à utiliser
partie 3: modele de liaison:
ensuite ; il faut choisir un modelel de liaison entre vb et la base ; soit DAO , ADO ou bien ADO.net
et dans cette partie ; il faut déterminer les opérations;
lire les données à partir de la base( afficher);
ou ecrire les données dans la base( modifer , ajouter ou supprimer

et bon courage
0
kanak09 Messages postés 11 Date d'inscription jeudi 5 août 2010 Statut Membre Dernière intervention 27 juin 2012 1
9 août 2010 à 10:41
salut,

merci pour les infos mais j'ai aussi besoin d'aide.
Je réalise un formulaire de demande de tâche dans outlook 2007 et j'ai besoin de le lier à une BDD sql server donc ca tombe bien.

Où écrire ce code, dans visual basic ThisOutlookSession, ou dans "Visualiser le code" = Vbscript ?

car j'ai essayé dans Visual basic mais il n'y a aucun effet, et dans vbscript j'ai des erreurs aux lignes.

Merci
0
joseph2009 Messages postés 121 Date d'inscription samedi 21 février 2009 Statut Membre Dernière intervention 23 septembre 2011 1
8 mars 2009 à 18:14
il suffit juste de installer ado sur l'interface VB et appuyer sur le button droit--> propriéte --> choisi le fournisseur accés sa sera microsoft jet oledb.4.0 parce que la tu travail sur une BDD acess quand tu aura choisi le fournisseur tu indique le chemin de la BDD quand tu aura fini tu passe a l'onlget datasource tu vas trouver deux combo box click sur la premier choisi propriete table et pase a la deuxieme et choisi quel table parce que la chaque ado a besoin d'une table et ensuite teste la question avec un bouton si ta pas compris ce que jé dit dit le a mois a bientot bye
1
Salut,
mais comment je fais pour l'instalation d'un ado sur un interface vb.net , je préfére que tu m'envoi la code .
MERCI
0
SVp angel:
quel est le rôle de ton code.
ligne par ligne ok
;
pour la variable v_r peut recevoir une valeur, mais il faut l'afficher.
par exemple ajouter une label avec le nom lblaff
et ecrire le code
dim v_r as string

v_r=dtChEf.Rows(j)(0).ToString
lblaff.text=v_r

exit sub

pour la ligne exit sub c'est pour décomposer le code en parties pour déterminer l'emplacement de l'erreur
1
Bonjouur!!
enfait vs n'avez pas bien saisi ske je veux diir, ou ptét jété pas troo claire!!
ce que je veux exactement c afficher les informations exportées de la base de donnée access et les afficher dans un fichier texte je n'utilise ni listbox ni datagrid ni rien. j'ai reussi a faire ceçi mais le probléme c ke dans un champs je dois mettre CHQE si c un chéque (dont la condition est: le champs=0 ) et mettre DOMI dans le cas contraire.en plus je dois pas exporter tous les champs.
voila mon code dont le problém é dont la boucle IF:

sStr = sStr + dtChEf.Rows(j)(3).ToString + ";"
'j'ai mis la condition ke vs mavé di hier mé ça na pa marché!
v_rc = dtChEf.Rows(j)(0).ToString
If v_rc = "0" Or v_rc = " " Then
sStr = sStr + "DOMI" + ";"
Else
v_re = dtChEf.Rows(j)(6).ToString
If v_re = "0" Or v_re = " " Then
sStr = sStr + " CHQE" + ";"
End If

End If


sStr = sStr + dtChEf.Rows(j)(13).ToString + ";"
sStr = sStr + "MAD" + ";"
sStr = sStr + dtChEf.Rows(j)(10).ToString + ";"
sStr = sStr + dtChEf.Rows(j)(12).ToString + ";"
'là c l a condition ke je mettais hier jlé mis en commentaire
'If dtChEf.Rows(j)(0) = "0" Or dtChEf.Rows(j)(0) = " " Then
' sStr = sStr + dtChEf(j)(6).ToString + ";"
'Else
' If dtChEf.Rows(j)(6) = "0" Or dtChEf.Rows(j)(6) = " " Then
' sStr = sStr + dtChEf(j)(0).ToString + ";"
' End If

'End If
sStr = sStr + dtChEf.Rows(j)(18).ToString + ";"
sStr = sStr + dtChEf.Rows(j)(13).ToString + ";"
sStr = sStr + "MAD" + ";"
sStr = sStr + "Debit" + ";"
sStr = sStr + dtChEf.Rows(j)(10).ToString + ";"


sStr = sStr.Substring(0, sStr.Length - 2)
sWrite.WriteLine(sStr)
Next
sWrite.Close()
fs.Close()
MessageBox.Show(" exportation Réussit ")

Mercii encoor une foiis et desolée pour le dérangement
0
Je n'ai aps de code sous la main, mais tu trouvera aisément ce qu'il te faut sur le net
une recherche simple :
ADO+sample devrais marcher
J'avais bien envie de te recommander msdn,l'aide microsoft, notre bible a tous (chers microsofteurs) mais c pas toujours super clair, par contre ca te serais quand meme utile en tant que complément de ce que tu trouvera sur le site, pour avoir le détail des methodes par exemple.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Bonjour,
j ai crée une application VB6 ACCESS via un data control ADODC mon pb c est que je veux faire un textbox pour chercher des enregistrement, pourriez vous m aider svp et merci
0
salut
tout d'abord vous devez :
- matriser le code sql
- déterminir l'emplacement que vous afficher le résultat de la recherche
on considere la base de données et "collège.mdb"
la table des données est "eleve" avec les champs suivants: code_eleve, nom et prénom

la situation problème est de donner le code d"eleve et afficher le nom et le prénom
moi j'utilise le modéle ADO:

soit l'interface suivante:
une zone de texte avec le nom txtCode
un commande pour effectuer la recherce avec le nom cmdOK
une labe1 pour afficher le nom trouvé avec le nom lblNom

une labe2 pour afficher le prénom trouvé avec le nom lblprénom
e travail à faire est d 'entrer le code d'eleve dans la zone de texte txtcode et afficher le nom sur lblNom et le prénom sur lblPrénom:
le code est :

d'abord ajouter la bibliothèque de modéle ADO
cliquez sur le menu projet
cliquez suir réference
cocher microsoft .ado library 2.5"
le code est
private sur cmdOk_click()

'créer une connexion
dim ct as adodb.connection
' créer un jeu d'enregistrement
dim rc as adodb.recordset
'créer une instance de ct et rc
set ct = new conncetion
set rc =new recordset
' déterminer le fournisseur de données
ct.provider="microsoft.jet.oledb.4.0"
'ouvrir la base de donnes collège.mdb
ct.open "collège.mdb"
' vous dever enregitrer le projet vb et la base de donnes access eleve.mdb dans meme emplacement
' la requete Sql pour faire la recherche
reqRech="select * from table eleve where code_eleve'" & txtcode.text & "'"
' exécuter la requete
rc.open reqrech,ct

if rc.recordcount =0 then
msgbox "eleve introuvable enter le nouveau code"
exit sub
end if
lblnom.caption=rc(1)
lblprénom.caption=rc(2)

'fermer le jeu d'enregistrement rc
rc.close
'liberer la variable rc
set rc=nothing
'fermer la connection
ct.close
'liberer la variable ct
set ct = nothing

end sub


s'il y a d'autre problème mon email est mbarek1891@hotmail.com
0
merci de me repondre
0
Je souhaite avoir une documentation sur l'utilisation d'ADO sous Access avec SQL
0
moi aussi j'ai la même porbléme que toi
0
donner moi un code source pour interface du vb6
0
essai de taper dans le navigateur google pour avoir les code source et interface.Est que ta deja tr
0
bonjour!
SVP je veux savoir comment faire pr recupérer les informations d'une base de donnée access par vb.net les afficher puis les enregistrer ds un fichier texte
envoyez moi le code si c possible c urgent
mercii d'avance
0
salut
le principe est simple:
la solution est divisée en deux parties:
partie 1:
d'abord lire les données de la base access avec l'objet DataReader, puis conserver les données recuperer dans une variable
partie 2
ajouter le contenu de la varaiable dans le fichier en utilsant la classe de framwork File
ok
c'est ça le principe , donc cherche le comment?(le code ) bon courage
0
flowrs Messages postés 80 Date d'inscription lundi 17 mars 2008 Statut Membre Dernière intervention 14 mars 2012 1
26 juil. 2009 à 21:17
Bonjour tt le monde; j'ai besoin de votre aide.

trés prochainement je dois commencer un projet qui consiste à créer une interface graphique entre entre l'utilisateur et une base de donnée dédiée pour la gestion des stagiaires.

d'aprés ce forum i faut passer par deux grandes étapes:

***créer l'interface graphique ( champs de saisi , les boutons.) avec visual basic
***créer la base de données access.

ma question ; pour extraire et stoquer les données est ce qu'uil faut des requetes SQl? si oui ou les mettres??

remarque: si ma question est débile c'est parce que je suis débutante
0
mbarek2005 Messages postés 3 Date d'inscription jeudi 16 juillet 2009 Statut Membre Dernière intervention 27 juillet 2009 > flowrs Messages postés 80 Date d'inscription lundi 17 mars 2008 Statut Membre Dernière intervention 14 mars 2012
27 juil. 2009 à 20:06
salut;
il existe deux façons pour manipuler les données :
la façon 1:Récuperer les données de la base et les affichées dans l'interface de vb ou dans une état
Dans ce cas, il faut utilser les requetes de la sélection paramétrées ou non pour extraire les données de la base, puis il faut déterminer dans le quelle objet, on affiche les données soit dans une zone de texte, dans datagrid ou dans les états à imprimer.
le comment:par exemple:
req="select * from table where condition"
'rs est un jeu d'enregistrement : recordset (l'objet de ado)
'ct est la varaible de la connection
rs.open req,ct
label1.caption=rs(0)
label2.caption=rs(1)

rs(0) et rs(1) et le premier champ et le deuxieme

la façon 2: ecrire sur la base
l'ecriture sur la base est l'une des manipulation suivantes: ajout, modifier, supprimer
dans ce cas, tu peux aussi ecrire la requete de type insert , update et delete ; et l'exécuter sur une variable de la connection
exemple
req="delete * from table where condition"
ct.execute req
donc ici, rien à afficher sur l'interface


et bon courage
0
le msg d'erreur suivant apparait lorske j'execute :
l'opérateur '=' n'est pas défini pour type 'DBNull' et chaîne "0"
et je pense ke l'erreur reside dans cette partie du code


If dtChEf.Rows(j)(0).ToString = "0" Or dtChEf.Rows(j)(0).ToString = " " Then
sStr = sStr + "DOMI" + ";"
Else
If dtChEf.Rows(j)(6).ToString = "0" Or dtChEf.Rows(j)(6).ToString = " " Then
sStr = sStr + " CHQE" + ";"
End If

End If
0
salut
donc tu peut tester le code parie par partie:
d'abord récupérer la valeur de cette propriété:

dim v_r as string

v_r=dtChEf.Rows(j)(0).ToString
exit sub;

parce que le code est besoin des commantaires
0
merci pour votre reponse!!
g testé votr code ,ya pa d'erreur mé la variable ne stock rien...
enfait pkoi le exit sub ? é jle mé en kel ligne?
0
mbarek2005 Messages postés 3 Date d'inscription jeudi 16 juillet 2009 Statut Membre Dernière intervention 27 juillet 2009
23 juil. 2009 à 13:34
salut:
je m'excuse, je ne peux pas apprendre et/ ou comprendre le code.
et je croix que tu cmplique les choses, parce que je croix que tu n'utilse pas une méthode d'analyse mersise par exemple, et d'outre tu peut faciliter l'extraire des données de la base avec le code sql , seulement utiliser une requete select pour avoir sélectionner un ou plusieurs champs et avec des conditions bien déterminer,
donc SVP:
Quelle est la méthode utilisée pour structurer les données,?
Quelle est la méthode utilisée pour extraire les données de la base?
0
salut. moi j arrive pas a programé avec vb.j des difféculté de manipulé vb avec ma base de donnéé.svp j attend des repopnses
0
Hana:
salut. moi j arrive pas a programé avec vb.j des difféculté de manipulé vb avec ma base de donnéé.svp j attend des repopnses.

Salut, Tu as essayé l'inverse?
0
tu pourrai me contacter( si tu veux des cours ) sur l email Msst_2005@hotmail.com
-1
code source pour faire un ajout d'enregistrement dans une base de données Acces.merci
-1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
22 févr. 2009 à 10:57
Bonjour,

La réponse est :

- Bonjour,

- Une phrase est constituée d'un sujet, d'un verbe et d'un complément d'objet.

- Lire ça avant de poster.

;o)
0
salut
on deux methode pour l'ajout d'un enregistrement soit avec la requete Sql Insert Into ou la méthode Addnew
donc moi je préfere la deuxième méthode car il est simple (Addnew)

l'etape 1 pour créer une variable de la connexion et un jeu d'enregistrement est simple
dim ct as adodb.connection
dim rc ad adodb.recordset
set ct = new connection
set rc =new recodeset

ct.provider="..........................
ct.open " le nom de ton base de données .mdb"
rc.open "nomde latable",ct,ad.... dynamique,....
rc.addnew
rc(0)=text1.text
rc(1)=text2.text


..
...
.
..
' remplir les champs d'enregistrement apartir de controle de l'interface

rc.update

rc.close
ct.close
0