السلام عليكم
واجهتني مشكلة اثناء ربط قاعدة البيانات بالبرنامج حيث انه لايستطيع ان يستورد البيانات من القاعده
اليكم البرمجه ربما يوجد بها خطا او شيء لم انتبه له ارجوا ان تتمكنوا من مساعدتي لاني احتاجه باسرع وقت
Imports System.Drawing.Drawing2D
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = getgraphicsobject(Me.Width, Me.Height)
Dim n As New OleDbCommand()
Dim r As OleDbDataReader
n.Connection = OleDbConnection1
n.CommandText = "select*from Employee"
OleDbConnection1.Open()
r = n.ExecuteReader()
If r.Read Then
txtID.Text = r.GetString(0)
txtName.Text = r.GetString(1)
txtPhone.Text = r.GetString(2)
txtSalary.Text = r.GetValue(3)
End If
OleDbConnection1.Close()
r.Close()
End Sub
Public Function getgraphicsobject(ByVal w As Int16, ByVal h As Int16) As Image
Dim bmp As Bitmap = New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim r As New RectangleF(0, 0, w, h)
Dim startcolor As Color = Color.LightBlue
Dim endcolor As Color = Color.DarkBlue
Dim lgbrush As New System.Drawing.Drawing2D.LinearGradientBrush(r, startcolor, endcolor, LinearGradientMode.ForwardDiagonal)
g.FillRectangle(lgbrush, New Rectangle(0, 0, w, h))
Return bmp
End Function
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
clear()
End Sub
Private Sub clear()
txtID.Clear()
txtName.Clear()
txtPhone.Clear()
txtSalary.Clear()
End Sub
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
Dim sercom As New OleDbCommand()
Dim DR As OleDbDataReader
sercom.Connection = OleDbConnection1
sercom.CommandText = "select*from Employee where(ID=" & txtID.Text & ")"
OleDbConnection1.Open()
DR = sercom.ExecuteReader()
If DR.Read Then
txtID.Text = DR.GetString(0)
txtName.Text = DR.GetString(1)
txtPhone.Text = DR.GetString(2)
txtSalary.TabIndex = DR.GetValue(3)
Else
MsgBox("لايوجد موظف يحمل هذا الرقم")
End If
OleDbConnection1.Close()
DR.Close()
End Sub
Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Dim addcom As New OleDbCommand()
addcom.CommandText = "insert into Employee(ID,Name,Phon,Salary)values(" & txtID.Text & "," & txtName.Text & "," & txtPhone.Text & "," & txtSalary.Text & ")"
addcom.Connection = OleDbConnection1
OleDbConnection1.Open()
addcom.ExecuteNonQuery()
OleDbConnection1.Close()
MsgBox("تم اضافة الموظف بنجاح")
clear()
End Sub
Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click
Dim delcom As New OleDbCommand()
delcom.CommandText = "delete from Employee where ID=" & txtID.Text
delcom.Connection = OleDbConnection1
OleDbConnection1.Open()
delcom.ExecuteNonQuery()
OleDbConnection1.Close()
MsgBox("تم حذف سجل الموظف بنجاح")
clear()
End Sub
Private Sub btnupdat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdat.Click
Dim updatecom As New OleDbCommand()
updatecom.CommandText = "update Employee set ID=" & txtID.Text & ",Name=" & txtName.Text & ",Phone=" & txtPhone.Text & ",Salary=" & txtSalary.Text
OleDbConnection1.Open()
updatecom.ExecuteNonQuery()
OleDbConnection1.Close()
MsgBox("تم تعديل سجل الموظف")
clear()
End Sub
Private Sub btnend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnend.Click
End
End Sub
End Classعندما نفذت البرنامج كان يظهر اخطاء في بعض الاسطر مع العلم انه في حدث اللود يجلب البيانات من القاعده ولكن في ازرار التحديث الباقي لا يستطيع
ويظهر الخطا في الامرين
DR = sercom.ExecuteReader()
addcom.ExecuteNonQuery()
ملاحظه:
يوجد بعض الاوامر البرمجية لجعل خلفية الفورم بشكل تدرج لوني