+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة في عرض اخر سجلين من الجدول (/showthread.php?tid=10850)
الصفحات:
1
2
مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 04-12-14
السلام عليكم ورحمة الله وبركاته
كيف يمكن عرض السجل الثاني من الجدول في
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
RE: مساعدة في عرض اخر سجلين من الجدول - shwehdi4pc - 04-12-14
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
هذا الكود يقوم باسترجاع بيانات الجدول بالكامل ووضعها في جدول بعد ذلك تقوم بانشاء مصفوفتين كل مصفوفة تمثل نوع كل عمود وحجم المصفوفة يساوي حجم الجدول وبعد ذلك يقوم هذا الكود بتخزين البيانات وبامكانك استرجاعهم ووضعهم في التكست بوكس
RE: مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 04-12-14
شكرا لك اخى العزيز ولاكن الكود لم يعمل يوجد خطأ في
Dim cmd = New SqlCommand("select * from all_employees where emp ='" & TextBox6.Text", con)
Dim adapter = New SqlDataAdapter(cmd)
لوتكرمت عليا وأكملت باقي الكود اكون لك من الشاكرين
RE: مساعدة في عرض اخر سجلين من الجدول - الوليد ☺ - 04-12-14
السلام عليكم ورحمة الله
شرحك لسؤالك لا يطابق عنوان الموضوع، لكن راح اجاوب على أساس العنوان لأنه هو اللي واضح شوي
جرب هذا الكود وإن شاء الله تمام، وعلى فكرة هذه الطريقة موجودة بكثرة في هذا المنتدى
انا عملت فرز ولكن بالعكس بدلالة السنة ولو يوجد حقل 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.Object, ByVal e As System.EventArgs) Handles 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
RE: مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 05-12-14
شغال 100/100
اخى الوليد واخي shwehdi4pc اعجز عن شكركم
وجزاكم الله خير وجعله في موازين حسناتكم
RE: مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 06-12-14
اخواني المحترمين
عندما جربت الكود السابق للآخ الوليد مع قاعدة بيانات سيكوال 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
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
RE: مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 07-12-14
اخي الوليد وباقي الأعضاء اتمنى الرد على سؤالي للأهمية
RE: مساعدة في عرض اخر سجلين من الجدول - المستكاوي - 10-12-14
داق فلشر ومستني 
RE: مساعدة في عرض اخر سجلين من الجدول - الوليد ☺ - 10-12-14
السلام عليكم ورحمة الله
مصادفة دخلت الآن ووجدت ردك الأخير ب 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))
الأخوة ما يقصروا لكن كل واحد وظروفه، العذر والسموحة إذا انشغلت وما تابعت موضوعك
RE: مساعدة في عرض اخر سجلين من الجدول - benomar - 10-12-14
سؤال للأستاذ : وليد بارك الله فيه
طبقت الكود الذي تفضلت به و لكن على قاعدة بيانات أكسيس و لم تنجح المحاولة .
ما أرجوه هو مراجعة المحاولة و توضيح الخطأ و التصحيح لو تكرمتم و دمتم .
المرفقات : ملف
[attachment=6210]