... n'importe koi, pour ke je comprenne comment fonctione ce PUTAIN DE TRUC DE MERDE
 
Je peux vous filer en echange des sources ASP de mon site (www.divx.ca.tc)

up

tu peux essayer de faire un prog avec une BDD avec l'assistant fourni avec VB
(nouvelle feuille/feuille d'accès au données)
bonne chance.

--Message édité par Gourou--

Je veux un truc tout fait basic qui fonctionne...
Je veux pas utiliser les glisser copier coller de VB, ca me fera pas comprendre le fonctionnement

Ce n'est pas du glisser copier coller !!
C'est un assistant très pratique...
Car sinon il faut pondre tous seul du code et c vraiment chiant !!
Essaye de générer une feuille avec cet assistant, puis regarde le code créé derrière, il y a même des commentaire !!  

Oui, mais il me fais pas du SQL
Ce ke je veux, c pouvoir ecrire mes requetes SQL et pas faire du ADO de merde ou je pige rien

euh... dans le temps, y'avait tout plein d'exemples sur le CD d'install de VB ... t'as rien trouve d'interessant la dedans ?

Tu veux juste un programme qui se connecte à une Base de Données et qui effectue une requête SQL ?

Voici un exemple de code VB, une fonction qui va chercher des enregistrements et les affiche. Pour que l'exemple marche bien veiller a aller dans les propriétés du projet et ajouter la référence à ADO.
 
Sub ExempleVBBDD
   Dim objCn AS ADODB.Connection
   Dim objRS AS ADODB.Recordset
 
   Set objCn = CreateObject("ADODB.Connection" )
   Set objRS = CreateObject("ADODB.Recordset" )
 
   objCn.Open "Chaine_de_connexion"
 
   If objCn.Errors.Count > 0 Then
      Goto DBErr
   End If
 
   objRS.ActiveConnection = objCn
   objRS.Open "SELECT * FROM La_Table"
 
   If objCn.Errors.Count > 0 Then
      Goto DBErr
   End If
 
   If ObjRS.Recordcount > 0 Then
      ObjRS.MoveFirst
      While Not ObjRS.EOF
         MsgBox "Information de la base : " & ObjRS(0)
         ObjRS.MoveNext
      Wend
   End If
 
   ObjRS.Close
   ObjCn.Close
 
   Set ObjRS = Nothing
   Set ObjCn = Nothing
 
   Exit Sub
 
DBErr:
   MsgBox "Erreur" & vbcrlf & " Source : " & Err.Source & " Message : " & Err.Description
 
   Set ObjRS = Nothing
   Set ObjCn = Nothing
End Sub

Guru : il y a un problème dans ton code
 
If ObjRS.Recordcount > 0 Then  
 
Avec certain type de connection recordcount=0 même si il y a des enregistrement.
Il faut utiliser :
if not ObjRS.eof and not ObjRS.bof then

C COOL, merci, c un bon debut.
 
Ce qui me faudrait, c'est une petite application complete. vous auriez pas ca par hasard ?

 
Je confirme la remarque de LID, ce bug m'a causé des grosses migraines, le seul truc fiable c'est le BOF AND EOF.

MID, Duch> Désolé d'avoir pu vous induire en erreur... J'avais complètement oublié le cas des recordset en ForwardOnly notamment...

--Message édité par Guru--

up

re up