مثال عن برنامج قاعدة بيانات
صفحة 1 من اصل 1
مثال عن برنامج قاعدة بيانات
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
مثال عن برنامج قاعدة بيانات
1
ربط قاعدة بيانات Access بـ Visual Basic 2010
برمجيا
2
اضافة سجلات الى قاعدة البيانات وتعديلها وحذفها والبحث عن سجل معين،
التنقل من سجل الى سجل
رابط تحميل ملف word وهومظغوط
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
www mediafire com / file / jd67cg2n5jzg4ep / pro1.rar
www mediafire com / file / jd67cg2n5jzg4ep / pro1.rar / file
- الكود:
Imports System.Data.OleDb
'Imports System.Windows.Forms.CurrencyManager
Public Class Form1
Dim conect1 As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\Data01.accdb")
Dim sda1 As New OleDbDataAdapter("SELECT * FROM tab1", conect1)
Dim comand1 As OleDbCommand
Dim tbl1 As New DataTable()
Dim cmg1 As CurrencyManager
Dim dread1 As OleDbDataReader
Dim datset1 As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sda1.Fill(tbl1)
Me.TextBox1.DataBindings.Add("Text", tbl1, "ID_m")
Me.TextBox2.DataBindings.Add("Text", tbl1, "Name")
Me.TextBox3.DataBindings.Add("Text", tbl1, "Datee")
Me.cmg1 = CType(Me.BindingContext(tbl1), CurrencyManager)
Me.cmg1.Position = 0
Me.DataGridView1.DataSource = tbl1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' الاضافة
Try
comand1 = New OleDbCommand("insert into tab1 values(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "',#" & Me.TextBox3.Text & "#)", conect1)
conect1.Open()
comand1.ExecuteNonQuery()
MsgBox(" تمت عملية الاضافة بنجاح ", MsgBoxStyle.Information)
conect1.Close()
cmg1.Refresh()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Button1.Enabled = False
Button4.Enabled = True ' مسح
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' تعديل
Try
comand1 = New OleDbCommand("UPDATE tab1 SET ID_m=" & TextBox1.Text & _
", Name='" & TextBox2.Text & "',Datee=#" & _
TextBox3.Text & "# WHERE ID_m=" & TextBox4.Text & " ", conect1)
conect1.Open()
comand1.ExecuteNonQuery()
MessageBox.Show("تم تعديل الاسم بنجاح")
conect1.Close()
cmg1.Refresh()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Button2.Enabled = False ' تعديل
Button3.Enabled = False ' حذف
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' الحذف
Try
comand1 = New OleDbCommand("DELETE FROM tab1 WHERE ID_m=" & _
TextBox4.Text & " ", conect1)
conect1.Open()
comand1.ExecuteNonQuery()
MessageBox.Show("تم حذف الاسم بنجاح")
conect1.Close()
cmg1.Refresh()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Button3.Enabled = False ' حذف
Button2.Enabled = False ' تعديل
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' مسح و جديد
If cmg1.Count <> 0 Then
cmg1.AddNew()
TextBox1.Focus()
End If
Button4.Enabled = False ' مسح
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
' البحث
conect1.Close()
Try
comand1 = New OleDbCommand("SELECT * FROM tab1 WHERE ID_m=" & TextBox4.Text & " ", conect1)
conect1.Open()
dread1 = comand1.ExecuteReader()
dread1.Read()
TextBox1.Text = dread1("ID_m").ToString()
TextBox2.Text = dread1("Name").ToString()
TextBox3.Text = dread1("Datee").ToString()
dread1.Close()
conect1.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Button1.Enabled = False ' اضافة
Button2.Enabled = True ' تعديل
Button3.Enabled = True 'حذف
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' الأول
If (cmg1.Count <> 0) Then
cmg1.Position = 0
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
' التالي
If (cmg1.Count <> 0) Then
cmg1.Position += 1
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
' السابق
If (cmg1.Count <> 0) Then
cmg1.Position -= 1
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
' الأخير
If (cmg1.Count <> 0) Then
cmg1.Position = cmg1.Count - 1
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged
If ((TextBox1.Text <> "") And (TextBox2.Text <> "")) Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub
End Class
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» انشاء قاعدة بيانات بـ Visual C++ كاملة 13
» انشاء قاعدة بيانات بـ Visual C++ كاملة 7
» انشاء قاعدة بيانات بـ Visual C++ كاملة 12
» انشاء قاعدة بيانات بـ Visual C++ كاملة 6
» انشاء قاعدة بيانات بـ Visual C++ كاملة 13
» انشاء قاعدة بيانات بـ Visual C++ كاملة 7
» انشاء قاعدة بيانات بـ Visual C++ كاملة 12
» انشاء قاعدة بيانات بـ Visual C++ كاملة 6
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى