High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Base de donnée avec ADO en vb

Dernière réponse le 4 sep 2009 à 03:23:53 elocrak, le 13 jun 2002 à 17:21:21 
 Signaler ce message aux modérateurs

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!!!!

Meilleures réponses pour « Base de donnée avec ADO en vb » dans :
Créer une base de données sous Ingres VoirPour créer une base de donées Ingres , il faut utiliser la commande createdb La syntaxe la plus simple est : createdb mabase Dans ce cas, la base utilisera les locations par défaut (II_DATABASE, II_WORK, II_CHECKPOINT, II_DUMP et...
Bases de données - Introduction VoirQu'est-ce qu'une base de données ? Une base de données (son abréviation est BD, en anglais DB, database) est une entité dans laquelle il est possible de stocker des données de façon structurée et avec le moins de redondance possible. Ces données...
PHP - Bases de données VoirPhp permet un interfaçage très simple avec un grand nombre de bases de données. Lorsqu'une base de données n'est pas directement supportée par Php, il est possible d'utiliser un driver ODBC, pilote standard pour communiquer avec les bases de...
Posez votre question Répondre

1

MarsuGL, le 13 jun 2002 à 18:50:59

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.

   
Répondre à MarsuGL

2

SebTheBest, le 14 jun 2002 à 15:55:38

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

   
Répondre à SebTheBest

24

Emmanuel panzu, le 21 jui 2009 à 18:40:33

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

   
Répondre à Emmanuel panzu

25

mbarek, le 21 jui 2009 à 19:46:22
  • +1

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

   
Répondre à mbarek

3

said, le 9 jan 2008 à 22:29:07

Tu pourrai me contacter( si tu veux des cours ) sur l email Msst_2005@hotmail.com

   
Répondre à said

4

ily, le 26 mar 2008 à 21:57:20

Rechercher de logiciel pour recuperer les cd rayes

   
Répondre à ily

5

prince, le 21 aoû 2008 à 10:59:37

Dans la vie il faut se battre. defend toi mon pot .
c'est le regime. je suis sure que c 'est facil

   
Répondre à prince

7

magicsou, le 15 sep 2008 à 13:00:05

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

   
Répondre à magicsou

8

mbarek, le 21 déc 2008 à 13:19:06
  • +1

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

   
Répondre à mbarek

9

Ra7bibi, le 21 fév 2009 à 10:07:53

Code source pour faire un ajout d'enregistrement dans une base de données Acces.merci

   
Répondre à Ra7bibi

10

Polux31, le 22 fév 2009 à 10:57:12
  • +1

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) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

11

mbarek, le 22 fév 2009 à 19:23:25

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

   
Répondre à mbarek

12

ra7bibi, le 22 fév 2009 à 23:51:24

Merci de me repondre

   
Répondre à ra7bibi

13

joseph2009, le 8 mar 2009 à 18:14:28
  • +3

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

   
Répondre à joseph2009

29

 anouer2009, le 4 sep 2009 à 03:23:53

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

   
Répondre à anouer2009

14

kimbwe, le 11 mar 2009 à 09:52:28
  • +1

Je souhaite avoir une documentation sur l'utilisation d'ADO sous Access avec SQL

   
Répondre à kimbwe

15

isaimen, le 6 mai 2009 à 12:56:56

Donner moi un code source pour interface du vb6

   
Répondre à isaimen

16

dauphin, le 16 jun 2009 à 08:35:42

Essai de taper dans le navigateur google pour avoir les code source et interface.Est que ta deja tr

   
Répondre à dauphin

17

angel, le 8 jui 2009 à 12:58:55

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

   
Répondre à angel

18

mbarek, le 8 jui 2009 à 13:31:14

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

   
Répondre à mbarek

27

flowrs, le 26 jui 2009 à 21:17:27

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

   
Répondre à flowrs

28

mbarek2005, le 27 jui 2009 à 20:06:32

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

   
Répondre à mbarek2005

19

angel, le 16 jui 2009 à 15:42:50

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

   
Répondre à angel

20

mbarek, le 16 jui 2009 à 17:04:36

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

   
Répondre à mbarek

21

angel, le 16 jui 2009 à 17:27:30

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?

   
Répondre à angel

22

mbarek, le 16 jui 2009 à 17:45:54

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

   
Répondre à mbarek

23

angel, le 17 jui 2009 à 09:53:59

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

   
Répondre à angel

26

mbarek2005, le 23 jui 2009 à 13:34:40

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?

   
Répondre à mbarek2005
Posez votre question Répondre
Ils ont besoin de votre aide