تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة في عرض اخر سجلين من الجدول
#1
Photo 


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


كيف يمكن عرض السجل الثاني من الجدول في 
        TextBox4.Text = dt.Item("year1")
        TextBox5.Text = dt.Item("score")

مع الشكر


الكود المستخدم 

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQL As String = "Data Source=USER-PC;Initial Catalog=Administration;Connect Timeout=30;User ID=max;Password=07111"
        Dim conn As New SqlConnection(SQL)
        Dim cmd As New SqlCommand
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "select * from all_employees where emp ='" & TextBox6.Text & "'"
        cmd.CommandType = CommandType.Text
        Dim dt As SqlDataReader = cmd.ExecuteReader()
        dt.Read()
        TextBox1.Text = dt.Item("emp")
        TextBox2.Text = dt.Item("year1")
        TextBox3.Text = dt.Item("score")
        TextBox4.Text = dt.Item("year1")
        TextBox5.Text = dt.Item("score")
        TextBox6.Text = dt.Item("emp")
        conn.Dispose()
    End Sub
End Class

الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Dim con = New SqlConnection("Data Source=USER-PC;Initial Catalog=Administration;Connect Timeout=30;     UserID=max;Password=07111")
 
      Dim cmd = New SqlCommand("select * from all_employees where emp ='" TextBox6.Text", con)
       Dim table = New DataTable
       Dim adapter = New SqlDataAdapter(cmd)
       adapter.Fill(table)
       Dim a(table.Rows.Count) As Integer
       Dim b(table.Rows.Count) As String
       Dim s = 0
       For Each row In table.Rows
           a(s) = row(0)
           b(s) = row(1)
           s += 1
       Next 


هذا الكود يقوم باسترجاع بيانات الجدول بالكامل ووضعها في جدول بعد ذلك تقوم بانشاء مصفوفتين كل مصفوفة تمثل نوع كل عمود وحجم المصفوفة يساوي حجم الجدول وبعد ذلك يقوم هذا الكود بتخزين البيانات وبامكانك استرجاعهم ووضعهم في التكست بوكس
الرد }}}
تم الشكر بواسطة:
#3
شكرا لك اخى العزيز ولاكن الكود لم يعمل  يوجد خطأ في 
 
Dim cmd = New SqlCommand("select * from all_employees where emp ='" & TextBox6.Text", con)

Dim adapter = New SqlDataAdapter(cmd)

لوتكرمت عليا وأكملت باقي الكود  اكون لك من الشاكرين
الرد }}}
تم الشكر بواسطة:
#4

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

شرحك لسؤالك لا يطابق عنوان الموضوع، لكن راح اجاوب على أساس العنوان لأنه هو اللي واضح شوي

جرب هذا الكود وإن شاء الله تمام، وعلى فكرة هذه الطريقة موجودة بكثرة في هذا المنتدى

انا عملت فرز ولكن بالعكس بدلالة السنة ولو يوجد حقل id يكون أفضل بكثير وبعدي أخذت أعلى سطرين من الناتج
PHP كود :
Imports System.Data.SqlClient

Public Class Form1
    
Private connString As String "Data Source=USER-PC;Initial Catalog=Administration;Connect Timeout=30;User ID=max;Password=07111"

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Using da 
As New SqlDataAdapter("SELECT TOP 2 * FROM [all_employees] WHERE [emp]=@emp ORDER BY [year1] DESC"connString)
            
da.SelectCommand.Parameters.AddWithValue("@emp"Val(Me.TextBox6.Text))

            
Using dt As New DataTable

                
If da.Fill(dt) = 2 Then

                    Dim row1 
As DataRow dt.Rows(0)
                    
Me.TextBox1.Text row1.Item("emp")
                    
Me.TextBox2.Text row1.Item("year1")
                    
Me.TextBox3.Text row1.Item("score")

                    
Dim row2 As DataRow dt.Rows(1)
                    
Me.TextBox4.Text row2.Item("year1")
                    
Me.TextBox5.Text row2.Item("score")
                    
Me.TextBox6.Text row2.Item("emp")

                
End If

            
End Using

        End Using
    End Sub

End 
Class 

الرد }}}
تم الشكر بواسطة:
#5
شغال  100/100   Big Grin Big Grin


اخى الوليد واخي shwehdi4pc اعجز عن شكركم

وجزاكم الله خير وجعله في موازين حسناتكم
الرد }}}
تم الشكر بواسطة:
#6
اخواني  المحترمين

عندما جربت الكود السابق للآخ الوليد مع قاعدة بيانات سيكوال sql   اشتغل   100 /100  

ولا كن سؤالي   كيف يتم الربط عن طريق نفس الكود مع  قاعدة بيانات oracle  

ارجو منكم الإجابة على سؤالي


Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types


 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
oradb As String = "Data Source=(xxxxx=(ADDRESS=(PROTOCOL=TCP)(HOST=12.96.52.3)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=xxxxxxxx)));User Id=xxxxxx;Password=xxxxxx;"
Dim conn As New OracleConnection(oradb)
Dim cmd As New OracleCommand
conn.Open()
cmd.Connection = conn
  Using da As New OracleDataAdapter("SELECT TOP 2 * FROM [all_employees] WHERE [emp]=@emp ORDER BY [year1] DESC", conn)
           da.SelectCommand.Parameters.AddWithValue("@emp", Val(Me.TextBox6.Text))
           Using dt As New DataTable
               If da.Fill(dt) = 2 Then
                   Dim row1 As DataRow = dt.Rows(0)
                   Me.TextBox1.Text = row1.Item("emp")
                   Me.TextBox3.Text = row1.Item("score")
                   Dim row2 As DataRow = dt.Rows(1)
                   Me.TextBox5.Text = row2.Item("score")
                   Me.TextBox6.Text = row2.Item("emp")
               End If
           End Using
       End Using
   End Sub
End Class
الرد }}}
تم الشكر بواسطة:
#7
اخي الوليد وباقي الأعضاء اتمنى الرد على سؤالي للأهمية
الرد }}}
تم الشكر بواسطة:
#8
Photo 
Sad داق فلشر ومستني Angry 
الرد }}}
تم الشكر بواسطة:
#9

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

مصادفة دخلت الآن ووجدت ردك الأخير ب 14 دقيقة

لم أتعامل مع أوراكل ولكن جواب لنفس السؤال بخصوص البارامتر(آخر رد هنا)

في جملة الإستعلام فقط تكتب النقطتين هذه : بدلا من @
ولكن في البارامتر لا تكتب النقطتين يعني اسم البارامتر على طول

وأيضاً يمكن حتى الأقواس [] قد يرفضها أوراكل لكن جرب في الحالتين وأفدنا بالمعلومات لنزداد خبرة عن طريقك

PHP كود :
Using da As New OracleDataAdapter("SELECT TOP 2 * FROM all_employees WHERE emp=:emp ORDER BY year1 DESC"conn)
    
da.SelectCommand.Parameters.AddWithValue("emp"Val(Me.TextBox6.Text)) 

الأخوة ما يقصروا لكن كل واحد وظروفه، العذر والسموحة إذا انشغلت وما تابعت موضوعك


الرد }}}
تم الشكر بواسطة:
#10
سؤال للأستاذ : وليد بارك الله فيه
طبقت الكود الذي تفضلت به و لكن على قاعدة بيانات أكسيس و لم تنجح المحاولة .
ما أرجوه هو مراجعة المحاولة و توضيح الخطأ و التصحيح لو تكرمتم و دمتم .
المرفقات : ملف

.zip   Try.zip (الحجم : 85.99 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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