السلام عليكم ورحمة الله ..
مصمم صفحة تحتوي على حقول وكذلك أداة File Up Loader لرفع الملفات ...
ولدي مشكلة في الحفظ ولا أدري أين ..
هذه صورة قاعدة البيانات SQL server :
وهذه صورة النموذج :
وهذا الكود في زر إضافة منتج :
اقتباس'*******************
Dim fileName As String = fupPrdImg.PostedFile.FileName
Dim ext As String = fileName.Substring(fileName.LastIndexOf(".")) '**for Ext
ext = ext.ToLower
If ext = ".jpg" Then
lblStatus.Visible = False
ElseIf ext = ".bmp" Then
lblStatus.Visible = False
ElseIf ext = ".gif" Then
lblStatus.Visible = False
ElseIf ext = "jpg" Then
lblStatus.Visible = False
ElseIf ext = "bmp" Then
lblStatus.Visible = False
ElseIf ext = "gif" Then
lblStatus.Visible = False
Else
lblStatus.Visible = True
Exit Sub
End If
'******************
'******************
Dim fileType As String
Dim namePosition As Int16
Dim stream As IO.Stream
Dim conn As New SqlClient.SqlConnection
stream = fupPrdImg.PostedFile.InputStream
Dim uploadedFile(stream.Length) As Byte
stream.Read(uploadedFile, 0, stream.Length)
namePosition = fupPrdImg.PostedFile.FileName.Trim.LastIndexOf("\") + 1
fileName = fupPrdImg.PostedFile.FileName.Substring(namePosition)
fileType = fupPrdImg.PostedFile.ContentType
'******************
txtBayt.Text = fileName.ToString
'******************
conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
Dim command As SqlClient.SqlCommand
Dim strSQL As String
Dim param As Data.SqlClient.SqlParameter
strSQL = "INSERT INTO Products ([Prd_No], [Prd_Type], [Prd_Desc], [Prd_Img])VALUES (@txtPrdName,@ddlprdtype,@txtprddes,@uploadedFile)"
command = New Data.SqlClient.SqlCommand(strSQL, conn)
''Parameter : @txtPrdName..
param = New Data.SqlClient.SqlParameter("@txtPrdName", Data.SqlDbType.Char)
param.Value = xtPrdName.text
command.Parameters.Add(param)
''Parameter : @ddlprdtype..
param = New Data.SqlClient.SqlParameter("@ddlprdtype", Data.SqlDbType.Int)
param.Value = ddlPrdType.SelectedValue
command.Parameters.Add(param)
''Parameter : @txtprddes..
param = New Data.SqlClient.SqlParameter("@txtprddes", Data.SqlDbType.Text)
param.Value = txtPrdDes.Text
command.Parameters.Add(param)
''Parameter : @uploadedFile..
param = New Data.SqlClient.SqlParameter("@uploadedFile", Data.SqlDbType.Image)
param.Value = uploadedFile
command.Parameters.Add(param)
conn.Open()
'Try
command.ExecuteNonQuery()
'Catch ex As Exception
'Throw ex
' End Try
conn.Close()
End Sub
