+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود الانتقال للجدول التالي لوسمحتم (/showthread.php?tid=20473)
كود الانتقال للجدول التالي لوسمحتم - gharib - 20-05-17
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim conStr As String = "provider=Microsoft.Jet.oledb.4.0; Data source=" & Application.StartupPath & "\asc.mdb"
Dim conn As New OleDbConnection(conStr)
Dim dataset1 As New DataSet
Dim sqlstrnp As String = " select* from 1 "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstrnp, conn)
dataadapter1.Fill(dataset1, "1")
conn.Close()
TextBox1.DataBindings.Add("text", dataset1, "1.الوتد")
TextBox2.DataBindings.Add("text", dataset1, "1.المصب")
TextBox3.DataBindings.Add("text", dataset1, "1.جريانه")
TextBox4.DataBindings.Add("text", dataset1, "1.المسافة")
TextBox5.DataBindings.Add("text", dataset1, "1.التجزئة")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(dataset1, "1").Position = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(dataset1, "1").Position += 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(dataset1, "1").Position -= 1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(dataset1, "1").Position = Me.BindingContext(dataset1, "1").Count - 1
End Sub
End Class
الاخوة الافاضل السلام عليكم
ما سبق هو كود للاتصال بقاعدة بيانات ascو هي تحوي على عدد كبير من الجداول الغير مرتبطة ببعضها 150 جدول و احيانا اكثر
من خلال الكود السابق تم الاتصال بالجدول رقم 1 و تمت معالجته
و المطلوب كود لكي انتقل للجدول التالي اي تصبح قيمة 1 هي 2 و هكذا حتى الانتهاء من كل الجداول
و جزاكم الله كل خير
يرجى تبديل اتجاه النص لقراءة الكود بشكل صحيح
RE: كود الانتقال للجدول الثاني - محمود بكرى - 20-05-17
اخي الغالي
لو كنت تريد ان تتصل باي جدول كل ما عليك وضع زر وكمبوا بوكس باسماء الجداول او قيمتها لو كل الجداول عندك بارقام 1 و 2 و 3 وعمل متغير نصي تحفظ فيه اسم الجدول
ثم تدمجه مع الكود وياخذ قيمته من الكومبو بوكس مع مراعاة ان تكون قيمة نصية اعذرني على قلة التوضيح فاني مشغول للغاية
مثال
كود :
"'"& Dim sqlstrnp As String = " select* from'"& yourstringtable_namevarRE: كود الانتقال للجدول الثاني - alma2 - 20-05-17
كود الانتقال للجدول الثاني من خلال Button5 على أن تكون الأعمدة متطابقة
أضفت Label1 لاظهار رقم السجل الحالي من مجموع السجلات أثناء التنقل بالأزارير
كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\asc.mdb")
Dim dt As New DataTable
Dim WithEvents bs As New BindingSource With {.DataSource = dt}
Dim sqlstrnp As String = "SELECT * FROM [{0}]" ' الصفر هنا ليس اسم جدول فلا تغيره
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String = String.Format(sqlstrnp, "1") 'تحديد الجدول الأول
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dataadapter1.Fill(dt)
TextBox1.DataBindings.Add("text", bs, "الوتد")
TextBox2.DataBindings.Add("text", bs, "المصب")
TextBox3.DataBindings.Add("text", bs, "جريانه")
TextBox4.DataBindings.Add("text", bs, "المسافة")
TextBox5.DataBindings.Add("text", bs, "التجزئة")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bs.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bs.MoveNext()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
bs.MovePrevious()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
bs.MoveLast()
End Sub
Private Sub bindingsource1_PositionChanged(sender As Object, e As System.EventArgs) Handles bs.PositionChanged
Label1.Text = bs.Position + 1 & " / " & bs.Count
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
'تغيير الجدول
Dim sql As String = String.Format(sqlstrnp, "2") 'تحديد الجدول الثاني
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dt.Clear()
dataadapter1.Fill(dt)
End Sub
End ClassRE: كود الانتقال للجدول الثاني - gharib - 21-05-17
كل الشكر لكم
جاري التجريب
ان شاء الله خير
RE: كود الانتقال للجدول الثاني - gharib - 21-05-17
الاستاذ alma2 يرجى تعدبل الكود ليعطي الجدول التالي و ليس الثاني اي اريد ان يكون الرقم "2" متغيرا يأخذ رقم الجدول الذي اختاره له فالقاعدة تحوي اكثر من 150 جدول
Dim sql As String = String.Format(sqlstrnp, "2") 'تحديد الجدول الثاني
Dim sql As String = String.Format(sqlstrnp, " ") 'تحديد الجدول التالي
اتعبتك معي فلك كل الشكر و لكل المتفاعلين
RE: كود الانتقال للجدول الثاني - gharib - 23-05-17
مازلت انتظر الاجابة ممن اتاهم الله العلم في هذا المجال و كل الشكر لكم
RE: كود الانتقال للجدول التالي لوسمحتم - ابو ليلى - 25-05-17
المشكلة انك لا تتوفر على اسماء الجداول في مصفوفة ما , لتقول اريد الجدول التالي
يا صديقي انت مجبر على تمرير اسم الجدول في مثل حالتك
الاخ/ت alma2 اعطاك الفكرة و عليك انت ان تقوم باكمال الباقي
اما فكرة الجدول التالي فتاتي بالاعتماد على سلسلة من الاسماء مرتبة بطريقة ما مثل المصفوفة
سؤال يحتاج الى اجابة ؟؟
هل اسماء الجداول لديك كلها رقمية مثل 150,....1,2,3,4
اذا كانت كذلك يمكن التفكير بطريقة مناسبة للحل , وفق مبدأ جلب بيانات الجدول الجديد (اسم الجدول الجديد = اسم الجدول القديم+1)
بالتوفيق