تقييم الموضوع :
  • 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
وهدا
الرد
تم الشكر بواسطة: Emam emam
#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
وهدا
شكرا  استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث  البيانات  و تسجيل جديد  من فورم اخر

(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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
(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
وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية
السلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة

السلام عليكم اساتذتي الكرام . ارجو منكم مساعدتي في حل هذا الاشكال عند تحديث البيانات يظهر معي هذا الخطا


   


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#5
خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :
 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
الرد
تم الشكر بواسطة:
#6
(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

شكرا اخي عبد العزيز على استجابتك .
الرد
تم الشكر بواسطة:
#7
(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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
Heart 
السلام عليكم .
اساتذتي الافاضل اتمني من الله ومنكم ان تمدوني بيد العون لحل مشكلتي مع كود التعديل . ولكم مني خالص تحياتي  Heart
الرد
تم الشكر بواسطة:
#9
السلام عليكم اخي الكريم

حمل مشروعك او ضع قاعدة البيانات ليصار الى مساعدتك في كل الاكواد ان شاء الله
الرد
تم الشكر بواسطة:
#10
السلام عليكم و رحمة الله وبركاته .
ا اريد من مربع النص (texbox ) ان يقبل حرف واحد انجليزي و ستة اعداد . مثال : A123456.
انا شغال على vb.net .
مع التقدير والشكر لمساعدتكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] بعد تعبئة خانة معينة منع التعديل في النموذج khairallah 3 92 15-10-19, 03:51 PM
آخر رد: elgokr
  مساعدة بطريقة اضافة عروض لبرنامج مبيعات Rabeea Qbaha 14 339 15-10-19, 01:37 AM
آخر رد: Rabeea Qbaha
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 97 11-10-19, 02:59 AM
آخر رد: على زهران
  [VB.NET] اضافة اللغة واستردادها من ملف بصيغة ini ميدو الفنان 8 212 03-10-19, 05:43 AM
آخر رد: ميدو الفنان
Smile ممكن مساعده في حل هذي المشكله لو سمح يحدث معي عند التعديل moh123456 3 133 02-10-19, 07:57 PM
آخر رد: asemshahen5
  كود الحفظ في داتاغريد كان يعمل جيدا لكنه الآن لا يعمل فهل من مسعف ؟ Alhootti1 4 109 24-09-19, 09:02 PM
آخر رد: Alhootti1
  [VB.NET] كيفية اضافة البيانات من اكسس إلى داتاغريد عن طريق حقل كومبو بوكس Alhootti1 9 340 24-09-19, 04:43 PM
آخر رد: Alhootti1
  كود التعديل anis 1 84 20-09-19, 07:11 PM
آخر رد: ابراهيم ايبو
  [سؤال] لو سمحت يا شباب انا جديد فى المجال وانا بعمل الابلكيشن ظهرتلى المشاكل دي ahmed0rabea 1 117 17-09-19, 12:07 AM
آخر رد: ميدو الفنان
  [سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد dametucorazon 6 199 02-09-19, 04:39 PM
آخر رد: dametucorazon

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


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