0/5 (15 avis)
Snippet vu 33 728 fois - Téléchargée 70 fois
'Declaration Dim env As rdoEnvironment Dim con As rdoConnection Dim rdorequest As rdoQuery Dim RESULT As rdoResultset 'La connexion Set env = rdoEnvironments(0) Set con = env.OpenConnection("", rdDriverNoPrompt, False, "UID=sa;PWD=your_pswd;Database=name_base_sql;server=name_server;driver={SQL Server};DSN=''") 'votre requete request = "Select * from name_table where name_champ = " & "'" + valeur + "'" Set RESULT = con.OpenResultset(request, rdOpenKeyset, rdConcurLock, StillExecuting + rdExecDirect) ' nombre d'enregistrement de la base sql Nbr = RESULT.RowCount Do While Not RESULT.EOF ' votre traitement loop
23 oct. 2006 à 12:41
27 avril 2005 à 18:01
29 nov. 2003 à 16:18
Et ou est-ce que je peux télécharger les composants qu'il faut pour les BDD MySQL SVP?
27 nov. 2003 à 09:03
20 août 2003 à 16:26
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.