تقييم الموضوع :
  • 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] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 122 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 65 16-05-19, 02:11 PM
آخر رد: حاتمي
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 179 15-05-19, 06:08 PM
آخر رد: makky
  اضافة حقل الي الجدول برمجيا makky 1 68 04-05-19, 02:18 AM
آخر رد: makky
  تم الحل : اضافة ازرار التنقل بين السجلات محمد خيري 5 146 26-04-19, 06:16 PM
آخر رد: elgokr
  اضافة صف جديد لدلتا جريد مرتبط nourmandour 5 98 24-04-19, 02:46 PM
آخر رد: elgokr
  طلب مساعدة في اضافة save restore حاتمي 6 199 24-04-19, 12:39 AM
آخر رد: حاتمي
  [سؤال] كيف اضافة صورة عن طريق الاسكانر وهج الصحراء 2 109 19-04-19, 12:42 PM
آخر رد: elgokr
  خطأ في الحفظ nourmandour 3 92 12-04-19, 02:27 AM
آخر رد: elgokr
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 113 10-04-19, 03:21 PM
آخر رد: بدري

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


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