Discussion :

[Invité]

Voilà, j'ai un léger soucis de conversion de mon code VB en ASP pour pouvoir lancer ma requête.

Voilà mon code :

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
Sub b4_Onclick
	arr = form1.a1.value
	If arr <> "xxx" Then
		Dim MyVar
		MyVar = MsgBox ("Est-ce un arrêt générique ?", 4, "Référencement de l'arrêt")
		QQchose = Split(arr, "#")
		Desc = QQchose(0)
		Lieu = QQchose(1)
		If MyVar = 6 Then
			SQL = "Update PoteauRef Set Qualite = 'O' Where description Like '" & Desc & "%'"
			SQL = SQL + " And commune Like '" & Lieu & "%'"
		Else
			SQL = "Update PoteauRef Set Qualite = 'N' Where description Like '" & Desc & "%'"
			SQL = SQL + " And commune Like '" & Lieu & "%'"
		End If
		form1.submit
	Else
		alert "Veuillez sélectionner un arrêt"
	End If
End Sub

Je n'arrive pas à dissocier mon code VB de mon code ASP pour pouvoir récupérer mes informations et lancer ma requête. J'ai voulu contourner le problème en créant une page d'enregistrement, mais dans ce cas, je ne récupère pas les informations indispensables à l'éxécution de la requête...

Si quelqu'un à une solution, je suis preneuse !

Excellente matinée

[Invité]

Finalement, j'ai fait du forcing... C'est pas forcément le plus juste mais voilà comment ca fini par marcher :

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
 
Sub b4_Onclick
	arr = form1.a1.value
	If arr <> "xxx" Then
		Dim MyVar
		MyVar = MsgBox ("Est-ce un arrêt générique ?", 4, "Référencement de l'arrêt")
		If MyVar = 6 Then
			Typ = "O"
		Else
			Typ = "N"
		End If
		form1.Var.value = Typ
		form1.action = "EnregistrerA.asp"
		form1.submit
	Else
		alert "Veuillez sélectionner un arrêt"
	End If
End Sub

Var étant un champ caché dans ma page...

La page EnregistrerA lance la requête et l'enregistrement.

Voilà, j'ai crié au loup trop tôt ! Désolée !