注册 登录
编程论坛 VB.NET论坛

小学生求指教,谢谢各位大神帮忙看看

pisces零 发布于 2015-12-16 11:43, 3384 次点击
怎么在点击save操作后将上传的源文件文件名和文件路径保存到数据库
Protected Sub Button_FileUpload1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim IntlsUF As Integer
        IntlsUF = 1
 IF file.HasFile=true  THen
            Dim strFileTName As String
            strFileTName=file.PostedFile.FileName
                    Try         
                file.SaveAs(Server.MapPath("~/legacy/TEST/test/") + strFileTName)
            Catch ex As Exception
               Label1.Text = IntlsUF.ToString            
          End Try            
                                if IntlsUF = 1 then
                Label1.Text = "文件上传成功"
                Label1.Text += "<Br/>"
                Label1.Text += "<li>" + "原文件路径:" + strFileTName                              
            Else
             Label1.Text = "文件上传失败" + IntlsUF.ToString
            End If
        End If
        
    End Sub
                                

    Protected Sub Button_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Button_Save.Enabled = False
        If Me.TextBox_Insert_Customer.Text <> "" Then
            Me.TextBox_Insert_Customer.Text = Me.TextBox_Insert_Customer.Text.Trim
            Me.TextBox_Insert_Customer.Text = Me.TextBox_Insert_Customer.Text.ToUpper
        End If
        If Me.TextBox_Insert_RPTID.Text <> "" Then
            Me.TextBox_Insert_RPTID.Text = Me.TextBox_Insert_RPTID.Text.Trim
            Me.TextBox_Insert_RPTID.Text = Me.TextBox_Insert_RPTID.Text.ToUpper
        End If
        Try
            Me.sdDaily_Manage.Insert()
            Me.gvDaily_Mange.DataBind()
        Catch ex As Exception
            'MsgBox(ex.Message)
            Me.ClientScript.RegisterStartupScript(Me.GetType(), "Startup", BuildWarning(ex.Message))
            'Response.Write ( ex.Message)
            'Response.End
        End Try
        Me.TextBox_Insert_Customer.Text = ""
        Me.TextBox_Insert_RPTID.Text = ""
        Me.TextBox_Insert_Description.Text = ""
        Me.Button_Save.Enabled = True
    End Sub
1 回复
#2
pisces零2015-12-16 11:45
在线等,
1