[1.1] Erreur argument non spécifié

Bonjour tout le monde,

Quand j'exécute ma webform j'ai une erreur du type:

Argument not specified for parameter 'cachename' of 'Public Function getRS(connection As ADODB.Connection, query As Object, cachename As String) As Object

quand je m'en vais voir la ligne de code selectionnée, voilà ce que je trouve que c'est cette ligne où réside l'erreur:

Code:

1
2
 
getRS = New ADODB.Recordset

et voilà toute la fonction où se trouve cette ligne

Code:

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
 
Function getRS__(ByVal connection As Object, ByVal query As Object, ByVal cachename As Object) As Object
	Dim myConnectString As String
	'do not use this anymore
	'28.01.2005 TH
 
 
	getRS = New ADODB.Recordset
 
	On Error Resume Next
	connection.Execute("SET NOCOUNT ON")
	getRS.Open(query, connection, ADODB.CursorTypeEnum.adOpenStatic, adLockReadOnly, adCmdText)
	Dim myConnection As ADODB.Connection
	If Err.Number <> 0 Then
		If InStr(Request.ServerVariables.Item("REMOTE_ADDR"), "195.141.116") > 0 Then
			Response.Write("<br><b>" & writeText("Error:", "Erreur:") & "</b><br>" & query & "<br><br>" & Err.Description & "<br><b>Source: </b>" & Err.Source)
		Else
			Response.Write("<br><b>" & writeText("Error:", "Erreur:") & "</b><br>" & writeText("Beim Zugriff auf die Datenbank ist ein Fehler aufgetreten.", "Erreur lors de l'accès à la banque de données."))
		End If
 
		myConnectString = "DRIVER={SQL Server};SERVER=" & ConnS_IP & ";DATABASE=" & ConnS_DB & ";UID=" & ConnS_US & ";PWD=" & ConnS_PW & ";"
		myConnection = New ADODB.Connection
		myConnection.Open(myConnectString)
		myConnection.Execute("INSERT INTO log_error (log_error_type, log_error_IP, log_error_info, log_error_info2, log_error_page, log_error_sid, log_error_adresse_id) VALUES ('getRS', '" & sqlstringy(Left(Request.ServerVariables.Item("REMOTE_ADDR"), 20)) & "', '" & Left(sqlstringy(query), 1000) & "', '" & Left(Err.Description, 200) & "', '" & Left(scriptname, 150) & "', '" & Left(session("sid"), 20) & "', " & repNull(session("adresse_id"), "0") & ")", adLockOptimistic)
		'UPGRADE_NOTE: Object myConnection may not be destroyed until it is garbage collected. Copy this link in your browser for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
		myConnection = Nothing
		Response.End()
	End If
	On Error GoTo 0
End Function

quelqu'un aurait il une idée?

essaie de changer ta ligne :getRS = New ADODB.Recordset par:

Code:

getRSSS = New ADODB.Recordset

. ce que j'ai compris c'est que ton getRS est un recordSet alors que dans l'excpetion c'est une fonction. lors de so appel par getRS = New ADODB.Recordset il te dit qu'il lui manque des paramètres! donc il y a certainement un conflit de noms!
bon courage:D

tu avais raison, j'avais vérifié cela, il y avait une autre fonction nommée GetRS_, c'est un conflit de nom

Merci

j vous en prie.