Discussion :

[Mvu]

Bonjour, J'ai la commande suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.Open IDTable, connStr, 2, 2

qui si je comprends bien ouvre la connection sur la table IDTable de ma ase Access;
Je vousdrais ajouter une condition, à savoir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE id = "& id & "

J'ai essayé la formule suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.Open IDTable WHERE id="&id&", connStr, 2, 2

mais il n'aime pas. Il répond "Fin d'instruction attendue".
Qu'est qui n'est pas juste dans ma syntaxe ?

[neguib]

Bonjour Mvu

Veillez à vous mettre en règle rapidement en éditant votre post afin de modifier votre titre en conséquence.
(Bouton en haut à droite du premier post de ce thread)

Utilisation des tags:
Afin de faciliter la recherche et la navigation sur ce forum, nous avons mis en place un système de tags (Mots clés entre crochets dans les titres des messages). Ces tags ont pour but de déterminer de manière immédiate le langage en question : ...

voir > http://www.developpez.net/forums/viewtopic.php?t=326091
Soyez rigoureux quant aux respects des règles du forum, elles vous garantissent également les réponses les plus appropriées à résoudre votre souci, tout en veillant à ne pas incommoder.

Je vous remercie de votre attention à maintenir le forum agréable et efficace.

Cordialement neguib

[Mvu]

Je vois plus clair maintenant mais ce n'ets pas encore parfait:
Voici mon code complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Connection string
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../fpdb/Suppliers.mdb")
 
' Recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
 
rs.Open IDTable,  connStr, 2 , 2
 
' Adding data
rs.Find 
 
rs("id") = idInput
 
rs.Update
 
rs("FileName") = fileName
rs("File Size") = fileSize
rs("File Data").AppendChunk fileData
rs("Content Type") = contentType
 
rs.Close
Set rs = Nothing

Il me répond maintenant:
Nombre d'arguments ou affectation de propriété incorrects: 'Find' à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.Open IDTable,  connStr, 2 , 2

Que dois-je modifier ?

[neguib]

Comme vous souhaitez une reponse .Net pourquoi n'utilisez vous pas ADO.Net plutôt que ADODB

http://dotnet.developpez.com/cours/ado.net/

[Mvu]

Non, je demande une réponse en ASP, pas en ASP.NET

[lutecefalco]

C'est pas le bon forum alors

[Mvu]

J'ai finalement trouvé la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
		' Checking to make sure if file was uploaded
		If (fileSize < 70000) AND (contentType="image/pjpeg" OR contentType="image/jpeg" OR contentType="image/gif")  Then
 
			' Connection string
			Dim connStr
				connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../fpdb/Suppliers.mdb")
 
			' Recordset object
			Dim rs
				Set rs = Server.CreateObject("ADODB.Recordset")
 
			if idTable="Whoswho" then	
				rs.Open "Whoswho WHERE (ID= 38)", ConnStr,2,2
            else
                rs.Open idTable, ConnStr,2,2
			end if
 
				' Updating data
 
 					rs("idSupplier") = pidSupplierInput
 
					rs("FileName") = fileName
					rs("File Size") = fileSize
					rs("File Data").AppendChunk fileData
					rs("Content Type") = contentType		
 
				rs.Update
 
 
 
			   	rs.Close
				Set rs = Nothing