怎么在點擊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
' IntlsUF = 0
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/82865.html
標籤：控件
下一篇：求各位大神幫忙！