Probleme

Question

Bonjour a Tous 

g un petit probleme avec une connection a une base de donn&#233;e voila mon code 

Sub maxkeyNumCandidat(ByVal maxcand As Integer)


Dim db  As Connection
Dim Max As Recordset


Set db =  Connection
 db.CursorLocation = adUseClient 
db.Open "PROVIDER =Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';"
Set Max = New Recordset
Max.Open "Select (max(NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic


    While Not Max.EOF
       
        Candid = Max![cand]
        Max.MoveNext
    Wend
    
maxcand = Candid



End Sub

Je ne compren pas pourquoi la ligne gras bloque ..
quand j'affiche l'aide Vb me parle toujours de la librairie MSDN que je n'ai pas est ce que l'erreur vient vraimen du fait qu'il me manque cette libraire ??
On ma parl&#233; aussi de msdn Online ? Ou puis je trouver ca sur le web ?

Merci

methodmay31 · Answer

Cette proc&#233;dure sert en fait a prendre le dernier identifiant inscrit dans la BDD et de lui ajouter un pour pouvoir ins&#233;rer des donn&#233;es a l'identifiant +1 ds la BDD

rvblog · Answer

Salut MethodMay31,

je n'ai pas essay&#233; d'ex&#233;cuter ton code, je ne l'ai que lu.

essayes d&#233;j&#224; : 
Set db =   New  Connection 'il s'agit de cr&#233;er une instance et la r&#233;f&#233;rencer, donc op&#233;rateur New, &#224; moins que Connection soit une variable globale, ce dont je doute.
en plus, conseil pour le long terme, &#233;crit plut&#244;t :

Dim db  As ADODB.Connection
Dim Max As ADODB.Recordset

et 

Set db  = New ADODB.Connection 
Set Max = New ADODB.Recordset

Pendant que j'y suis, ton maxcand ne renverra pas son r&#233;sultat, car il faut d&#233;clarer :
ByRef maxcand As Integer

Voil&#224;,
pour info, la librairie MSDN n'est pas une biblioth&#232;que de liaison dynamique (dll) manquante, mais une vraie biblioth&#232;que &#233;lectronique, toute aussi manquante pour toi, contenant un savoir-faire &#233;tonnant, et une base de connaissance &#233;poustoufflante, et on peut l'acheter aupr&#232;s de Microsoft ou de ses revendeurs.

rvblogn

rvblog · Answer

C'est encore moi,

je viens de lire ton 2&#232;me message, et j'ajoute:

si tu n'as pas trop avanc&#233; dans ton d&#233;veloppement, et que tu es l'architecte de la base de donn&#233;es, et que CheminBase pointe vers une Base Access, tu pourrais avoir le champ cand (qui d'ailleurs aurait mieux fait de s'appeler CANDIDATS.Id, c'est plus parlant et plus conventionn&#233;, mais &#231;a, c'est moi qui le dit) de type Num&#233;roAuto, ce qui aurait pour effet imm&#233;diat de ne pas avoir &#224; te pr&#233;occuper du prochain identifiant disponible avant de faire une insertion d'un nouveau candidat.

rvblogn

methodmay31 · Answer

Effectivement le Byref a &#233;t&#233; test&#233; avant mais pareil erreur avec la librairie msdn ... ah cette fameuse librairie

Sinon j'aimerai aussi savoir ce que repr&#233;sente exactement cette ligne de code db.CursorLocation = adUseClient

Merci

methodmay31 · Answer

Je part en fait d'un existant et de tr&#233; peu de connection en VB puisque j'ai commenc&#233; lundi a coder en VB

Je ne suis donc par l'architecte de la BDD en question Mais je doi adapter cette appli a l'entreprise qui m'embauche en tan que stagiaire donc je pren en note ta remarque et ds ma prochaine Bdd le champ sera auto incr&#233;ment&#233; 

Merci

methodmay31 · Answer

Maintenant mon appli s'arrete a 

.CursorLocation = en me diant erreur de compilation M&#233;thode ou membre de donn&#233;e introuvable....
Que doi je faire ?

rvblog · Answer

Pour r&#233;sumer le adUseClient te donne un curseur c&#244;t&#233; client, ce qui veut dire que tu ne peux l'utiliser qu'en lecture seule.adUseNone, pas de curseur, adUseServer, c&#244;t&#233; serveur, et adUseClientBatch, je ne sais pas, je crois que c'est obsol&#232;te.

Ensuite, je persiste avec mon conseil de ADODB.Connection (et idem pour Recordset). Pourquoi? 
L'objet Data Access Object (DAO) impl&#233;mente aussi un objet Connection, mais il n'impl&#233;mente pas de propri&#233;t&#233; CursorLocation (et si tu l'utilise, VB te dira "erreur de compilation M&#233;thode ou membre de donn&#233;e introuvable...."). 
V&#233;rifies dans tes r&#233;f&#233;rences de projet quel est l'objet que tu utilise DAO ou ADO?

rvblogn

PhilocheMan · Answer

Pour la propri&#233;t&#233; CursorLocation, j'ai trouv&#233; qu'elle permettait de d&#233;finir (ou de retourner) le type de curseur utilis&#233;, soit :
adUseServer (par d&#233;faut) : pour utiliser le curseur fourni par le driver ou le data utilis&#233;
ou 
adUseClient : pour utiliser le curseur local "c&#244;t&#233; client"
Il est dit aussi que cette propri&#233;t&#233; doit &#234;tre fix&#233;e avant d'&#233;tablir la connection, sinon cela reste sans effet.
Pour &#234;tre complet, cette propri&#233;t&#233; existe pour l'objet Collection MAIS AUSSI pour l'objet RecordSet.

Je peux me tromper, mais dans ton exemple (Base de donn&#233;e JET), je ne crois pas qu'on puisse g&#233;rer des curseurs... A voir...

BasicInstinct · Answer

db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';"
Set Max = New Recordset
Max.CursorLocation = adUseClient ' sur le recordset, pas sur la connection.
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic

Candid = Max![cand] 'ta requete ne revoyant qu'une valeur, il n'est pas utile de parcourir le recordset
'perso je prefere l'ecriture
Candid = Max("cand") 'quand j'ai plusieurs champs
'sinon das ton cas, j'ecris
Candid=Max(0)

 BasicInstinct

methodmay31 · Answer

g de nouvelle erreure notamment sur cette ligne que j'ai instanci&#233; sur le recordset et non plus sur la connection

      Max.CursorLocation = adUseClient

l'erreur est une erreur d'&#233;x&#233;cution '91' variable objet ou variable bloc with non d&#233;finie

methodmay31 · Answer

meme erreur que ce dessus avec db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';" je ne compren pas tro si vous pouviez m'aider ??

rvblog · Answer

as-tu &#233;crit ADODB.Connection et ADODB.Recordset?
as-tu v&#233;rifi&#233; les r&#233;f&#233;rences?

refais voir ton code int&#233;gral, pour voir o&#249; tu en es.

rvblogn

methodmay31 · Answer

Dim baseCV As New ADODB.Connection 'connection &#224; la base de donn&#233;es des CV.


Public Sub EtablirConnection()
    baseCV.Provider = "Microsoft.Jet.OLEDB.4.0"
    baseCV.ConnectionString = CheminBase
    baseCV.Open
End Sub
    
    
Public Sub FermerConnection() ' fermeture de la base de donn&#233;e des CV.
    baseCV.Close
End Sub


Sub maxkeyNumCandidat(ByRef maxcand As Integer)


Dim db  As ADODB.Connection
Dim Max As ADODB.Recordset


Set db1 = New ADODB.Connection
Set Max1 = New ADODB.Recordset
Max1.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';"


Max1.CursorLocation = adUseClient ' sur le recordset, pas sur la connection.
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic
    While Not Max.EOF
       
        Candid = Max![cand]
        Max.MoveNext
    Wend
    
maxcand = Candid



End Sub


Voila mon code actuelle ....

rvblog · Answer

Notes bien :


Sub maxkeyNumCandidat(ByRef maxcand As Integer)


Dim db  As ADODB.Connection
Dim Max As ADODB.Recordset


Set db =  New ADODB.Connection      'pas db1
Set  Max   = New ADODB.Recordset   'pas max1

db.Open "PROVIDER= Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';"


 Max .CursorLocation  = adUseClient   'pas max1' sur le recordset, pas sur la connection
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic
    If Not Max.EOF then
        Candid =  Max.fields("cand").value
    End if
    
maxcand = Candid
Max.Close                  'n'oublie pas
Set Max = Nothing      'n'oublie pas non plus

End Sub

En plus BasicInstinct a raison, pas besoin d'it&#233;rer (while wend) tu n'as qu'une r&#233;ponse dans le recordser (le max), mais v&#233;rifies quand m&#234;me Not Max.EOF. Le CursorLocation sur la connection, c'est tout aussi possible, mais cela n'affecte pas le curseur du Recordset, donc aussi sur le Recordset. Enfin, dans le cadre de la portabilit&#233; VB.Net, il faut mieux sp&#233;cifier Max. fields ("ezreorfozei").value.

Je ne m'attendais pas &#224; tant de code, mais, cela fait appara&#238;tre que tu as une connection globale baseCV. Donc remplace 
Set db  = New ADODB.Connection 
par 
Set db = baseCV
et ne refait pas db.Open, elle est d&#233;j&#224; ouverte (umm, si elle est bien ouverte).

rvblogn

methodmay31 · Answer

G chang&#233; mon code par le tien 

et donc maintenant il me di "nom de fichier incorrect "

tu pense que la ligne db.open..... n'est pa n&#233;cessaire ??

rvblog · Answer

mets un point d'arr&#234;t sur le db.open et v&#233;rifie ce qui se trouve dans CheminBase.
point d'arr&#234;t = click gauche dans la barre verticale grise &#224; gauche dans le panneau de code (jusqu'&#224; ce qu'un point rouge apparaisse), sur la ligne concern&#233;e.

Puis tu ex&#233;cutes le code, et quand il s'arr&#234;te, tu prom&#232;nes ta souris sur la variable CheminBase, tu attends que l'infobulle apparaisse, et tu regardes le contenu.

il est bien possible, si on voit l&#224; tout ton code, que cette variable ne soit pas initialis&#233;e.
ne supprime pas tout de suite la ligne db.open, mais plus tard, quand cela marchera, tu v&#233;rifieras si la portion de code EtablirConnection est ex&#233;cut&#233;e, et si elle ouvre bien la baseCV (mais plus tard, c'est pas le probl&#232;me du moment)

rvblogn

BasicInstinct · Answer

Perso je le coderai plutot comme ca :

Function maxkeyNumCandidat() as long 'renvoie le nouveau numero a attribuer ou -1 en cas d'echec

Dim Max As NEW ADODB.Recordset
on error goto Suite
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", baseCV 'pourquoi red&#233;clarer une nouvelle connexion ?
maxkeyNumCandidat=Max(0)
Set Max = Nothing 
exit function
Suite:
maxkeyNumCandidat=-1
     
End Sub

 BasicInstinct

BasicInstinct · Answer

oups : End Function au lieu de End Sub !!

 BasicInstinct

methodmay31 · Answer

J'ai v&#233;rifi&#233; dans l'infobulle le chemin s&#233;l&#233;ctionn&#233; apparait bel et bien  

une erreur autre Nom de fichier inconnu.... 

Je tenais a vous remerciez pour toutes ces  r&#233;ponses

methodmay31 · Answer

incorrect pardon a la place d'inconu

rvblog · Answer

Scuse, j'&#233;tais occup&#233;, mais l'erreur dont tu parles arrive toujours?
Si oui, elle arrive o&#249;?

rvblogn

methodmay31 · Answer

Bonjour, 
D&#233;sol&#233; de pas avoir r&#233;pondu avant .
Mon erreur apparait toujours lors de la saisie dans la base de donn&#233;e,petite explication quant a l'utilisation de mon appli 
 Mon appli doit gerer la gestion de CV pour une entreprise donc a l'ecran d'accueil  j'ai 3 choix possibles la s&#233;l&#233;ction d'une base de donn&#233;e qui s'inscrit dans la variable CheminBase , une fois la BDD s&#233;l&#233;ctionn&#233; je clique sur le bouton inscription pour inscrire les informations relatives a un futur candidat dans la BDD dont le chemin d'acc&#233;s se situe dans la variableCheminBase qui apr&#233;s v&#233;rification contient bien le chemind'acc&#233;s vers la BDD .c'est donc au clique sur le bouton d'inscription que l'erreur apparait toujours en pr&#233;cisant que le nom de fichier 'est incorrect sur la ligne en gras dans le code .

Voila ... est ce que l'explication semble clair ?

Sub maxkeyNumCandidat(ByRef maxcand As Integer)


Dim db  As ADODB.Connection
Dim Max As ADODB.Recordset


Set db =  New ADODB.Connection
Set Max = New ADODB.Recordset
Max.CursorLocation = adUseClient
 db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';" 



Max.CursorLocation  = adUseClient ' sur le recordset, pas sur la connection.
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic
    While Not Max.EOF
       
        Candid = Max![cand]
        Max.MoveNext
    Wend
    
maxcand = Candid

methodmay31 · Answer

g chang&#233; de librairie g mi la derniere est jarive a me connect&#233; et lanc&#233; la form inscription 
merci a tous