Base de donnée avec ADO en vb

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

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

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

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

moi aussi j'ai la même porbléme que toi

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

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)

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