yavari
سه شنبه 20 تیر 1385, 19:34 عصر
سلام
کد من آپلود نمی کنه
فقط وقتی باتن را کلیک میکنم تو StatusBar مینویسه :
Error On Page
نمی فهمم کجاش مشکل داره ؟ :متفکر:
<SCRIPT language="vb" runat="server">
Dim StrFileSave As String
Sub SaveDatabase()
Dim sqlAdapter As SqlDataAdapter
Dim CnnStr, strSQL As String
Dim Datset As New DataSet
Dim Cnn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("CnnStr"))
sqlAdapter = New SqlDataAdapter("SELECT * FROM tableWHERE Radif=" & DefineUser, Cnn)
sqlAdapter.Fill(Datset, "h")
strSQL = "INSERT INTO table(Field) VALUES ('" & StrFileSave & "')"
Dim Cmd As New SqlCommand(strSQL, Cnn)
'Try
Cnn.Open()
Cmd.ExecuteNonQuery()
'Catch ex As OleDbException
' Response.Write(ex.Message.ToString())
'Finally
If Cnn.State <> ConnectionState.Closed Then Cnn.Close()
End Sub
Sub btnload_click(ByVal s As Object, ByVal e As EventArgs)
If Not (filecontrol.postedfile Is Nothing) Then
Dim StrFile As String = System.IO.Path.GetFileName(filecontrol.postedfile. FileName)
StrFileSave = "UploadUseres\" & StrFile
Dim PathStringServer As String = ConfigurationSettings.AppSettings("UploadUserPath")
filecontrol.PostedFile.SaveAs(PathStringServer & StrFileSave)
SaveDatabase()
End If
End Sub
</SCRIPT>
کد من آپلود نمی کنه
فقط وقتی باتن را کلیک میکنم تو StatusBar مینویسه :
Error On Page
نمی فهمم کجاش مشکل داره ؟ :متفکر:
<SCRIPT language="vb" runat="server">
Dim StrFileSave As String
Sub SaveDatabase()
Dim sqlAdapter As SqlDataAdapter
Dim CnnStr, strSQL As String
Dim Datset As New DataSet
Dim Cnn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("CnnStr"))
sqlAdapter = New SqlDataAdapter("SELECT * FROM tableWHERE Radif=" & DefineUser, Cnn)
sqlAdapter.Fill(Datset, "h")
strSQL = "INSERT INTO table(Field) VALUES ('" & StrFileSave & "')"
Dim Cmd As New SqlCommand(strSQL, Cnn)
'Try
Cnn.Open()
Cmd.ExecuteNonQuery()
'Catch ex As OleDbException
' Response.Write(ex.Message.ToString())
'Finally
If Cnn.State <> ConnectionState.Closed Then Cnn.Close()
End Sub
Sub btnload_click(ByVal s As Object, ByVal e As EventArgs)
If Not (filecontrol.postedfile Is Nothing) Then
Dim StrFile As String = System.IO.Path.GetFileName(filecontrol.postedfile. FileName)
StrFileSave = "UploadUseres\" & StrFile
Dim PathStringServer As String = ConfigurationSettings.AppSettings("UploadUserPath")
filecontrol.PostedFile.SaveAs(PathStringServer & StrFileSave)
SaveDatabase()
End If
End Sub
</SCRIPT>