منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#1
15-03-19, 09:56 PM (آخر تعديل لهذه المشاركة : 15-03-19, 10:00 PM {2} بواسطة 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
(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
وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
Adil Idabdellah غير متصل
عضو جديد
المشاركات : 8
المواضيع 3
الإنتساب : Dec 2018
السمعة : 0
الشكر: 6
تم شكره 4 مرات في 2 مشاركات
#2
16-03-19, 11:14 PM
اخي هدا إجراء للإضافة والتعديل والحدف


 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
وهدا
البحث
الرد }}}
تم الشكر بواسطة: Emam emam
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#3
19-03-19, 11:44 AM (آخر تعديل لهذه المشاركة : 19-03-19, 11:55 AM {2} بواسطة 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
وهدا
شكرا  استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث  البيانات  و تسجيل جديد  من فورم اخر
(19-03-19, 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


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#4
22-03-19, 10:52 PM (آخر تعديل لهذه المشاركة : 22-03-19, 11:10 PM {2} بواسطة anis.)
(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
(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
وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية
السلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة
(22-03-19, 10:52 PM)anis كتب :
(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
(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,646
المواضيع 204
الإنتساب : Dec 2015
السمعة : 337
الشكر: 17136
تم شكره 11146 مرات في 2628 مشاركات
#5
22-03-19, 11:11 PM (آخر تعديل لهذه المشاركة : 22-03-19, 11:13 PM {2} بواسطة عبد العزيز البسكري.)
خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
قناتنا على اليوتوب
البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#6
22-03-19, 11:15 PM (آخر تعديل لهذه المشاركة : 22-03-19, 11:22 PM {2} بواسطة anis.)
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#7
29-03-19, 09:05 PM (آخر تعديل لهذه المشاركة : 29-03-19, 09:44 PM {2} بواسطة anis.)
(22-03-19, 11:15 PM)anis كتب :
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 
(29-03-19, 09:05 PM)anis كتب :
(22-03-19, 11:15 PM)anis كتب :
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 
PHP كود :
Imports System.Data
Imports System.Data.OleDb


Public Class Form3

    Dim oledbcommand As String
    Dim con As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\Desktop\WindowsApp11\WindowsApp11\tn1.mdb ; ")

    Dim ds As New DataSet
    Dim dt As DataTable

    Sub LoadData()
        ds.Clear()
        Form2.DataGridView1.DataSource = Nothing
        IdTextBox.DataBindings.Clear()
        NomTextBox.DataBindings.Clear()
        PrenomTextBox.DataBindings.Clear()
        Date_de_naissanceDateTimePicker.DataBindings.Clear()
        Lieu_de_naissanceTextBox.DataBindings.Clear()
        SexComboBox.DataBindings.Clear()
        AgeTextBox.DataBindings.Clear()
        Numero_passportTextBox.DataBindings.Clear()
        Date_validationDateTimePicker.DataBindings.Clear()
        Date_expiredDateTimePicker.DataBindings.Clear()
        CinComboBox.DataBindings.Clear()
        Numero_cinTextBox.DataBindings.Clear()
        Autre_nationaliteComboBox.DataBindings.Clear()
        Nom_pereTextBox.DataBindings.Clear()
        Nom_grand_pereTextBox.DataBindings.Clear()
        Nom_prenom_mereTextBox.DataBindings.Clear()
        ProfessionTextBox.DataBindings.Clear()
        QualiteComboBox.DataBindings.Clear()
        EmailTextBox.DataBindings.Clear()
        Adresse_uaeComboBox.DataBindings.Clear()
        Tel_uaeTextBox.DataBindings.Clear()
        Adresse_tnTextBox.DataBindings.Clear()
        Tele_tnTextBox.DataBindings.Clear()
        Etat_civilComboBox.DataBindings.Clear()
        Nom_prenom_epouTextBox.DataBindings.Clear()
        Nationalite_epouTextBox.DataBindings.Clear()
        ValidationDateTimePicker.DataBindings.Clear()
        ExpiredDateTimePicker.DataBindings.Clear()
        RemarqueTextBox.DataBindings.Clear()
        Dim da As New OleDbDataAdapter("  select     id ,    nom  , prenom  , date_de_naissance  , lieu_de_naissance  , sex   , age  , numero_passport  , date_validation  , date_expired  , cin  , numero_cin  , autre_nationalite  , nom_pere  , nom_grand_pere  , nom_prenom_mere  , profession  , qualite  , email  , adresse_uae  , tel_uae  , adresse_tn  , tele_tn  , etat_civil  , nom_prenom_epou  , nationalite_epou  , validation  , expired  , remarque  from Table1 ", con)
        da.Fill(ds, "Table1")
        Form2.DataGridView1.DataSource = ds
        Form2.DataGridView1.DataMember = "Table1"
        IdTextBox.DataBindings.Add("text", ds, "Table1 .id ")
        NomTextBox.DataBindings.Add("text", ds, "Table1 .nom ")
        PrenomTextBox.DataBindings.Add("text", ds, "Table1 .prenom ")
        Date_de_naissanceDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_de_naissance ")
        Lieu_de_naissanceTextBox.DataBindings.Add("text", ds, "Table1 .lieu_de_naissance ")
        SexComboBox.DataBindings.Add("text", ds, "Table1 .sex ")
        AgeTextBox.DataBindings.Add("text", ds, "Table1 .age  ")
        Numero_passportTextBox.DataBindings.Add("text", ds, "Table1 .numero_passport ")
        Date_validationDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_validation ")
        Date_expiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_expired")
        CinComboBox.DataBindings.Add("text", ds, "Table1 .cin ")
        Numero_cinTextBox.DataBindings.Add("text", ds, "Table1 .numero_cin ")
        Autre_nationaliteComboBox.DataBindings.Add("text", ds, "Table1 .autre_nationalite ")
        Nom_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_pere ")
        Nom_grand_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_grand_pere ")
        Nom_prenom_mereTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_mere ")
        ProfessionTextBox.DataBindings.Add("text", ds, "Table1 .profession ")
        QualiteComboBox.DataBindings.Add("text", ds, "Table1 .qualite ")
        EmailTextBox.DataBindings.Add("text", ds, "Table1 .email ")
        Adresse_uaeComboBox.DataBindings.Add("text", ds, "Table1 .adresse_uae ")
        Tel_uaeTextBox.DataBindings.Add("text", ds, "Table1 .tel_uae ")
        Adresse_tnTextBox.DataBindings.Add("text", ds, "Table1 .adresse_tn ")
        Tele_tnTextBox.DataBindings.Add("text", ds, "Table1 .tele_tn ")
        Etat_civilComboBox.DataBindings.Add("text", ds, "Table1 .etat_civil ")
        Nom_prenom_epouTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_epou ")
        Nationalite_epouTextBox.DataBindings.Add("text", ds, "Table1 .nationalite_epou ")
        ValidationDateTimePicker.DataBindings.Add("value", ds, "Table1 .validation")
        ExpiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .expired ")
        RemarqueTextBox.DataBindings.Add("text", ds, "Table1 .remarque ")

    End Sub 
(29-03-19, 09:05 PM)anis كتب :
(22-03-19, 11:15 PM)anis كتب :
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 
(29-03-19, 09:05 PM)anis كتب :
(22-03-19, 11:15 PM)anis كتب :
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 
PHP كود :
Imports System.Data
Imports System.Data.OleDb


Public Class Form3

    Dim oledbcommand As String
    Dim con As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\Desktop\WindowsApp11\WindowsApp11\tn1.mdb ; ")

    Dim ds As New DataSet
    Dim dt As DataTable

    Sub LoadData()
        ds.Clear()
        Form2.DataGridView1.DataSource = Nothing
        IdTextBox.DataBindings.Clear()
        NomTextBox.DataBindings.Clear()
        PrenomTextBox.DataBindings.Clear()
        Date_de_naissanceDateTimePicker.DataBindings.Clear()
        Lieu_de_naissanceTextBox.DataBindings.Clear()
        SexComboBox.DataBindings.Clear()
        AgeTextBox.DataBindings.Clear()
        Numero_passportTextBox.DataBindings.Clear()
        Date_validationDateTimePicker.DataBindings.Clear()
        Date_expiredDateTimePicker.DataBindings.Clear()
        CinComboBox.DataBindings.Clear()
        Numero_cinTextBox.DataBindings.Clear()
        Autre_nationaliteComboBox.DataBindings.Clear()
        Nom_pereTextBox.DataBindings.Clear()
        Nom_grand_pereTextBox.DataBindings.Clear()
        Nom_prenom_mereTextBox.DataBindings.Clear()
        ProfessionTextBox.DataBindings.Clear()
        QualiteComboBox.DataBindings.Clear()
        EmailTextBox.DataBindings.Clear()
        Adresse_uaeComboBox.DataBindings.Clear()
        Tel_uaeTextBox.DataBindings.Clear()
        Adresse_tnTextBox.DataBindings.Clear()
        Tele_tnTextBox.DataBindings.Clear()
        Etat_civilComboBox.DataBindings.Clear()
        Nom_prenom_epouTextBox.DataBindings.Clear()
        Nationalite_epouTextBox.DataBindings.Clear()
        ValidationDateTimePicker.DataBindings.Clear()
        ExpiredDateTimePicker.DataBindings.Clear()
        RemarqueTextBox.DataBindings.Clear()
        Dim da As New OleDbDataAdapter("  select     id ,    nom  , prenom  , date_de_naissance  , lieu_de_naissance  , sex   , age  , numero_passport  , date_validation  , date_expired  , cin  , numero_cin  , autre_nationalite  , nom_pere  , nom_grand_pere  , nom_prenom_mere  , profession  , qualite  , email  , adresse_uae  , tel_uae  , adresse_tn  , tele_tn  , etat_civil  , nom_prenom_epou  , nationalite_epou  , validation  , expired  , remarque  from Table1 ", con)
        da.Fill(ds, "Table1")
        Form2.DataGridView1.DataSource = ds
        Form2.DataGridView1.DataMember = "Table1"
        IdTextBox.DataBindings.Add("text", ds, "Table1 .id ")
        NomTextBox.DataBindings.Add("text", ds, "Table1 .nom ")
        PrenomTextBox.DataBindings.Add("text", ds, "Table1 .prenom ")
        Date_de_naissanceDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_de_naissance ")
        Lieu_de_naissanceTextBox.DataBindings.Add("text", ds, "Table1 .lieu_de_naissance ")
        SexComboBox.DataBindings.Add("text", ds, "Table1 .sex ")
        AgeTextBox.DataBindings.Add("text", ds, "Table1 .age  ")
        Numero_passportTextBox.DataBindings.Add("text", ds, "Table1 .numero_passport ")
        Date_validationDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_validation ")
        Date_expiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_expired")
        CinComboBox.DataBindings.Add("text", ds, "Table1 .cin ")
        Numero_cinTextBox.DataBindings.Add("text", ds, "Table1 .numero_cin ")
        Autre_nationaliteComboBox.DataBindings.Add("text", ds, "Table1 .autre_nationalite ")
        Nom_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_pere ")
        Nom_grand_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_grand_pere ")
        Nom_prenom_mereTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_mere ")
        ProfessionTextBox.DataBindings.Add("text", ds, "Table1 .profession ")
        QualiteComboBox.DataBindings.Add("text", ds, "Table1 .qualite ")
        EmailTextBox.DataBindings.Add("text", ds, "Table1 .email ")
        Adresse_uaeComboBox.DataBindings.Add("text", ds, "Table1 .adresse_uae ")
        Tel_uaeTextBox.DataBindings.Add("text", ds, "Table1 .tel_uae ")
        Adresse_tnTextBox.DataBindings.Add("text", ds, "Table1 .adresse_tn ")
        Tele_tnTextBox.DataBindings.Add("text", ds, "Table1 .tele_tn ")
        Etat_civilComboBox.DataBindings.Add("text", ds, "Table1 .etat_civil ")
        Nom_prenom_epouTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_epou ")
        Nationalite_epouTextBox.DataBindings.Add("text", ds, "Table1 .nationalite_epou ")
        ValidationDateTimePicker.DataBindings.Add("value", ds, "Table1 .validation")
        ExpiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .expired ")
        RemarqueTextBox.DataBindings.Add("text", ds, "Table1 .remarque ")

    End Sub 


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#8
Heart  02-04-19, 03:15 PM
السلام عليكم .
اساتذتي الافاضل اتمني من الله ومنكم ان تمدوني بيد العون لحل مشكلتي مع كود التعديل . ولكم مني خالص تحياتي  Heart
البحث
الرد }}}
تم الشكر بواسطة:
ابراهيم ايبو غير متصل
كبار الشخصيات
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة : 538
الشكر: 10647
تم شكره 5323 مرات في 2095 مشاركات
#9
02-04-19, 04:22 PM
السلام عليكم اخي الكريم

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







البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#10
05-04-19, 05:53 PM
السلام عليكم و رحمة الله وبركاته .
ا اريد من مربع النص (texbox ) ان يقبل حرف واحد انجليزي و ستة اعداد . مثال : A123456.
انا شغال على vb.net .
مع التقدير والشكر لمساعدتكم
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام فونت جديد في البرنامج Emam emam 5 86 14-04-24, 01:29 PM
آخر رد: عبد العزيز البسكري
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 0 43 13-04-24, 12:59 PM
آخر رد: new_programer
  تغيير على كود الحفظ محمد خيري 6 232 28-03-24, 04:20 PM
آخر رد: محمد خيري
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 136 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  اضافه سجل row جديد سلام و محبه2090 0 102 02-03-24, 11:04 PM
آخر رد: سلام و محبه2090
  [VB.NET] مشكلة عند الحفظ Abdellatif 6 387 31-01-24, 02:47 AM
آخر رد: Abdellah
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 281 18-01-24, 05:04 PM
آخر رد: loay775
  [كود] الحفظ Abdellatif 13 513 03-01-24, 02:28 AM
آخر رد: Abdellah
  [VB.NET] كود التعديل Abdellatif 6 405 21-12-23, 02:01 PM
آخر رد: Abdellatif
  اضافة ادوات لفيجوال بيسك خالد20 10 1,983 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى

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


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