15-03-19, 09:56 PM (آخر تعديل لهذه المشاركة : 15-03-19, 10:00 PM {2} بواسطة anis.)
السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
وكما هو مبين لديكم اساتذتي الكرام لديا الكثير من التاكست بوكس وكلها باللغة العربية
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 (آخر تعديل لهذه المشاركة : 19-03-19, 11:55 AM {2} بواسطة anis.)
(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف
Public Sub _RunCommand(str As String)
If (conn.State = ConnectionState.Closed) Then conn.Open()
Dim cmd As New OleDbCommand(str.ToString, conn)
cmd.CommandText = str
cmd.ToString()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
و هدا إجراء لمسح txbox مربعات النصوص
Public Sub _Claertxtbox(OBJ As Object)
For Each ctrl As Control In OBJ.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = String.Empty
End If
Next
وهدا
شكرا استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث البيانات و تسجيل جديد من فورم اخر
(19-03-19, 11:44 AM)anis كتب :
(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف
Public Sub _RunCommand(str As String)
If (conn.State = ConnectionState.Closed) Then conn.Open()
Dim cmd As New OleDbCommand(str.ToString, conn)
cmd.CommandText = str
cmd.ToString()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
و هدا إجراء لمسح txbox مربعات النصوص
Public Sub _Claertxtbox(OBJ As Object)
For Each ctrl As Control In OBJ.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = String.Empty
End If
Next
وهدا
شكرا استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث البيانات و تسجيل جديد من فورم اخر
وهذه المشكلة اللتي ظهرت معي
كود :
Dim connectionstring As String
Dim con As OleDbConnection
Dim com As OleDbCommand
Dim oledba As OleDbDataAdapter
Dim ds As DataSet
Dim dt As DataTable
Dim str As String
22-03-19, 10:52 PM (آخر تعديل لهذه المشاركة : 22-03-19, 11:10 PM {2} بواسطة anis.)
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
وكما هو مبين لديكم اساتذتي الكرام لديا الكثير من التاكست بوكس وكلها باللغة العربية
السلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة
(22-03-19, 10:52 PM)anis كتب :
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
وكما هو مبين لديكم اساتذتي الكرام لديا الكثير من التاكست بوكس وكلها باللغة العربية
السلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة
السلام عليكم اساتذتي الكرام . ارجو منكم مساعدتي في حل هذا الاشكال عند تحديث البيانات يظهر معي هذا الخطا
29-03-19, 09:05 PM (آخر تعديل لهذه المشاركة : 29-03-19, 09:44 PM {2} بواسطة anis.)
(22-03-19, 11:15 PM)anis كتب :
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
Dim 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 ; ")
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..
كود :
UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id
شكرا اخي عبد العزيز على استجابتك .
السلام عليكم اخي استشارة فنية ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'
PHP كود :
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
Dim 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 ; ")
السلام عليكم و رحمة الله وبركاته .
ا اريد من مربع النص (texbox ) ان يقبل حرف واحد انجليزي و ستة اعداد . مثال : A123456.
انا شغال على vb.net .
مع التقدير والشكر لمساعدتكم