Connexion entre vb et oracle8i

bonjour,

Tout d'abord il faut inclure la référence "Microsoft ActiveX Data Objects Librairy x.x" dans ton projet.
Ensuite voilà un exemple de connexion à Access depuis VB

dim cnx as ADODB.connection  ' déclaration de l'objet connexion
dim rst as ADODB.recordset       ' déclaration du recordset pour récupèrer le résultat de la requête

sub form_load()
  set cnx=new ADODB.connection      ' création d'un objet connection
    cnx.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\db1.mdb;"      '
    If cnx.State = adStateOpen Then
        Set rst = New ADODB.Recordset       ' création du recordset
        rst.Open "select champ1 from table1", cnx      ' Passage de la requète en appliquant la connexion (cnx)
        text1.text=""
        While Not rst.EOF    'boucle de lecture du recordset
            text1.text=text1.text+Str(rst.Fields(0).Value)+vbcrlf    'affichage des données contenues dans le recordset
            rst.MoveNext
        Wend
        rst.Close     'fermeture du recordset
        Set rst = Nothing    'on vide l'objet recordset
        cnx.close    'fermeture de la connexion
    end if
  set cnx=nothing    'on vide l'objet connexion
end sub

Voilà, arrange ça à ta sauce, tu as tous les éléments pour communiquer avec ta base

Zak

bonjour,

regarde ici : http://www.commentcamarche.net/forum/affich 827451 interf visual basic 6 0 base access 2000

Zak

Merçi

de rien
Si ça répond à ta question, n'oublie pas de marquer résolu ... merci

salut vraiment j'arrive pa à resolu mon problème voila exactement le détaile de mon problème:
mon application et gestion de bibliothèque j'ai 6 interfaces dont une "Adhérant" il existe des bouton telque enregistrer qui sert à ajouter un nouveau adhérant .à l'exécution si je clique sur cette bouton un boite de dialogue s'affiche "object required" et si je clique sur debug elle me marque que le faute existe au niveau de ligne suivante:
Call Connect.ConnexionOLEDB

c si est l code de bouton enregistrer:

Private Sub cmdenregistrer_Click()
Call Connect.ConnexionOLEDB
Call Connect.Existlecteur(nblec, txtcodelecteur.Text)
If (nblec = 1) Then
MsgBox ("Ajout des données impossible : le lecteur existe déjà")
Else
strsql = " insert into lecteur values (" & txtcodelecteur.Text & " , " & txtnom.Text & " , " & txtprenom.Text & " , " & txtcin.Text & " , " & txttelephone.Text & " ," & txttyp.Text & " "
Call Connect.ExecuteSQL
MsgBox ("Ajout des données : opération effectuée")
End If
Call Connect.FermerConnexion
End Sub

Merçi zak

j'espère que ça t'aide ...

je sui entrain de fair qlq modéfication pour le moment ça va je t'informe plutard de résultat