دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  ali 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


ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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