تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود الانتقال للجدول التالي لوسمحتم
#1
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 و هكذا حتى الانتهاء من كل الجداول
و جزاكم الله كل خير
يرجى تبديل اتجاه النص لقراءة الكود بشكل صحيح
الرد
تم الشكر بواسطة:
#2
اخي الغالي
لو كنت تريد ان تتصل باي جدول كل ما عليك وضع زر وكمبوا بوكس باسماء الجداول او قيمتها لو كل الجداول عندك بارقام 1 و 2 و 3 وعمل متغير نصي تحفظ فيه اسم الجدول
ثم تدمجه مع الكود وياخذ قيمته من الكومبو بوكس مع مراعاة ان تكون قيمة نصية اعذرني على قلة التوضيح فاني مشغول للغاية
مثال
كود :
"'"& Dim sqlstrnp As String = " select* from'"& yourstringtable_namevar
الرد
تم الشكر بواسطة: gharib , gharib , Amir_Alzubidy
#3
كود الانتقال للجدول الثاني من خلال 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 Class
الرد
تم الشكر بواسطة: gharib , Amir_Alzubidy
#4
كل الشكر لكم
جاري التجريب
ان شاء الله خير
الرد
تم الشكر بواسطة:
#5
الاستاذ alma2 يرجى تعدبل الكود ليعطي الجدول التالي و ليس الثاني اي اريد ان يكون الرقم "2" متغيرا يأخذ رقم الجدول الذي اختاره له فالقاعدة تحوي اكثر من 150 جدول

Dim sql As String = String.Format(sqlstrnp, "2") 'تحديد الجدول الثاني

Dim sql As String = String.Format(sqlstrnp, " ") 'تحديد الجدول التالي
اتعبتك معي فلك كل الشكر و لكل المتفاعلين
الرد
تم الشكر بواسطة:
#6
مازلت انتظر الاجابة ممن اتاهم الله العلم في هذا المجال و كل الشكر لكم
الرد
تم الشكر بواسطة:
#7
المشكلة انك لا تتوفر على اسماء الجداول في مصفوفة ما , لتقول اريد الجدول التالي
يا صديقي انت مجبر على تمرير اسم الجدول في مثل حالتك
الاخ/ت   alma2  اعطاك الفكرة و عليك انت ان تقوم باكمال الباقي

اما فكرة الجدول التالي فتاتي بالاعتماد على سلسلة من الاسماء مرتبة بطريقة ما مثل المصفوفة

سؤال يحتاج الى اجابة ؟؟
هل اسماء الجداول لديك كلها رقمية مثل 150,....1,2,3,4
اذا كانت كذلك يمكن التفكير بطريقة مناسبة للحل , وفق مبدأ جلب بيانات الجدول الجديد (اسم الجدول الجديد = اسم الجدول القديم+1)

بالتوفيق
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , gharib


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال : رجاء اريد اتمام كود الجمع التالي .... mh66 1 86 18-10-21, 04:40 PM
آخر رد: asemshahen5
  الانتقال إلى سجل محدد في الداتا قرايد فيو بدون استخدام select معتز حسن 6 692 30-09-21, 04:00 PM
آخر رد: معتز حسن
  محتاج كود التنقبل بين الاسطر التالي والسابق في TextBox shady2020 1 711 22-09-21, 11:10 AM
آخر رد: Kareem2021
  كيف استثني يوم الجمعة في الكود التالي abomo3ath 1 389 07-06-21, 11:51 PM
آخر رد: Fareed2
  كيفية الانتقال علي اخر اداة او سطر في flowlauytpanel عبدالكريم برشدان 0 314 01-05-21, 07:36 PM
آخر رد: عبدالكريم برشدان
  [VB.NET] الكود التالي ينفذ كل 10 من الشهر اريد ان ينفذ كل سنة وشكرا للمساعدة alim54 0 414 19-02-21, 11:01 PM
آخر رد: alim54
  [VB.NET] زر التالي والسابق للصورة أمجد وضاح 2 507 20-11-20, 11:02 AM
آخر رد: أمجد وضاح
  ما الغلط في كود التعديل التالي برحوت 0 399 13-10-20, 09:11 PM
آخر رد: برحوت
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 839 17-09-20, 01:37 AM
آخر رد: Sanaa2
  [سؤال] مشكلة في زر التالي والسابق لا يعمل معي mazentq 4 1,018 22-06-20, 09:44 PM
آخر رد: mazentq

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم