الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قواعد البيانات اضافة (زر اضافة و زر حذف و زر بحث)

مغلق
بدأه FireLine في 9 أبريل 2007 · 6 رد · 1,103 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

ودي اشكر كل القائمين على هذا المنتدى الرائع اولاً

وثانياً عندي مشروع ودي انتهي منه في قواعد البيانات ... البرنامج باختصار عندي برنامج صممت قاعدة البيانات بالـ sql مشكلتي مع :

1) ابغى اضيف Buttons (اضافة سجل جديد للقاعدة) و (حذف السجل الحالي) و (بحث من خلال اي عمود في Table انا اختاره مثلاً )

2) اجتهدت في عمل اربعه buttons للتنقل بين السجلات (آخر سجل) (السجل السالي) (السجل السابق) (اول سجل) ومشت معاي آخر حلاوة بس لما اروح على آخر سجل يوقف وما ينتقل بيت السجلات لازم اعمل كليك على زر التحديث (وهذا بعد انا سويته)

راح ارفق لكم كود البرنامج

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim T As BindingManagerBase

T = Me.BindingContext(DataSet11, "Diress")

If T.Position < T.Count - 1 Then T.Position += 1

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim T As BindingManagerBase

T = Me.BindingContext(DataSet11, "Diress")

If T.Position < T.Count - 1 Then T.Position -= 1

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim T As BindingManagerBase

T = Me.BindingContext(DataSet11, "Diress")

If T.Position < T.Count - 1 Then T.Position = 0

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim T As BindingManagerBase

T = Me.BindingContext(DataSet11, "Diress")

If T.Position < T.Count - 1 Then T.Position = T.Count - 1

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

End Class

#2

اذهب الى هذه الرابطه بها مثال به ضالتك

/index.php?showtopic=122062

لن تبلغ المجد حتى تلعق الصبرااااااااا

#3

طيب وبالنسبة الى زر الاضافة والحذف

#4

هذا زر إضافة

Dim conn As New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=aaa;integrated security=sspi;user id=sa"
		conn.Open()
		Dim cmd As SqlClient.SqlCommand
		cmd = New SqlClient.SqlCommand
		cmd.Connection = conn
		cmd.CommandText = "insert into bbb(1,2,3) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "')"
		cmd.ExecuteNonQuery()
		conn.Close()

مع العلم أن

aaa=أسم قاعدة البيانات

bbb=إسم الجدول

1-2-3=أسم الحقول في الجدول

وبالنسبه للحذف بدوره لك وبجيبه إن شاء الله

#5

هذا زر الحذف

 Dim conn As New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=aaa;integrated security=sspi;user id=sa"
		conn.Open()
		Dim cmd As SqlClient.SqlCommand
		cmd = New SqlClient.SqlCommand
		cmd.Connection = conn
		cmd.CommandText = "delete from bbb where s='" & Me.TextBox1.Text & "'"
		cmd.ExecuteNonQuery()
		conn.Close()

aaa=أسم قاعدة البيانات

bbb=إسم الجدول

s=أسم حقل يكون برايمري كي

موفق أخوي

#6

مشكور Koogak ... راح اجربه وارد عليك

#7

السلام عليكم

عزيزي koogak جربت الكود اللي عطيتني اياه بس ما اشتغل معاي وكان يطلع لي خطأ في الجملة 

cmd.ExecuteNonQuery()

ياليت تشوف لي حل

تم تعديل هذه المشاركة بواسطة FireLine في 11 أبريل 2007 في 10:17

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…