16-12-14, 04:11 AM
السلام عليكم و رحمة الله و بركاته
اخواني بدي اعمل برنامج بسيط مربوط بقاعدة بيانات اكسس
المشكلة في الاكواد مش عارف شو المشكلة لو ممكن حد يساعد
اخواني بدي اعمل برنامج بسيط مربوط بقاعدة بيانات اكسس
المشكلة في الاكواد مش عارف شو المشكلة لو ممكن حد يساعد
كود :
Imports System.Data.OleDb
Public Class الزبائن
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim tbl As New DataTable
Private Sub الزبائن_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\ameer.accdb"
End Sub
Private Sub cleardata()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
تعديل.Enabled = False
حذف.Enabled = False
End Sub
Private Sub إضافة_Click(sender As Object, e As EventArgs) Handles إضافة.Click
cmd.Connection = conn
cmd.CommandText = "INSERT INTO Customers values('" & ComboBox1.Text & "','" + TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox5.Text & "')"
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تمت الإضافة بنجاح")
cleardata()
conn.Close()
End Sub
Private Sub تعديل_Click(sender As Object, e As EventArgs) Handles تعديل.Click
Dim str1 As String = InputBox("ادخل الاسم المراد التعديل عليه")
cmd.Connection = conn
cmd.CommandText = "Update Customers set اليوم='" & ComboBox1.Text & "',التاريخ='" & TextBox1.Text & "',إسم الزبون='" & TextBox2.Text & "',رقم الجوال='" & TextBox3.Text & "',نوع الجهاز='" & TextBox4.Text & "',حالة الجهاز='" & ComboBox2.Text & "',حالة الزبون='" & ComboBox3.Text & "',ملاحظات=" & TextBox5.Text & "where إسم الزبون=" & str1
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("تم التعديل بنجاح")
cleardata()
End Sub
Private Sub حذف_Click(sender As Object, e As EventArgs) Handles حذف.Click
cmd.Connection = conn
cmd.CommandText = "delete from Customers where إسم الزبون= " & ComboBox1.Text
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("تم الحذف بنجاح")
cleardata()
End Sub
Private Sub تنظيف_Click(sender As Object, e As EventArgs) Handles تنظيف.Click
cleardata()
End Sub
Private Sub بحث_Click(sender As Object, e As EventArgs) Handles بحث.Click
Panel1.Visible = True
End Sub
Private Sub خروج_Click(sender As Object, e As EventArgs) Handles خروج.Click
Me.Hide()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Panel1.Visible = False
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
TextBox6.Enabled = True
TextBox7.Enabled = False
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
TextBox6.Enabled = False
TextBox7.Enabled = True
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
cmd.Connection = conn
cmd.CommandText = "select * from Customer where إسم الزبون like '%" & TextBox6.Text & "%'"
tbl.clear()
conn.Open()
tbl.load(cmd.ExecuteReader())
conn.Close()
DataGridView1.DataSource = tbl
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
End Class