تمت الإجابة together Access DataGridView - insert - delete - update ... datagrid + accessfile

تم تحميل الصفحة في 1,3161105 ثانية
together Access DataGridView - insert - delete - update ... datagrid + accessfile
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
28 ديسمبر 2018
المشاركات
257
الإعجابات
99
النقاط
28
العمر
22
أسهل طريقة للتعديل في ملف الأكسيس بعد التعديل فى الداتاجريدفيو

بعد ما بيعدل فى الجدول فى DataGridView1

ما بيحفظش في قاعدة البيانات ازاى أخليه يحفظ فى قاعدة البيانات

وازاى اخلي ال datagridview مارنه محتاج لما أضيف فى قاعده البيانات تظهره علي طول انما هنا مش بتظهرها الا لما اضيف صف غير الى انا ضفته ومظهرش يقوم يظهر الاول وي الجديد ما يبنش برضو وهكذا

فا محتاج كود كلين أقدر أضيف في الداتاجريد وقاعدة البيانات وجعل أداة الداتا جريد فيو مرنه وشكراً


كود:
Imports System.Data.OleDb

Public Class InsertItem
    Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\HoBa\Desktop\allahakpr.accdb"
    Dim con As New OleDbConnection(constring)
    Sub DataGridView_Insert_My_Data()
        If Not con.State = ConnectionState.Open Then con.Open()
        Dim datset As New DataSet
        Dim dattable As New DataTable
        Dim datadapter As New OleDbDataAdapter
        Dim querytxt As String = "Select * From additems"
        datset.Tables.Add(dattable)
        datadapter = New OleDbDataAdapter(querytxt, con)
        datadapter.Fill(dattable)
        DataGridView1.DataSource = dattable.DefaultView
    End Sub
    Sub DataGridView_Search_in_My_Data()
        If Not con.State = ConnectionState.Open Then con.Open()
        Dim datset As New DataSet
        Dim dattable As New DataTable
        Dim datadapter As New OleDbDataAdapter
        Dim querytxt As String = "Select * From additems Where id='" & TextBox5.Text & "'"
        datset.Tables.Add(dattable)
        datadapter = New OleDbDataAdapter(querytxt, con)
        datadapter.Fill(dattable)
        DataGridView1.DataSource = dattable.DefaultView
    End Sub
    Private Sub InsertItem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call DataGridView_Insert_My_Data()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim comtext As String = "Insert Into additems([id],[itemname],[itemprice],[itemquntity],[photo]) values(?,?,?,?,?)"

        Dim con As New OleDbConnection(constring)

        If Not con.State = ConnectionState.Open Then con.Open()

        Using cmd As New OleDbCommand
            With cmd

                .CommandText = comtext
                .Connection = con

                .Parameters.Add(New OleDbParameter("@id", TextBox1.Text))
                .Parameters.Add(New OleDbParameter("@itemname", TextBox2.Text))
                .Parameters.Add(New OleDbParameter("@itemprice", TextBox3.Text))
                .Parameters.Add(New OleDbParameter("@itemquntity", TextBox4.Text))
                .Parameters.Add(New OleDbParameter("@photo", String.Empty))

                Try
                    .ExecuteNonQuery()

                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End With
        End Using
        Call DataGridView_Insert_My_Data()
        If con.State = ConnectionState.Open Then con.Close()
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        If TextBox5.Text = "" Then
            Call DataGridView_Insert_My_Data()
        Else
            Call DataGridView_Search_in_My_Data()
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim rowindex As Integer = DataGridView1.CurrentCell.RowIndex
        DataGridView1.Rows.RemoveAt(rowindex)
    End Sub
End Class

 
إنضم
28 ديسمبر 2018
المشاركات
257
الإعجابات
99
النقاط
28
العمر
22
واستفسار عند عمل بحث


كود:
        Try
            Dim comtext As String = "Select * From additems Where id = '" & TextBox1.Text & "'"
            Dim con As New OleDbConnection(constring)
            If Not con.State = ConnectionState.Open Then con.Open()
            Dim cmd As New OleDbCommand(comtext, con)
            Dim cmdreader = cmd.ExecuteReader
            While cmdreader.Read
                If cmdreader IsNot Nothing Then
                    TextBox2.Text = cmdreader.Item("itemname")
                    TextBox3.Text = cmdreader.Item("itemprice")
                    TextBox4.Text = cmdreader.Item("itemquntity")
                Else
                    TextBox2.Text = ""
                    TextBox3.Text = ""
                    TextBox4.Text = ""
                End If

            End While
        Catch ex As Exception

        End Try


لو كتبت رقم 1 ورقم 1 بالفعل موجود وانا أود أكتب رقم 11 بيظل textbox2 , textbox3 , textbox4 موجود بيهم بيانات

يعني الجزئية دي مش شغاله


Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""


أعملها ازاي
 
إنضم
21 يناير 2019
المشاركات
33
الإعجابات
33
النقاط
18
السلام عليكم و رحمة الله و بركاته
شوف أخي الكريم المثال المرفق .. و اقرأ سطر التعليقات بالنسبة للبحث و تذكر ذلك جيدا
حقل الترقيم من نوع رقمي
اسم الصنف من نوع نصي
السعر و الكمية من نوع رقمي بقاعدة البيانات و لا يقبلا النصوص
ملاحظة :
با إما تستعمل الداتاسيت .. يا إما تستعمل الداتاتيبل
أما أن تستعملهما بنفس الاستعلام سيخلط لك الحسابات أخي العزيز
تحياتي
MaGez_Design | تحميل
 
إنضم
28 ديسمبر 2018
المشاركات
257
الإعجابات
99
النقاط
28
العمر
22
حضرتك ساعدتني في عمل شاشة إدخال الأصناف والبحث فيها والتعديل عليها في شاشة الأصناف
قمت بتصميم شاشة أخري ليعمل عليها العميل طوال الوقت أنا صنعت شاشة الأصناف لتكون مثل Option
يدخل عليها مره واحده عند إدخال أصناف جديده فقط
لاكن عند استعماله للبرنامج صممت شاشه جديده



ممكن تبسطلي كيف يكون الأمر هنا
 
إنضم
28 ديسمبر 2018
المشاركات
257
الإعجابات
99
النقاط
28
العمر
22
ما نفعت معي أيضاً

كود:
        For x As Integer = 1 To DataGridView1.Rows.Count - 1
            Dim str As String = DataGridView1.Rows(x).Cells(0).ToString
            Dim qun As String = DataGridView1.Rows(x).Cells(3).ToString

            Try
                Dim comtext As String = "Update additems Set [itemquntity] = '" & qun & "'  Where id = '" & str & "'"
                Dim con As New OleDbConnection(constring)
                If Not con.State = ConnectionState.Open Then con.Open()
                Dim cmd As New OleDbCommand(comtext, con)
                cmd.ExecuteNonQuery()
                MsgBox("Updated")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل