تقييم الموضوع :
  • 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 ك ب / التحميلات : 338)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [مشروع] مثال إرتجالي عن برنامج بقالة (او اي شي حولها) سعود 4 1,048 15-11-16, 06:29 PM
آخر رد: samnaj00
  Chart 2010 Abu Ehab 8 1,773 12-09-16, 11:41 PM
آخر رد: Abu Ehab
  [مشروع] مثال نسخ آخر صف من DataTable الى أخرى عند الاغلاق سعود 0 130 29-08-16, 09:11 AM
آخر رد: سعود
  مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى سعود 0 168 17-08-16, 01:16 AM
آخر رد: سعود
  مثال متكامل للتعامل مع قاعدة بيانات SQL Server 2008 و #C ahmedabdelaliem 2 628 29-05-16, 12:07 AM
آخر رد: ahmedabdelaliem
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 13 6,818 19-02-16, 10:26 PM
آخر رد: العواد الصغير
Rainbow [VB.NET] برنامج كامل للربط مع قاعدة بيانات اكسس abdhassan 8 1,752 05-02-16, 10:16 PM
آخر رد: VB_Local
  مثال directcast من database table column الى picturebox سعود 2 953 28-06-15, 06:12 PM
آخر رد: kamikaz17
  [مشروع] مشروع معمول بالفيجوال بيسك Tama 0 918 10-01-15, 11:42 AM
آخر رد: Tama
  [مشروع] حول حفظ اي شيء أكسس 2010 و فيجوال بيسك 2013 سعود 4 1,987 25-12-14, 08:27 PM
آخر رد: سعود

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


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