Salut,
je reprend le code
Dim cnn As ADODB.connection
Dim cmd As
new ADODB.Command
Dim rst As
new ADODB.Recordset
Set cnn = New ADODB.connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "D:\Documents and Settings\geoffroy\Desktop\PMP\Secured.mdw"
End With
Set cmd = New ADODB.Command
'Set rst = New ADODB.Recordset
With cmd
.CommandType = adCmdText
.CommandText = "SELECT [area].* FROM [area]"
.ActiveConnection = cnn
End With
Set rst = cmd.Execute
a tout hazard en fesant ainsi là où j'ai mis les caratères en gras
-------------------------------
Réponse au message :
-------------------------------
j'ai utilise ce code mais il ne marche pas au dernier moment...
cad a la ligne
set rest = cmd.execute...
le message d'erreur indique que access VBA ne retrouve pas la table area...
de plus, j'ai teste la requete, il marche evidemment...
Je suis donc dans la merde ou vous pouvez me tirer de la ?
Merci!!
access 2000 et microsft activeX data object 2.0 library...
Dim cnn As ADODB.connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set cnn = New ADODB.connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "D:\Documents and Settings\geoffroy\Desktop\PMP\Secured.mdw"
End With
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
With cmd
.CommandType = adCmdText
.CommandText = "SELECT [area].* FROM [area]"
.ActiveConnection = cnn
End With
Set rst = cmd.Execute
il faut savoir qu'on ne peut pas tout savoir...
-------------------------------
Réponse au message :
-------------------------------
Yahan, j'ai oublié de préciser quelque chose de très important. J'ai Access 97 au boulot !!! Et je pense que ce que tu m'as indiqué est bon pour Access 2002. Merci et @+
chamsy
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'ai essayer ton code est ça commence à aller. En fait je n'avais pas la bonne librairie. Mais malheureusement j'ai toujours un problème : le compilateur ne reconnait pas "CurrentProject". J'ai essayé avec CurrentDB, mais rien à faire. Merci beaucoup pour ton aide.
:) :)
chamsy
-------------------------------
Réponse au message :
-------------------------------
moi je suis entrain de bosser sur un truc et j'ai ça qui foncttionne
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = CurrentProject.Connection
Set rst = cn.Execute("select sum(montant_ttIn) as sommedemontant from interventions')
If IsNull(rst.Fields("sommedemontant")) Then
Me.Texte18 = 0
Else
Me.Texte18 = rst.Fields("sommedemontant")
End If
sans oublier la reference mado microsof activx data object library
Yann
-------------------------------
Réponse au message :
-------------------------------
J'ai écrit ce code :
Dim cn As Connection
Dim rst As Recordset
Dim req As String
Dim ttcoef As String
Set cn = CurrentDb.Connection
req = "select sum(kp) as ttcoeff from SALARIES"
Set rst = cn.Execute(req)
total.Text = rst.Fields("ttcoeff")
Mais ça ne marche toujours pas
Merci de m'aider !!!
@+ j'éspère.
chamsy
-------------------------------
Réponse au message :
-------------------------------
ben c'est bien SUM
select sum(coeff) from.............
avant ds le code il faut
dim cn as adodb.connection
dim rst as new adodb.recordset
set cn = currentproject.connection
set rst = cn.execute("select sum(coeff) as ttcoeff......")
me.texte = rst.fields("ttcoeff")
il me semble que c'est bon
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
J'ai un grand problème que je n'arrive pas à résoudre ...
Voilà j'ai une table SALARIES avec un champs Coeff. Je dois faire tout bêtement la somme de tous mes coeffs et l'afficher dans une zone de texte. Comment dois-je faire ??? Je cherche le code à écrire pour ma requête SQL, les déclarations ... HELP ME PLEASE -- SINON MOI ETRE UN HOMME MORT !!!
Merci beaucoup à tous.
Chamsy
