المشاركة الأصلية كتبت بواسطة anjo0o
السلام عليكم ...
برنااامج مررره حلووو... يعطيك العافية خيوو على مجهودك
انا الحين جالسه اتعلم للفيجوال بيسك .. و بدي اعرف كم شغله في هذا البرنامج ...ممكن 
اول شئ - كيف ربطت قاعدة البيانات؟؟؟!!!!!
ثاني شئ - كيف عملت البحث في قاعدة البيانات ..الخيارات بالمكان او بالرقم ؟؟؟!!!!
ثالث شئ - السجل الاول و السجل الاخيرو السجل التالي و السجل السابق... كيف عملتها ؟؟؟؟!!!!
انتظر جواابك ^_^
اهلا anjoo .. اي اكيد ممكن وانا حاضر اهم شيء تصير عندج فكرة واضحة عن اسئلتج
اول شيء بخصوص سؤالج الاول :
انشي ملف اكسس بأسم spy واسم الجدول بداخل الملف هو man , ثم انشيء 14 عمود وسمي الاعمدة من 1الى 14 على التوالي
الان فتحي مشروع جديد بلغة البرمجة الدوت نت
في قسم التصريحات العامة ضعي الكود ادناه :
كود:
Imports System.Data
Imports System.Data.OleDb
في حدث declarations الخاص بالفورم ضعي الكود ادناه :
كود:
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\spy.mdb"
Dim newConnection As New OleDbConnection(connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT *FROM man"
في حدث الفورم اكتبي الكود ادناه :
كود:
TextBox1.DataBindings.Add("Text", DataSet1, "man.1")
TextBox2.DataBindings.Add("Text", DataSet1, "man.2")
TextBox3.DataBindings.Add("Text", DataSet1, "man.3", 2, 2)
TextBox4.DataBindings.Add("Text", DataSet1, "man.4")
TextBox5.DataBindings.Add("Text", DataSet1, "man.5")
TextBox7.DataBindings.Add("Text", DataSet1, "man.6")
TextBox8.DataBindings.Add("Text", DataSet1, "man.7")
TextBox9.DataBindings.Add("Text", DataSet1, "man.8")
TextBox10.DataBindings.Add("Text", DataSet1, "man.9")
TextBox11.DataBindings.Add("Text", DataSet1, "man.10")
TextBox12.DataBindings.Add("Text", DataSet1, "man.11")
TextBox13.DataBindings.Add("Text", DataSet1, "man.12")
TextBox14.DataBindings.Add("Text", DataSet1, "man.13")
TextBox15.DataBindings.Add("Text", DataSet1, "man.14")
هسه خلصنا من مسائلة فتح القاعدة بداخل البرنامج .. ترى سهلة
2- نجي على سؤالج الثاني :
الانتقال للسجل الاول
كود:
Me.BindingContext(DataSet1, "man").Position = 0
الانتقال للسجل الاخير :
كود:
Me.BindingContext(DataSet1, "man").Position = Me.BindingContext(DataSet1, "man").Count - 1
الانتقال للسجل التالي :
كود:
Me.BindingContext(DataSet1, "man").Position += 1
الانتقال للسجل السابق
كود:
Me.BindingContext(DataSet1, "man").Position -= 1
----------------------------------------------------------
3 - سؤالج الثالث : بخصوص اظهار السجل من خلال ادخال رقمه
اضيفي زر امر وغيري خاصية كابشن ( التسمية ) الى " اضغط هنا للانتقال للسجل "
وضعي فيه الكود ادناه :
كود:
If TextBox6.Text = "" Then
Exit Sub
ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1, "man").Count Then
MessageBox.Show(" أدخلت رقما خاطئا")
Else
Me.BindingContext(DataSet1, "man").Position = (TextBox6.Text - 1)
showlistnumber()
Label11.Text = ""
End If
اضيفي تيكس بوكس ( مربع نص ) لادخال االرقم فيه
حملي المشروع في المشاركة الاولى وحاولي ان تكتشفين الامور بنفسج يالله تصيرين متمكنة من قواعد البيانات
وسلامتج
رد مع اقتباس