تقييم الموضوع :
  • 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 .
مع التقدير والشكر لمساعدتكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 3 127 28-10-20, 12:46 PM
آخر رد: Anas Mahmoud
  [VB.NET] كيفية اضافة drm لمتصفح geckofx لسبسيب 2 75 27-10-20, 02:51 PM
آخر رد: لسبسيب
  خطأ في الحفظ بدون صورة sofiane-phy 7 159 24-10-20, 08:28 AM
آخر رد: سعود
  [VB.NET] سؤال توضيحي حول الحفظ عن طريق CommandBuilder larbihamri 2 151 19-10-20, 10:07 AM
آخر رد: larbihamri
  ما الغلط في كود التعديل التالي برحوت 0 73 13-10-20, 09:11 PM
آخر رد: برحوت
  محتاج التعديل على المثال المرفق new_programer 2 187 10-10-20, 08:00 PM
آخر رد: shone1
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 454 08-10-20, 05:07 AM
آخر رد: Ad Heart
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 235 06-10-20, 03:33 PM
آخر رد: larbihamri
  اضافة button في مكان محدد علي قورم atefkhalf2004 9 420 05-10-20, 10:08 AM
آخر رد: atefkhalf2004
  مساعدة من فظلكم خطأ عند الحفظ sofiane-phy 2 176 01-10-20, 06:06 PM
آخر رد: sofiane-phy

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


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