تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015)
#1
مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015)
















كود :
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDbConnection(str)
   Dim cm As New OleDbCommand("", con)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       cm.Parameters.Clear()
       cm = New OleDbCommand("", con)

       cm.CommandText = "aselect"
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As OleDbDataReader = cm.ExecuteReader
       If dr.Read Then
           tid.Text = dr(0)
           tn.Text = dr(1)

           Dim b() As Byte = dr.Item(2)
           Dim ms As New MemoryStream(b)
           apic.Image = Image.FromStream(ms)
       End If
       dr.Close()
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       If tn.Text.Trim.ToLower = "" Then Exit Sub

       If foundcount(tn.Text) < 1 Then
           cm.Parameters.Clear()
           cm = New OleDbCommand("", con)

           cm.CommandText = "ainsert"
           cm.Parameters.AddWithValue("@tn", tn.Text)

           Dim ms As New MemoryStream
           apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim b() As Byte = ms.ToArray
           cm.Parameters.AddWithValue("@pic", b)

           cm.CommandType = CommandType.StoredProcedure
           If con.State = ConnectionState.Closed Then con.Open()
           cm.ExecuteNonQuery()

       Else
           MsgBox("الاسم محجوز")
       End If



   End Sub



   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim tname As String = InputBox("ادخل الاسم المراد البحث عنه")
       If tname.ToString.Trim <> "" Then

           tid.Clear()
           tn.Clear()
           apic.Image = Nothing
           cm.Parameters.Clear()

           cm = New OleDbCommand("", con)
           cm.CommandText = "asearch"
           cm.Parameters.AddWithValue("@tn", tname)
           cm.CommandType = CommandType.StoredProcedure

           If con.State = ConnectionState.Closed Then
               con.Open()
           End If

           Dim dr As OleDbDataReader = cm.ExecuteReader

           If dr.Read Then
               tid.Text = dr(0)
               tn.Text = dr(1)
               Dim b() As Byte = dr(2)
               Dim ms As New MemoryStream(b)
               apic.Image = Image.FromStream(ms)
           End If
           dr.Close()
       End If
   End Sub
   Private Function foundcount(ByVal t As String) As Integer
       cm = New OleDbCommand("", con)
       cm.CommandText = "foundcount"
       cm.Parameters.AddWithValue("@tn", t)
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "aupdate"
       Dim ms As New MemoryStream
       apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
       Dim b() As Byte = ms.ToArray
       cm.Parameters.AddWithValue("@pic", b)
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))

       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "adelete"
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()

   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           ' apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           ' tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub
End Class


الملفات المرفقة
.zip   Stored Procedures.zip (الحجم : 60.66 ك ب / التحميلات : 862)
}}}
#2
جزاكـ الله خير وباركـ الله فيكـ
ربي يحفظكـ ويرضى عنكـ
جعله الله في موازين حسناتكـ
}}}
تم الشكر بواسطة: سعود , الطالب , ابراهيم ايبو
#3
(03-08-15, 03:58 PM)مبرمج بلا حدود كتب : جزاكـ الله خير وباركـ الله فيكـ
ربي يحفظكـ ويرضى عنكـ
جعله الله في موازين حسناتكـ

واياك اخي الكريم Heart
ارجو الاستفادة الكافية في كل مااقدمه.
}}}
#4
السلام عليكم ورحمة الله وبركاته
ما شاءالله لا قوة لا بالله
مواضيعكـ جميعها ذات نفع وفائدة
اسأل الله ان تكون في ميزان حسناتكـ
}}}
تم الشكر بواسطة: سعود , الطالب , ابراهيم ايبو
#5
(03-08-15, 03:00 PM)سعود كتب : مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015)






كود :
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDbConnection(str)
   Dim cm As New OleDbCommand("", con)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       cm.Parameters.Clear()
       cm = New OleDbCommand("", con)

       cm.CommandText = "aselect"
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As OleDbDataReader = cm.ExecuteReader
       If dr.Read Then
           tid.Text = dr(0)
           tn.Text = dr(1)

           Dim b() As Byte = dr.Item(2)
           Dim ms As New MemoryStream(b)
           apic.Image = Image.FromStream(ms)
       End If
       dr.Close()
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       If tn.Text.Trim.ToLower = "" Then Exit Sub

       If foundcount(tn.Text) < 1 Then
           cm.Parameters.Clear()
           cm = New OleDbCommand("", con)

           cm.CommandText = "ainsert"
           cm.Parameters.AddWithValue("@tn", tn.Text)

           Dim ms As New MemoryStream
           apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim b() As Byte = ms.ToArray
           cm.Parameters.AddWithValue("@pic", b)

           cm.CommandType = CommandType.StoredProcedure
           If con.State = ConnectionState.Closed Then con.Open()
           cm.ExecuteNonQuery()

       Else
           MsgBox("الاسم محجوز")
       End If



   End Sub



   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim tname As String = InputBox("ادخل الاسم المراد البحث عنه")
       If tname.ToString.Trim <> "" Then

           tid.Clear()
           tn.Clear()
           apic.Image = Nothing
           cm.Parameters.Clear()

           cm = New OleDbCommand("", con)
           cm.CommandText = "asearch"
           cm.Parameters.AddWithValue("@tn", tname)
           cm.CommandType = CommandType.StoredProcedure

           If con.State = ConnectionState.Closed Then
               con.Open()
           End If

           Dim dr As OleDbDataReader = cm.ExecuteReader

           If dr.Read Then
               tid.Text = dr(0)
               tn.Text = dr(1)
               Dim b() As Byte = dr(2)
               Dim ms As New MemoryStream(b)
               apic.Image = Image.FromStream(ms)
           End If
           dr.Close()
       End If
   End Sub
   Private Function foundcount(ByVal t As String) As Integer
       cm = New OleDbCommand("", con)
       cm.CommandText = "foundcount"
       cm.Parameters.AddWithValue("@tn", t)
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "aupdate"
       Dim ms As New MemoryStream
       apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
       Dim b() As Byte = ms.ToArray
       cm.Parameters.AddWithValue("@pic", b)
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))

       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "adelete"
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()

   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           ' apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           ' tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub
End Class

اخي العزيز
السلام عليكم ورحمة وبركاته
انا اريد حذف الجدول وليس البيانات فقط ؟؟
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
}}}
تم الشكر بواسطة: الطالب
#6
(24-08-15, 04:28 PM)Microformt كتب :
(03-08-15, 03:00 PM)سعود كتب : مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015)






كود :
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDbConnection(str)
   Dim cm As New OleDbCommand("", con)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       cm.Parameters.Clear()
       cm = New OleDbCommand("", con)

       cm.CommandText = "aselect"
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As OleDbDataReader = cm.ExecuteReader
       If dr.Read Then
           tid.Text = dr(0)
           tn.Text = dr(1)

           Dim b() As Byte = dr.Item(2)
           Dim ms As New MemoryStream(b)
           apic.Image = Image.FromStream(ms)
       End If
       dr.Close()
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       If tn.Text.Trim.ToLower = "" Then Exit Sub

       If foundcount(tn.Text) < 1 Then
           cm.Parameters.Clear()
           cm = New OleDbCommand("", con)

           cm.CommandText = "ainsert"
           cm.Parameters.AddWithValue("@tn", tn.Text)

           Dim ms As New MemoryStream
           apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim b() As Byte = ms.ToArray
           cm.Parameters.AddWithValue("@pic", b)

           cm.CommandType = CommandType.StoredProcedure
           If con.State = ConnectionState.Closed Then con.Open()
           cm.ExecuteNonQuery()

       Else
           MsgBox("الاسم محجوز")
       End If



   End Sub



   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim tname As String = InputBox("ادخل الاسم المراد البحث عنه")
       If tname.ToString.Trim <> "" Then

           tid.Clear()
           tn.Clear()
           apic.Image = Nothing
           cm.Parameters.Clear()

           cm = New OleDbCommand("", con)
           cm.CommandText = "asearch"
           cm.Parameters.AddWithValue("@tn", tname)
           cm.CommandType = CommandType.StoredProcedure

           If con.State = ConnectionState.Closed Then
               con.Open()
           End If

           Dim dr As OleDbDataReader = cm.ExecuteReader

           If dr.Read Then
               tid.Text = dr(0)
               tn.Text = dr(1)
               Dim b() As Byte = dr(2)
               Dim ms As New MemoryStream(b)
               apic.Image = Image.FromStream(ms)
           End If
           dr.Close()
       End If
   End Sub
   Private Function foundcount(ByVal t As String) As Integer
       cm = New OleDbCommand("", con)
       cm.CommandText = "foundcount"
       cm.Parameters.AddWithValue("@tn", t)
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "aupdate"
       Dim ms As New MemoryStream
       apic.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
       Dim b() As Byte = ms.ToArray
       cm.Parameters.AddWithValue("@pic", b)
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))

       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       cm = New OleDbCommand("", con)
       cm.CommandText = "adelete"
       cm.Parameters.AddWithValue("@tid", Val(tid.Text))
       cm.CommandType = CommandType.StoredProcedure

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       cm.ExecuteNonQuery()

   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           ' apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = DialogResult.OK Then
           ' tn.Text = IO.Path.GetFileNameWithoutExtension(ofd.FileName)
           apic.Image = Image.FromFile(ofd.FileName)
       End If

   End Sub
End Class

اخي العزيز
السلام عليكم ورحمة وبركاته
انا اريد حذف الجدول وليس البيانات فقط ؟؟
وعليكم السلام
للحذف جدول فقط مرر
DROP TABLE tablename
}}}
#7
بارك الله فيك
}}}
تم الشكر بواسطة: elgokr , سعود , ابراهيم ايبو
#8
ابسط مثال للاجراءات المخزنة.
تذكير
}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] [ليس جديد](انشاء قاعدة بيانات اكسس و جداولها واعمدتها وقت التشغيل) <أدخل لتعرف> سعود 1 2,110 20-04-23, 12:19 AM
آخر رد: سعود
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 4 3,897 19-11-22, 12:32 AM
آخر رد: سعود
  [مشروع] حول حفظ اي شيء أكسس 2010 و فيجوال بيسك 2013 سعود 7 8,161 21-08-22, 01:48 AM
آخر رد: سعود
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 4 4,141 21-08-22, 01:33 AM
آخر رد: سعود
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 8 5,807 09-11-20, 08:03 PM
آخر رد: سعود
  مثال لفحص حالة ملف قاعدة بيانات من نوع اكسس من حيث الاستخدام من عدمه سعود 0 2,429 31-05-20, 07:17 AM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 6,316 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 2,678 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 2,406 01-08-17, 12:10 AM
آخر رد: سعود
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 14 21,804 06-06-17, 05:35 PM
آخر رد: Abdh111

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


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