Programming for Everybody: December 2020

C#: Insert all data of a dataGridView to database at once with database with source code




private void button8_Click(object sender, EventArgs e)

        {

            foreach(DataGridViewRow row in dataGridView1.Rows)

            {

                string constring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:/ddd.accdb";

                using (OleDbConnection con = new OleDbConnection(constring))

                {


                    using (OleDbCommand cmd = new OleDbCommand(" INSERT INTO table1 ([ID], [firstname],[lastname],[sum]) VALUES (@id,@firstname,@lastname,@sum)", con))

                    {



                        cmd.Parameters.AddWithValue("@id", row.Cells["ID"].Value);


                        cmd.Parameters.AddWithValue("@firstname", row.Cells["firstname"].Value);

                        cmd.Parameters.AddWithValue("@lastname", row.Cells["lastname"].Value);


                        cmd.Parameters.AddWithValue("@sum", row.Cells["sum"].Value);



                        con.Open();

                        cmd.ExecuteNonQuery();

                        con.Close();

                    }

                 

                    }

              


                }



            MessageBox.Show("All rows inserted");

         

           

        } 

Visual Basic.net: Populate Treeview in VB.Net with Access database(with Source Code)



 Imports System.Data

Imports System.Data.OleDb

Public Class Form3

    Private Function bind_data(ByVal strsql As String) As DataTable

        Dim dt As New DataTable

        Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Prog\Documents\sports.accdb"


        Using con As New OleDbConnection(constr)


            Using cmd As New OleDbCommand(strsql)


                Using sda As New OleDbDataAdapter()


                    cmd.CommandType = CommandType.Text

                    cmd.Connection = con

                    sda.SelectCommand = cmd


                    sda.Fill(dt)


                End Using


            End Using


            Return dt

        End Using

    End Function

    Private Sub ptreeview(ByVal dtparent As DataTable, ByVal parentid As Integer, ByVal tree1 As TreeNode)

        For Each row As DataRow In dtparent.Rows


            Dim child As New TreeNode() With { _

                .Text = row("name1").ToString(), _

                .Tag = row("id") _

            }

            If parentid = 0 Then


                TreeView1.Nodes.Add(child)


   Dim dtchild As DataTable = Me.bind_data("select id,name1 from names1 where id_sport=" & child.Tag)

                ptreeview(dtchild, Convert.ToInt32(child.Tag), child)

            Else

                tree1.Nodes.Add(child)

            End If

        Next

    End Sub


    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim dt As DataTable = Me.bind_data("select id,name1 from sports1")

        Me.ptreeview(dt, 0, Nothing)

    End Sub

End Class

Visual Basic net: Datagridview multiple columns search from 4 tables using inner join

 Imports System.Data.SqlClient

Public Class Form7

    Private Function search1() As DataTable

        Dim query1 As String = "Select table1.id,table1.name1,table1.tel," & _

            "sports.sport_name,hobbies.hobby_name,countries.country from" & _

            "(table1 inner join sports on table1.id_sport=sports.id)" & _

            " inner join hobbies on table1.id_hobby=hobbies.id" & _

            " inner join countries on table1.id_country=countries.id"

        query1 &= " where name1 like '%' +@parm1+ '%' "

        query1 &= " or name1 like '%' +@parm1+ '%' "

        query1 &= " or tel like '%' +@parm1+ '%' "

        query1 &= " or sport_name like '%' +@parm1+ '%' "

        query1 &= " or hobby_name like '%' +@parm1+ '%' "

        query1 &= " or country like '%' +@parm1+ '%' "

        query1 &= " or @parm1= '' order by table1.id "

        Dim conn As New SqlConnection("Data source=.;initial catalog=names;integrated security=true")

        Dim cmd As New SqlCommand(query1, conn)

        cmd.Parameters.AddWithValue("@parm1", TextBox1.Text.Trim())

        Dim da As New SqlDataAdapter(cmd)

        Dim dt As New DataTable

        da.Fill(dt)

        DataGridView1.DataSource = dt

        Return (dt)

    End Function


    Private Sub Form7_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DataGridView1.DataSource = Me.search1


    End Sub


    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        DataGridView1.DataSource = Me.search1

    End Sub

End Class



تحميل برنامج عارض ملفات الاكسس Access

 برنامج عارض ملفات الاكسس Access: هو برنامج بسيط لعرض جميع ملفات قواعد بيانات اكسس بجميع انواعها وحتى لو به كلمة مرور بشرط معرفة كلمة المرور يتم ادخالها من قبل المستخدم ثم يعرض جميع الجداول بقاعدة البيانات  ثم يتم اختيار الجدول المراد عرض وتعديل بياناته  بجملة استعلام افتراضية وعند الرغبة في عمل استعلامات  أخرى لعرض بيانات اكثر  يمكن متابعة فيديو الشرح للبرنامج أو ارسال اي استفسار، وهذا البرنامج بالرغم من بساطته ولكنه يساعدك في عرض اي ملف قاعدة بيانات اكسيس وكذلك تعلم برمجة 

Visual Basic.net و C# و SQL Server وذلك من خلال كتابة جمل الاستعلام في البرنامج.

البرنامج متاح مجاني للجميع ولكن من يستفيد بالبرنامج الرجاء الاشتراك بالقناة وعمل اعجاب ومشاركة الفيديو وذلك للتشجيع على الاستمرار . ولكم جزيل الشكر 

 رابط التحميل

http://www.mediafire.com/file/22109oj0zajee2c/Small_access.rar/file