تقييم الموضوع :
  • 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 ك ب / التحميلات : 570)
الرد
#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
الرد
تم الشكر بواسطة: الطالب , Microformt , اسامه الهرماوي , elgokr
#7
بارك الله فيك
الرد
تم الشكر بواسطة: elgokr , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 5 409 23-07-19, 08:49 PM
آخر رد: سعود
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 0 344 03-07-19, 08:22 AM
آخر رد: سعود
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 2 769 21-04-18, 06:54 PM
آخر رد: سعود
  [مشروع] حول حفظ اي شيء أكسس 2010 و فيجوال بيسك 2013 سعود 6 4,061 18-04-18, 06:40 PM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 3,461 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 865 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 738 01-08-17, 12:10 AM
آخر رد: سعود
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 14 13,664 06-06-17, 05:35 PM
آخر رد: Abdh111
Wink [مشروع] مثال إرتجالي عن برنامج بقالة (او اي شي حولها) سعود 5 3,357 21-01-17, 07:17 AM
آخر رد: سعود
  Chart 2010 Abu Ehab 8 2,956 12-09-16, 11:41 PM
آخر رد: Abu Ehab

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


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