تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد
#1
السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

كود :
Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

كود :
Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub
وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا
الرد
تم الشكر بواسطة:
#3
(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا
شكرا  استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث  البيانات  و تسجيل جديد  من فورم اخر

(أمس, 11:44 AM)anis كتب :
(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا
شكرا  استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث  البيانات  و تسجيل جديد  من فورم اخر
 وهذه المشكلة اللتي ظهرت معي

كود :
Dim connectionstring As String

   Dim con As OleDbConnection
   Dim com As OleDbCommand

   Dim oledba As OleDbDataAdapter
   Dim ds As DataSet
   Dim dt As DataTable
   Dim str As String


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة درجات القرار في نهاية العام الدراسي max_1978 1 46 12-03-19, 05:50 PM
آخر رد: elgokr
Exclamation [سؤال] لا استطيع فتح مشروع جديد allli 3 102 06-03-19, 01:23 PM
آخر رد: محمد كريّم
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل فى نفس الوقت atef_020 31 717 28-02-19, 02:09 PM
آخر رد: حريف برمجة
  التعديل على مشروع فيجول ستديو EMADMW17 11 384 24-02-19, 07:48 PM
آخر رد: elgokr
  رجاء التعديل على ملف محمد خيري 9 215 18-02-19, 11:46 PM
آخر رد: محمد خيري
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 267 15-02-19, 10:52 AM
آخر رد: georgos
  [VB.NET] استبدال رمز معين بسطر جديد waelalmsry75 2 100 07-02-19, 02:57 PM
آخر رد: waelalmsry75
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 223 06-02-19, 01:16 PM
آخر رد: sendbad100
  [VB.NET] مساعدة في كود الحفظ Hamoody 2 133 06-02-19, 02:45 AM
آخر رد: Hamoody
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 2 101 05-02-19, 11:59 AM
آخر رد: raaddawood

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم