السلام عليكم ورحمة الله وبركاته
كيف يمكن عرض السجل الثاني من الجدول في
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
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
هذا الكود يقوم باسترجاع بيانات الجدول بالكامل ووضعها في جدول بعد ذلك تقوم بانشاء مصفوفتين كل مصفوفة تمثل نوع كل عمود وحجم المصفوفة يساوي حجم الجدول وبعد ذلك يقوم هذا الكود بتخزين البيانات وبامكانك استرجاعهم ووضعهم في التكست بوكس
شكرا لك اخى العزيز ولاكن الكود لم يعمل يوجد خطأ في
Dim cmd = New SqlCommand("select * from all_employees where emp ='" & TextBox6.Text", con)
Dim adapter = New SqlDataAdapter(cmd)
لوتكرمت عليا وأكملت باقي الكود اكون لك من الشاكرين
اخواني المحترمين
عندما جربت الكود السابق للآخ الوليد مع قاعدة بيانات سيكوال 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
اخي الوليد وباقي الأعضاء اتمنى الرد على سؤالي للأهمية
سؤال للأستاذ : وليد بارك الله فيه
طبقت الكود الذي تفضلت به و لكن على قاعدة بيانات أكسيس و لم تنجح المحاولة .
ما أرجوه هو مراجعة المحاولة و توضيح الخطأ و التصحيح لو تكرمتم و دمتم .
المرفقات : ملف
[
attachment=6210]
داق فلشر ومستني 
