ربط الأكسيس مع VB.NET 2005عن طريق ADO

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

مبروك القسم الجديد و أقدم لكم هديتى الى قسم الأكسيس و البرامج الاخرى

كود لربط الأكسيس مع VB.NET 2005عن طريق ADO مع أظهار البيانات على DataGridView أتمنى أن يعجبكم

Public Class Form2
    Dim conn As New OleDb.OleDbConnection
    Dim ds As DataSet

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        conn.ConnectionString = ("Provider = Microsoft.jet.oledb.4.0;Data Source=|DataDirectory|Test.mdb")
        FillData()
    End Sub
    Private Sub FillData()
        Dim SelectString As String
        SelectString = "Select * from T_ID"
        Dim Cmd As New OleDb.OleDbCommand(SelectString, conn)
        Dim SDA As New OleDb.OleDbDataAdapter(Cmd)
        ds = New DataSet
        SDA.Fill(ds)
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = ds.Tables(0).TableName
    End Sub
End Class

مرفق ملف

سيكون الملف التنفيذى exe باسم Application_Access

طبعا فى المسار التالى بعد فك ضغط الملف

Application_Access\Application_Access\bin\Debug

الملف يحتاج Microsoft .NET Framework سيعمل معك

اذا كنت منصب VB.NET 2005 سيعمل معك الملف بدون مشكله

السلام عليكم

Application_Access.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

للموضوع بقيه

تعالوا تقوم بالاعداد لاضافه بيانات فى الجدول سأكتفى الان بالاعداد فقط

سنقوم ياضافه عدد 2 TextBox و سنقوم بتعديل الاسم (Name) الى

txtID للاول

txtName للثانى

و مفتاح لاضافه البيانات نعدل اسمه(Name) الى btnInsert و نعدل( Text) الى Insert

الان نريد التاكد ان البيانات لن تضاف الا اذا كانت TextBoxes يوجد بهما بيانات بهذا الكود ل Function سوف نقوم بتسميتها Valid

    Private Function Valid() As Boolean
        Valid = True
        If txtID.Text = "" Then
            MessageBox.Show("لم يتم ادخال بيانات هنا ")
            txtID.Focus()
            Valid = False
            Exit Function
        End If
        If txtName.Text = "" Then
            MessageBox.Show("لم يتم ادخال بيانات هنا ")
            txtName.Focus()
            Valid = False
            Exit Function
        End If
    End Function

و فى مقتاح Insert سنقوم بمناده Valid قبل التنفيذ للتاكد ان البيانات تم ادخالها ثم FillData (كود المشاركه الاولى) لتحديث البانات بهذا الكود

    Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        If Valid() = True Then
            FillData()
        End If
    End Sub

السلام عليكم

02.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

و هذا كود مفتاح Insert لأضافه سجل جديد

    Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        If Valid() = True Then
            Dim InsertString As String
            InsertString = "  Insert Into T_ID " & _
                " ( ID_ID , ID_Name ) " & _
                " Values " & _
                " (" & txtID.Text & " , '" & txtName.Text & "' ) "
            Dim Cmd As New OleDb.OleDbCommand(InsertString, conn)
            conn.Open()
            Cmd.ExecuteNonQuery()
            conn.Close()
            FillData()
        End If
    End Sub

و هذا كود مفتاح Update لتعديل السجل بناء على الرقم

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        If Valid() = True Then
            Dim UpdateString As String
            UpdateString = "Update T_ID Set " & _
                        " ID_Name = '" & txtName.Text & "' Where " & _
                        " ID_ID = " & txtID.Text & "  "
            Dim Cmd As New OleDb.OleDbCommand(UpdateString, conn)
            conn.Open()
            Try
                Cmd.ExecuteNonQuery()
            Catch zx As SqlClient.SqlException
                MessageBox.Show(zx.Message)
            End Try
            conn.Close()
            FillData()
        End If
    End Sub

السلام عليكم

03.rar