Base de donnée avec ADO en vb
elocrak
-
amine -
amine -
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!!!!
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!!!!
A voir également:
- Base de donnée avec ADO en vb
- Base de registre - Guide
- Vb - Télécharger - Langages
- Formules mathématiques de base - Télécharger - Études & Formations
- Gigaset ne reconnait plus sa base - Forum telephonie fixe
- Formules excel de base - Guide
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
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
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
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
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
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
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
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.
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.
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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?
g testé votr code ,ya pa d'erreur mé la variable ne stock rien...
enfait pkoi le exit sub ? é jle mé en kel ligne?
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?
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?
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
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?
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?
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)
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)
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
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
Ir Emmanuel PANZU NGIMBI
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
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