Announcement

Collapse
No announcement yet.

Deklaration Fehler

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Deklaration Fehler

    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
    Zuletzt editiert von homermg; 19.08.2009, 16:38.
Working...
X