27-05-16, 06:33 PM
السلام عليكم ورحمة الله وبركاته
تحية لكل أعضاء المنتدى
بصراحة انا مبتدئ في الفيجوال بيسك
يمكن يكون سؤالي هذا سهل لكنه حيرني جدا جدا
الزر رقم 5
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
يعطيني خطأ في بناء جملة update
................................................
الكود الرئيسي للفورم
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=kofa.accdb;")
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Labe5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Button3.Visible = False
Dim da As New OleDbDataAdapter("select * from student", con)
Dim dt As New DataTable()
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Visible = True
DataGridView1.Width = 1109
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
DataGridView1.Width = 600
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Labe5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
TextBox9.Visible = True
Button3.Visible = True
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox8.Text = String.Empty
TextBox9.Text = String.Empty
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text) AndAlso String.IsNullOrWhiteSpace(TextBox4.Text) AndAlso String.IsNullOrWhiteSpace(TextBox5.Text) AndAlso String.IsNullOrWhiteSpace(TextBox6.Text)) Then
MessageBox.Show("يجب ملء جميع الخانات")
Return
End If
Dim cmd As New OleDbCommand("insert into student (Student_Name,Class,Mobile,Bus,MLG_email,Address,Company,Father_Shara,Student_ID) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox8.Text = String.Empty
TextBox9.Text = String.Empty
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrEmpty(TextBox2.Text) AndAlso String.IsNullOrEmpty(TextBox3.Text) AndAlso String.IsNullOrEmpty(TextBox4.Text) AndAlso String.IsNullOrEmpty(TextBox5.Text) AndAlso String.IsNullOrEmpty(TextBox6.Text)) Then
MessageBox.Show("يجب ملء جميع الخانات")
Return
End If
Dim cmd As New OleDbCommand("inser into student (Student_Name,Class,Mobile,Bus,MLG_email,Address) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "')")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
DataGridView1.Width = 600
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Labe5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
TextBox9.Visible = True
Button3.Visible = False
Button5.Visible = True
If (DataGridView1.SelectedRows.Count = 0) Then
MessageBox.Show("اختر الطالب المراد تعديل بياناته", "خطأ")
Return
End If
Dim indx As Integer = DataGridView1.SelectedRows(0).Index
TextBox1.Text = DataGridView1(1, indx).Value.ToString
TextBox2.Text = DataGridView1(2, indx).Value.ToString
TextBox3.Text = DataGridView1(3, indx).Value.ToString
TextBox4.Text = DataGridView1(4, indx).Value.ToString
TextBox5.Text = DataGridView1(5, indx).Value.ToString
TextBox6.Text = DataGridView1(6, indx).Value.ToString
TextBox7.Text = DataGridView1(7, indx).Value.ToString
TextBox8.Text = DataGridView1(8, indx).Value.ToString
TextBox9.Text = DataGridView1(9, indx).Value.ToString
Button4.Focus()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown, TextBox8.KeyDown, TextBox7.KeyDown, TextBox6.KeyDown, TextBox5.KeyDown, TextBox4.KeyDown, TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
TextBox1.Text = DataGridView1(1, DataGridView1.CurrentRow.Index).Value
TextBox2.Text = DataGridView1(2, DataGridView1.CurrentRow.Index).Value
TextBox3.Text = DataGridView1(3, DataGridView1.CurrentRow.Index).Value
TextBox4.Text = DataGridView1(4, DataGridView1.CurrentRow.Index).Value
TextBox5.Text = DataGridView1(5, DataGridView1.CurrentRow.Index).Value
TextBox6.Text = DataGridView1(6, DataGridView1.CurrentRow.Index).Value
TextBox7.Text = DataGridView1(7, DataGridView1.CurrentRow.Index).Value
TextBox8.Text = DataGridView1(8, DataGridView1.CurrentRow.Index).Value
TextBox9.Text = DataGridView1(9, DataGridView1.CurrentRow.Index).Value
End Sub
End Class
رجاء من خبراء الفيجوال بيسك مساعدتي في تصحيح هذا الكود
كل الشكر والتقدير
تحية لكل أعضاء المنتدى
بصراحة انا مبتدئ في الفيجوال بيسك
يمكن يكون سؤالي هذا سهل لكنه حيرني جدا جدا
الزر رقم 5
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
يعطيني خطأ في بناء جملة update
................................................
الكود الرئيسي للفورم
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=kofa.accdb;")
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Labe5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Button3.Visible = False
Dim da As New OleDbDataAdapter("select * from student", con)
Dim dt As New DataTable()
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Visible = True
DataGridView1.Width = 1109
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
DataGridView1.Width = 600
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Labe5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
TextBox9.Visible = True
Button3.Visible = True
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox8.Text = String.Empty
TextBox9.Text = String.Empty
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text) AndAlso String.IsNullOrWhiteSpace(TextBox4.Text) AndAlso String.IsNullOrWhiteSpace(TextBox5.Text) AndAlso String.IsNullOrWhiteSpace(TextBox6.Text)) Then
MessageBox.Show("يجب ملء جميع الخانات")
Return
End If
Dim cmd As New OleDbCommand("insert into student (Student_Name,Class,Mobile,Bus,MLG_email,Address,Company,Father_Shara,Student_ID) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox8.Text = String.Empty
TextBox9.Text = String.Empty
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrEmpty(TextBox2.Text) AndAlso String.IsNullOrEmpty(TextBox3.Text) AndAlso String.IsNullOrEmpty(TextBox4.Text) AndAlso String.IsNullOrEmpty(TextBox5.Text) AndAlso String.IsNullOrEmpty(TextBox6.Text)) Then
MessageBox.Show("يجب ملء جميع الخانات")
Return
End If
Dim cmd As New OleDbCommand("inser into student (Student_Name,Class,Mobile,Bus,MLG_email,Address) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "')")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
DataGridView1.Width = 600
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Labe5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
TextBox9.Visible = True
Button3.Visible = False
Button5.Visible = True
If (DataGridView1.SelectedRows.Count = 0) Then
MessageBox.Show("اختر الطالب المراد تعديل بياناته", "خطأ")
Return
End If
Dim indx As Integer = DataGridView1.SelectedRows(0).Index
TextBox1.Text = DataGridView1(1, indx).Value.ToString
TextBox2.Text = DataGridView1(2, indx).Value.ToString
TextBox3.Text = DataGridView1(3, indx).Value.ToString
TextBox4.Text = DataGridView1(4, indx).Value.ToString
TextBox5.Text = DataGridView1(5, indx).Value.ToString
TextBox6.Text = DataGridView1(6, indx).Value.ToString
TextBox7.Text = DataGridView1(7, indx).Value.ToString
TextBox8.Text = DataGridView1(8, indx).Value.ToString
TextBox9.Text = DataGridView1(9, indx).Value.ToString
Button4.Focus()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown, TextBox8.KeyDown, TextBox7.KeyDown, TextBox6.KeyDown, TextBox5.KeyDown, TextBox4.KeyDown, TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
TextBox1.Text = DataGridView1(1, DataGridView1.CurrentRow.Index).Value
TextBox2.Text = DataGridView1(2, DataGridView1.CurrentRow.Index).Value
TextBox3.Text = DataGridView1(3, DataGridView1.CurrentRow.Index).Value
TextBox4.Text = DataGridView1(4, DataGridView1.CurrentRow.Index).Value
TextBox5.Text = DataGridView1(5, DataGridView1.CurrentRow.Index).Value
TextBox6.Text = DataGridView1(6, DataGridView1.CurrentRow.Index).Value
TextBox7.Text = DataGridView1(7, DataGridView1.CurrentRow.Index).Value
TextBox8.Text = DataGridView1(8, DataGridView1.CurrentRow.Index).Value
TextBox9.Text = DataGridView1(9, DataGridView1.CurrentRow.Index).Value
End Sub
End Class
رجاء من خبراء الفيجوال بيسك مساعدتي في تصحيح هذا الكود
كل الشكر والتقدير