[hnoo25]

[/[b]b]صباح الخير
عندي مشروع تخرج بالفيجوال
واحتاج مساعدتكم  فيه
بالاكواد.
بليز

مشروعي عن مركز تنميه نسائي

صممت الواجهه الرئيسيه  

http://i.imgur.com/JqXpOFD.jpg

ابغا تحت النشاطات ليست بوكس
وتحت المتدربين. قريد داتا
ومو عارفه كيف  اربط واكتب الاكواد
وهينا ربطتها بقاعدة البيانات أكسس


Http://i.imgur.com/pwi4EIU.jpg      



كيف شاغلي ماشي صح
ادري انها اشياء بسيطه بس انا دراستي دبلوم  وم تعمقت كثير في. الفيجواال [/b]

[hitman48]

هذا مثال تطبيقي صغير مع خاصية اضافة صورة الزبائن ان وجدت

كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim con As New OleDbConnection
   Dim cmd As New OleDbCommand
   Dim i As Integer


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As String
       str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=User.accdb"
       con = New OleDbConnection(str)
       con.Open()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       On Error Resume Next
       OpenFileDialog1.Filter = "*.jpg|*.jpg"
       OpenFileDialog1.ShowDialog()
       Dim path As String = OpenFileDialog1.FileName
       pb1.Image = Image.FromFile(path)


   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ms As New MemoryStream()
       Dim arrimage() As Byte
       If (pb1.Image IsNot Nothing) Then
           pb1.Image.Save(ms, pb1.Image.RawFormat)
           arrimage = ms.GetBuffer
           ms.Close()

       End If


       With cmd
           .Connection = con
           .CommandText = "INSERT INTO Info(Nom,sex,age,image) VALUES(@a0,@a1,@a2,@3)"
           .Parameters.Add("@a0", OleDbType.VarChar).Value = TextBox1.Text
           .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox2.Text
           .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBox3.Text
           .Parameters.Add("@a3", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value)
           i = .ExecuteNonQuery()

           .Dispose()
con.close()
           If (i > 0) Then
               MsgBox("Save Seccess")
           End If

       End With



   End Sub
End Class

---

وهذا مشروع معمول عالسريع للافائدة
http://up.dev-point.com/download147027.html

[hnoo25]

[quote='hitman48' pid='53687' dateline='1423238657']
هذا مثال تطبيقي صغير مع خاصية اضافة صورة الزبائن ان وجدت

كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
  Dim con As New OleDbConnection
  Dim cmd As New OleDbCommand
  Dim i As Integer


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim str As String
      str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=User.accdb"
      con = New OleDbConnection(str)
      con.Open()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      On Error Resume Next
      OpenFileDialog1.Filter = "*.jpg|*.jpg"
      OpenFileDialog1.ShowDialog()
      Dim path As String = OpenFileDialog1.FileName
      pb1.Image = Image.FromFile(path)


  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim ms As New MemoryStream()
      Dim arrimage() As Byte
      If (pb1.Image IsNot Nothing) Then
          pb1.Image.Save(ms, pb1.Image.RawFormat)
          arrimage = ms.GetBuffer
          ms.Close()

      End If


      With cmd
          .Connection = con
          .CommandText = "INSERT INTO Info(Nom,sex,age,image) VALUES(@a0,@a1,@a2,@3)"
          .Parameters.Add("@a0", OleDbType.VarChar).Value = TextBox1.Text
          .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox2.Text
          .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBox3.Text
          .Parameters.Add("@a3", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value)
          i = .ExecuteNonQuery()

          .Dispose()
con.close()
          If (i > 0) Then
              MsgBox("Save Seccess")
          End If

      End With



  End Sub
End Class

---

وهذا مشروع معمول عالسريع للافائدة
http://up.dev-point.com/download147027.html
[/quot



الله يسعدك
بس المشروع م فتح تطلع لي علامات تعجب \

[hitman48]

انا عاملوا على الاصدار العاشر visual basic 2010
كما يمكنك الذهاب وفتح ملف على ان تكون لاحقته او نهايته .vb وفتحه باي محرر ورايت الاكواد