20-05-18, 10:57 PM
السلام عليكم اخواني
انا مبتدا في برمجيات سطح المكتب اعمل على مشروع بسيط بالفيبي
الامر هو اني استطعت فهم طريقة اضافة نصوص الى قاعدة اكسس ( لاتختلف كثيرا عن الويب) لاكن المشكلة هي عندما يكون لدي نصوص, ارقام وصورة
صورة لتوضيح الفكرة: https://prnt.sc/jkc82h
اريد شرح لطيقة عمل ذالك جزاكم الله خيرا بحث في اليوتيوب ولاشيء افادني
شكرا لكم
كود زر اضافة البيانات ( زر الحفظ ajouter)
كود رفع الصورة الى البيكتربوكس
صورة من قاعدة البيانات: http://prntscr.com/jkcbvu
شكرالكم
انا مبتدا في برمجيات سطح المكتب اعمل على مشروع بسيط بالفيبي
الامر هو اني استطعت فهم طريقة اضافة نصوص الى قاعدة اكسس ( لاتختلف كثيرا عن الويب) لاكن المشكلة هي عندما يكون لدي نصوص, ارقام وصورة
صورة لتوضيح الفكرة: https://prnt.sc/jkc82h
اريد شرح لطيقة عمل ذالك جزاكم الله خيرا بحث في اليوتيوب ولاشيء افادني
شكرا لكم
كود زر اضافة البيانات ( زر الحفظ ajouter)
كود :
Private Sub AddV_Click(sender As Object, e As EventArgs) Handles AddV.Click
Dim arrImage() As Byte
Dim NmImage As String
Dim myMs As New IO.MemoryStream
If Not IsNothing(CarImg.Image) Then
CarImg.Image.Save(myMs, CarImg.Image.RawFormat)
arrImage = myMs.GetBuffer
NmImage = "?"
Else
arrImage = Nothing
NmImage = "NULL"
End If
conn.Open()
Dim cmd As New OleDbCommand With {
.Connection = conn
}
If NmImage = "?" Then
cmd.CommandText = "INSERT INTO Voiteurs ([Marque],[Immatriculation],[Kelometre],[Couleur],[RentTime], CardImg) VALUES (@TxbMarqueV,@TxbImmat,@TxbKilom,@CmbCouleurV,@TxbRentTime,@CardImg)"
cmd.Parameters.Add("@CardImg", OleDbType.Binary).Value = arrImage
cmd.Parameters.Add("@TxbMarqueV", OleDbType.VarChar).Value = TxbMarqueV.Text
cmd.Parameters.Add("@TxbImmat", OleDbType.VarChar).Value = TxbImmat.Text
cmd.Parameters.Add("@TxbKilom", OleDbType.VarChar).Value = TxbKilom.Text
cmd.Parameters.Add("@CmbCouleurV", OleDbType.VarChar).Value = CmbCouleurV.Text
cmd.Parameters.Add("@TxbRentTime", OleDbType.VarChar).Value = TxbRentTime.Text
Else
cmd.CommandText = "INSERT INTO Voiteurs ([Marque],[Immatriculation],[Kelometre],[Couleur],[RentTime], CardImg) VALUES('" & TxbMarqueV.Text & "','" & TxbImmat.Text & "','" & TxbKilom.Text & "','" & CmbCouleurV.Text & "','" & TxbRentTime.Text & "'," & NmImage & ")"
cmd.Parameters.Add("@CardImg", OleDbType.Binary).Value = arrImage
cmd.Parameters.Add("@TxbMarqueV", OleDbType.VarChar).Value = TxbMarqueV.Text
cmd.Parameters.Add("@TxbImmat", OleDbType.VarChar).Value = TxbImmat.Text
cmd.Parameters.Add("@TxbKilom", OleDbType.VarChar).Value = TxbKilom.Text
cmd.Parameters.Add("@CmbCouleurV", OleDbType.VarChar).Value = CmbCouleurV.Text
cmd.Parameters.Add("@TxbRentTime", OleDbType.VarChar).Value = TxbRentTime.Text
End If
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("Data Has Been Added")
End Sub
كود رفع الصورة الى البيكتربوكس
كود :
Private Sub AddPicV_Click(sender As Object, e As EventArgs) Handles AddPicV.Click
OpenFileDialog1.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
'Dim OpenFileDialog1 As New OpenFileDialog
With OpenFileDialog1
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
MsgBox("image is not choised")
Return
Else
CarImg.Image = Image.FromFile(.FileName)
End If
End With
End Sub
صورة من قاعدة البيانات: http://prntscr.com/jkcbvu
شكرالكم