Hallo Leute,
ich kriege ab und zu eine Fehlermeldung das meine Textbox71 nicht deklariert ist.
Kann mir da jemand bitte helfen?
das ist meine codebehind Datei:
Partial Class details
Inherits System.Web.UI.Page
Private Function GetConnectionString() As String
Return (System.Configuration.ConfigurationManager.Connect ionStrings("freelancerberConnectionString").Connec tionString)
End Function
Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim sqlConnection1 As New Data.SqlClient.SqlConnection(GetConnectionString() )
Dim strname As String
Dim cmd As New Data.SqlClient.SqlCommand
Dim fileName As String = Guid.NewGuid().ToString()
Dim extention As String = IO.Path.GetExtension(FileUpload1.FileName)
Dim txtboxeingabe As String
Dim path1 As String
If FileUpload1.HasFile Then
Try
lblStatus.Text = "Uploading File " + FileUpload1.FileName
FileUpload1.SaveAs("C:\\FreelancerV1\Upload\\" + fileName & extention)
lblStatus.Text = "Datei erfolgreich übertragen"
strname = FileUpload1.FileName.ToString()
txtboxeingabe = TextBox71.Text
path1 = ("C:\\FreelancerV1\Upload\" + fileName & extention)
cmd = New Data.SqlClient.SqlCommand("insert into files (imagename, originalname, filesname, freelancerId, fileshyperlink) values (@imgname, @originalname, @flsname, @UserID, @flshyperlink)", sqlConnection1)
cmd.Parameters.Add("@imgname", Data.SqlDbType.NVarChar).Value = strname
cmd.Parameters.Add("@flsname", Data.SqlDbType.NVarChar).Value = txtboxeingabe
cmd.Parameters.Add("@UserID", Data.SqlDbType.NVarChar).Value = DetailsView1.SelectedValue
cmd.Parameters.Add("@flshyperlink", Data.SqlDbType.NVarChar).Value = path1
cmd.Parameters.Add("@originalname", Data.SqlDbType.NVarChar).Value = FileUpload1.FileName
sqlConnection1.Open()
cmd.ExecuteNonQuery()
sqlConnection1.Close()
'Grdiview1 wird aktuallesiert
GridView1.DataBind()
'Tetbox leeren
TextBox71.Text = String.Empty
Catch
lblStatus.Text = "Unable to save the file"
End Try
Else
lblStatus.Text = "You have to select a file to upload"
End If
End Sub
Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs ) Handles GridView1.RowCommand
If e.CommandName = "Download" Then
Response.Clear()
Dim myFile As IO.FileInfo = New IO.FileInfo(e.CommandArgument)
Response.AddHeader("Content-Disposition", "attachment; filename=" & myFile.Name)
Response.AddHeader("Content-Length", myFile.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(myFile.FullName)
Response.End()
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
DetailsView1.ChangeMode(DetailsViewMode.Insert)
End If
End Sub
'Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
' Dim sqlConnection1 As New Data.SqlClient.SqlConnection(GetConnectionString() )
' Dim cmd As New Data.SqlClient.SqlCommand
'Dim bereich As String
' If DropDownList1.SelectedValue = "0" Then
' Label44.Text = "Select any item !.."
' ElseIf Dropdownlist1.SelectedValue = "1" Then
' bereich = Dropdownlist1.SelectedItem.ToString()
'ElseIf Dropdownlist1.SelectedValue = "2" Then
' bereich = Dropdownlist1.SelectedItem.ToString()
'End If
'cmd = New Data.SqlClient.SqlCommand("insert into files (bereich) values (@bereich)", sqlConnection1)
'cmd.Parameters.Add("@bereich", Data.SqlDbType.NVarChar).Value = bereich
'sqlConnection1.Open()
'cmd.ExecuteNonQuery()
'sqlConnection1.Close()
'End Sub
End Class
Das habe ich in meiner Aspx Seite stehen:
<asp:TextBox ID="TextBox71" runat="server"></asp:TextBox>
Das einzige was ich noch gefunden hatte das ich zwei TextboxID's mit 1 hatte, darauf hin habe ich die eine auf ID 71 geändert und die codebehind angepasst. Aber die Fehlermeldung hatte ich schon vorher die Meldung bezog sich dann halt auf die Texboxid1.
Ich drücke F5+strg für Debugging starten:
Das steht in dem Ausgabefenster(VWD2008 Express) :
C:\Freelancer\details.aspx.vb(32,0): Fehler BC30451: Der Name "TextBox1" wurde nicht deklariert.
C:\Freelancer\details.aspx.vb(49,0): Fehler BC30451: Der Name "TextBox1" wurde nicht deklariert.
Validierung abgeschlossen
========== Build: 0 erfolgreich oder aktuell, Fehler bei 1, 0 übersprungen ==========
und das Fragt VWD2008 :
Fehler beim erstellen. Möchten Sie den Vorgang fortsetzen und die letzte erfolgreiche Build ausführen?
Ja/Nein
ich kriege ab und zu eine Fehlermeldung das meine Textbox71 nicht deklariert ist.
Kann mir da jemand bitte helfen?
das ist meine codebehind Datei:
Partial Class details
Inherits System.Web.UI.Page
Private Function GetConnectionString() As String
Return (System.Configuration.ConfigurationManager.Connect ionStrings("freelancerberConnectionString").Connec tionString)
End Function
Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim sqlConnection1 As New Data.SqlClient.SqlConnection(GetConnectionString() )
Dim strname As String
Dim cmd As New Data.SqlClient.SqlCommand
Dim fileName As String = Guid.NewGuid().ToString()
Dim extention As String = IO.Path.GetExtension(FileUpload1.FileName)
Dim txtboxeingabe As String
Dim path1 As String
If FileUpload1.HasFile Then
Try
lblStatus.Text = "Uploading File " + FileUpload1.FileName
FileUpload1.SaveAs("C:\\FreelancerV1\Upload\\" + fileName & extention)
lblStatus.Text = "Datei erfolgreich übertragen"
strname = FileUpload1.FileName.ToString()
txtboxeingabe = TextBox71.Text
path1 = ("C:\\FreelancerV1\Upload\" + fileName & extention)
cmd = New Data.SqlClient.SqlCommand("insert into files (imagename, originalname, filesname, freelancerId, fileshyperlink) values (@imgname, @originalname, @flsname, @UserID, @flshyperlink)", sqlConnection1)
cmd.Parameters.Add("@imgname", Data.SqlDbType.NVarChar).Value = strname
cmd.Parameters.Add("@flsname", Data.SqlDbType.NVarChar).Value = txtboxeingabe
cmd.Parameters.Add("@UserID", Data.SqlDbType.NVarChar).Value = DetailsView1.SelectedValue
cmd.Parameters.Add("@flshyperlink", Data.SqlDbType.NVarChar).Value = path1
cmd.Parameters.Add("@originalname", Data.SqlDbType.NVarChar).Value = FileUpload1.FileName
sqlConnection1.Open()
cmd.ExecuteNonQuery()
sqlConnection1.Close()
'Grdiview1 wird aktuallesiert
GridView1.DataBind()
'Tetbox leeren
TextBox71.Text = String.Empty
Catch
lblStatus.Text = "Unable to save the file"
End Try
Else
lblStatus.Text = "You have to select a file to upload"
End If
End Sub
Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs ) Handles GridView1.RowCommand
If e.CommandName = "Download" Then
Response.Clear()
Dim myFile As IO.FileInfo = New IO.FileInfo(e.CommandArgument)
Response.AddHeader("Content-Disposition", "attachment; filename=" & myFile.Name)
Response.AddHeader("Content-Length", myFile.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(myFile.FullName)
Response.End()
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
DetailsView1.ChangeMode(DetailsViewMode.Insert)
End If
End Sub
'Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
' Dim sqlConnection1 As New Data.SqlClient.SqlConnection(GetConnectionString() )
' Dim cmd As New Data.SqlClient.SqlCommand
'Dim bereich As String
' If DropDownList1.SelectedValue = "0" Then
' Label44.Text = "Select any item !.."
' ElseIf Dropdownlist1.SelectedValue = "1" Then
' bereich = Dropdownlist1.SelectedItem.ToString()
'ElseIf Dropdownlist1.SelectedValue = "2" Then
' bereich = Dropdownlist1.SelectedItem.ToString()
'End If
'cmd = New Data.SqlClient.SqlCommand("insert into files (bereich) values (@bereich)", sqlConnection1)
'cmd.Parameters.Add("@bereich", Data.SqlDbType.NVarChar).Value = bereich
'sqlConnection1.Open()
'cmd.ExecuteNonQuery()
'sqlConnection1.Close()
'End Sub
End Class
Das habe ich in meiner Aspx Seite stehen:
<asp:TextBox ID="TextBox71" runat="server"></asp:TextBox>
Das einzige was ich noch gefunden hatte das ich zwei TextboxID's mit 1 hatte, darauf hin habe ich die eine auf ID 71 geändert und die codebehind angepasst. Aber die Fehlermeldung hatte ich schon vorher die Meldung bezog sich dann halt auf die Texboxid1.
Ich drücke F5+strg für Debugging starten:
Das steht in dem Ausgabefenster(VWD2008 Express) :
C:\Freelancer\details.aspx.vb(32,0): Fehler BC30451: Der Name "TextBox1" wurde nicht deklariert.
C:\Freelancer\details.aspx.vb(49,0): Fehler BC30451: Der Name "TextBox1" wurde nicht deklariert.
Validierung abgeschlossen
========== Build: 0 erfolgreich oder aktuell, Fehler bei 1, 0 übersprungen ==========
und das Fragt VWD2008 :
Fehler beim erstellen. Möchten Sie den Vorgang fortsetzen und die letzte erfolgreiche Build ausführen?
Ja/Nein