Autres Traitements à réaliser

**naima2005** · 18/01/2008, 10h20

Bonjour à tous,

J'essaye dans ma page aspx de taper dans une zone de texte une requête et de renvoyer le résultat vers un GridView en cliquant sur un botton,j'ai réalisé ce traitement et tous ca marche bien et je veux améliorer cela en ajoutant d'autres traitements sur ce programme par exemple dans le cas où je fais une requête sur une table inexistante et puiseque je travaille avec oracle lorseque je fais cela il me retourne cet erreur

1- Oracle.DataAccess.Client.OracleException: ORA-00942: Table ou vue inexistante

Aussi si je tape n'importe quelle chaine sur cette zone il me retourne cet erreur

2- Oracle.DataAccess.Client.OracleException: ORA-00900: Instruction SQL non valide

Ma question est comment je peux récuperer ces erreurs et de pouvoir les retourné dans un MessageBox et rester dans la page qui contient la zone de texte ,le botton et la GridView?

Merci

**lutecefalco** · 18/01/2008, 10h50

En très gros:

Code :

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

1
2
3
4
5
Try
   requéte ...
Catch ex as Exception
   txtBox.text = ex.ToString()
End Try

Je te laisse compléter

**naima2005** · 18/01/2008, 12h08

J'ai trouvé comme solution à ma question est d'utilliser OracleException et j'ai trouvée que la seule solution est d'utiliser javascript on utlisant cette instruction

Page.RegisterStartupScript("Mon Message", "<script langage=""javascript"">alert(""" & errorMessage.Replace("""", "\""").Replace(vbNewLine, "\n") & """)</script>")

voici le code que j'ai crée

---------------------------------------------------------
<head>
<title>Untitled Page</title>
<script language="VB" runat="server" >
Dim connectionString As String = "Data Source= bd; User ID=id; Password=pass;"
Dim conn As OracleConnection
Dim strSql As String
Dim dataset As New DataSet
Dim command As New OracleCommand()
Dim DataAdapter As New OracleDataAdapter()

Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
conn = New OracleConnection(connectionString)

Try
conn.Open()
Dim texte As String
texte = TextBox1.Text
If TextBox1.Text.Length = 0 Then
'MessageBox.Show("Veuillez saisir le traitement que vous voulez effectuer", "Erreur")
'MsgBox("Veuillez saisir le traitement que vous voulez effectuer", MsgBoxStyle.ApplicationModal)
Else
DataAdapter.SelectCommand = New OracleCommand(texte, conn)
DataAdapter.Fill(dataset, "utilisateur")
GridView1.DataSource = dataset.Tables("utilisateur")
GridView1.DataBind()
conn.Close()
End If
Catch i As OracleException

Dim errorMessage As String = "Code: " & i.Number & vbCrLf & _
"Message: " & i.Message

Dim log As System.Diagnostics.EventLog = New System.Diagnostics.EventLog()
log.Source = "My Application"
log.WriteEntry(errorMessage)
Page.RegisterStartupScript("Mon Message", "<script langage=""javascript"">alert(""" & errorMessage.Replace("""", "\""").Replace(vbNewLine, "\n") & """)</script>")

End Try
End Sub
</script></head>
---------------------------------------------------------

L'erreur qui m'a genere existe au niveau de l'instruction coloré en vert c'est à dire celle que j'ai trouvé sur internet :

1-erreur 1 : Warning 5 'Public Overridable Sub RegisterStartupScript(key As String, script As String)' is obsolete: 'The recommended alternative is ClientScript.RegisterStartupScript(Type type, string key, string script). http://go.microsoft.com/fwlink/?linkid=14202' c:\inetpub\wwwroot\Projet1\execute_req.aspx 55 13 http://localhost/Projet1/

2-erreur 2: Error 6 String constants must end with a double quote. c:\inetpub\wwwroot\Projet1\execute_req.aspx 55 160 http://localhost/Projet1/

3-erreur 3:Error 7 Statement cannot appear within a method body. End of method assumed. c:\inetpub\wwwroot\Projet1\execute_req.aspx 55 164 http://localhost/Projet1/

Merci de m'aider à résoudre ces erreurs.

**naima2005** · 18/01/2008, 13h16

Bonjour,

Voici la solution :

Dim connectionString As String = "Data Source= bd; User ID=id; Password=psw;"
Dim conn As OracleConnection
Dim strSql As String
Dim dataset As New DataSet
Dim command As New OracleCommand()
Dim DataAdapter As New OracleDataAdapter()

Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
conn = New OracleConnection(connectionString)

Try
conn.Open()
Dim texte As String
texte = TextBox1.Text
If TextBox1.Text.Length = 0 Then
'MessageBox.Show("Veuillez saisir le traitement que vous voulez effectuer", "Erreur")
'MsgBox("Veuillez saisir le traitement que vous voulez effectuer", MsgBoxStyle.ApplicationModal)
Else
DataAdapter.SelectCommand = New OracleCommand(texte, conn)
DataAdapter.Fill(dataset, "utilisateur")
GridView1.DataSource = dataset.Tables("utilisateur")
GridView1.DataBind()
conn.Close()
End If
Catch i As OracleException

Dim errorMessage As String = "Code: " & i.Number & vbCrLf & _
"Message: " & i.Message

Dim log As System.Diagnostics.EventLog = New System.Diagnostics.EventLog()
log.Source = "My Application"
'log.WriteEntry(errorMessage)
Dim cstype As Type = Me.GetType()
Dim cs As ClientScriptManager = Page.ClientScript
Dim cstext1 As String = "alert(""" & errorMessage.Replace("""", "\""").Replace(vbNewLine, "\n") & """);"
Dim csname1 As String = "PopupScript"
Dim csname2 As String = "ButtonClickScript"
If (Not cs.IsStartupScriptRegistered(cstype, csname1)) Then

cs.RegisterStartupScript(cstype, csname1, cstext1, True)
End If
If (Not cs.IsClientScriptBlockRegistered(cstype, csname2)) Then

Dim cstext2 As New StringBuilder()
cstext2.Append("<script type=""text/javascript""> function DoClick1() {")
cstext2.Append("Form1.Message.value='Text from client script.'} </")
cstext2.Append("script>")
cs.RegisterClientScriptBlock(cstype, csname2, cstext2.ToString(), False)

End If
End Try
End Sub

Cordialement

Autres Traitements à réaliser

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager