مثال عن برنامج قاعدة بيانات

اذهب الى الأسفل

مثال عن برنامج قاعدة بيانات

مُساهمة  ali1 في 8/6/2018, 8:54 pm


بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

مثال عن برنامج قاعدة بيانات

1
ربط قاعدة بيانات Access بـ Visual Basic 2010
برمجيا

2
اضافة سجلات الى قاعدة البيانات وتعديلها وحذفها والبحث عن سجل معين،
التنقل من سجل الى سجل


رابط تحميل ملف word وهومظغوط

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


www mediafire com / file / jd67cg2n5jzg4ep / pro1.rar

www mediafire com / file / jd67cg2n5jzg4ep / pro1.rar / file


الكود:

Imports System.Data.OleDb
'Imports System.Windows.Forms.CurrencyManager
Public Class Form1
    Dim conect1 As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\Data01.accdb")
    Dim sda1 As New OleDbDataAdapter("SELECT * FROM tab1", conect1)
    Dim comand1 As OleDbCommand
    Dim tbl1 As New DataTable()
    Dim cmg1 As CurrencyManager
    Dim dread1 As OleDbDataReader
    Dim datset1 As New DataSet()


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sda1.Fill(tbl1)
        Me.TextBox1.DataBindings.Add("Text", tbl1, "ID_m")
        Me.TextBox2.DataBindings.Add("Text", tbl1, "Name")
        Me.TextBox3.DataBindings.Add("Text", tbl1, "Datee")
        Me.cmg1 = CType(Me.BindingContext(tbl1), CurrencyManager)
        Me.cmg1.Position = 0
        Me.DataGridView1.DataSource = tbl1
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' الاضافة
        Try
            comand1 = New OleDbCommand("insert into tab1 values(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "',#" & Me.TextBox3.Text & "#)", conect1)
            conect1.Open()
            comand1.ExecuteNonQuery()
            MsgBox(" تمت عملية الاضافة بنجاح ", MsgBoxStyle.Information)
            conect1.Close()
            cmg1.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        Button1.Enabled = False
        Button4.Enabled = True ' مسح
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' تعديل
        Try
            comand1 = New OleDbCommand("UPDATE tab1 SET ID_m=" & TextBox1.Text & _
            ", Name='" & TextBox2.Text & "',Datee=#" & _
            TextBox3.Text & "# WHERE ID_m=" & TextBox4.Text & " ", conect1)
            conect1.Open()
            comand1.ExecuteNonQuery()
            MessageBox.Show("تم تعديل الاسم بنجاح")
            conect1.Close()
            cmg1.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        Button2.Enabled = False ' تعديل
        Button3.Enabled = False ' حذف
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' الحذف
        Try
            comand1 = New OleDbCommand("DELETE FROM tab1 WHERE ID_m=" & _
            TextBox4.Text & " ", conect1)
            conect1.Open()
            comand1.ExecuteNonQuery()
            MessageBox.Show("تم حذف الاسم بنجاح")
            conect1.Close()
            cmg1.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        Button3.Enabled = False ' حذف
        Button2.Enabled = False ' تعديل

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' مسح و جديد
        If cmg1.Count <> 0 Then
            cmg1.AddNew()
            TextBox1.Focus()
        End If
        Button4.Enabled = False ' مسح
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ' البحث
        conect1.Close()
        Try
            comand1 = New OleDbCommand("SELECT * FROM tab1 WHERE ID_m=" & TextBox4.Text & " ", conect1)
            conect1.Open()
            dread1 = comand1.ExecuteReader()
            dread1.Read()
            TextBox1.Text = dread1("ID_m").ToString()
            TextBox2.Text = dread1("Name").ToString()
            TextBox3.Text = dread1("Datee").ToString()
            dread1.Close()
            conect1.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        Button1.Enabled = False ' اضافة
        Button2.Enabled = True ' تعديل
        Button3.Enabled = True 'حذف

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ' الأول
        If (cmg1.Count <> 0) Then
            cmg1.Position = 0
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ' التالي
        If (cmg1.Count <> 0) Then
            cmg1.Position += 1
        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ' السابق
        If (cmg1.Count <> 0) Then
            cmg1.Position -= 1
        End If

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        ' الأخير
        If (cmg1.Count <> 0) Then
            cmg1.Position = cmg1.Count - 1
        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged
        If ((TextBox1.Text <> "") And (TextBox2.Text <> "")) Then
            Button1.Enabled = True
        Else
            Button1.Enabled = False
        End If
    End Sub
End Class


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 860
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى