تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مساعده في مشروع تخرج
#1
[/[b]b]صباح الخير
عندي مشروع تخرج بالفيجوال
واحتاج مساعدتكم  فيه
بالاكواد.
بليز

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

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

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

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


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



كيف شاغلي ماشي صح
ادري انها اشياء بسيطه بس انا دراستي دبلوم  وم تعمقت كثير في. الفيجواال [/b]
الرد }}}}
تم الشكر بواسطة:
#2
هذا مثال تطبيقي صغير مع خاصية اضافة صورة الزبائن ان وجدت
كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
[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



الله يسعدك
بس المشروع م فتح تطلع لي علامات تعجب \
الرد }}}}
تم الشكر بواسطة:
#4
انا عاملوا على الاصدار العاشر visual basic 2010
كما يمكنك الذهاب وفتح ملف على ان تكون لاحقته او نهايته .vb وفتحه باي محرر ورايت الاكواد
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اخواتي جزيتم خيرااا مساعده هنااا مشكورين مقدمااا امل عوض 8 134 12-09-17, 10:39 PM
آخر رد: ممدوح الخطيب
  [VB.NET] احتاج مشروع مبدئى الارتباط بين v.b وقواعد بياناتsql server ahmed6610 2 133 20-07-17, 06:05 AM
آخر رد: ahmed6610
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 150 14-07-17, 09:43 AM
آخر رد: وادي العوضي
  مساعده فى تعديل كود فاتورة مبيعات نبيل كونكت 4 137 10-07-17, 08:49 PM
آخر رد: نبيل كونكت
  أنشاء مشروع أحصاء الرحلات اوس باسم عبد الحميد 1 165 01-05-17, 06:12 PM
آخر رد: sendbad100
  [سؤال] عندي مشكلة في احتساب الرواتب - مشروع HR dabas 0 255 17-01-17, 10:57 AM
آخر رد: dabas
  محتاج مساعده مستعجله مجموع اجور العمليات لكل طبيب مهندس حيدر 5 467 02-09-16, 12:35 PM
آخر رد: مهندس حيدر
  [سؤال] المساعدة في مشروع عن مبيعات صيدلية romy mohamed 3 614 31-05-16, 04:48 PM
آخر رد: محمد كريّم
  كود الدخول للبرنامج بالادو كلاسيك و مساعده بالادو دوت نت كونيكتيد مود النظام المتصل emando 10 2,409 05-03-16, 10:50 PM
آخر رد: emando
  مساعده في عدم استجابة قاعدة البيانات الي التعديل في الداتا جريد فيو ِAbou Sama 4 735 25-12-15, 08:59 AM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم