[nabil]

السلام عليكم اخواني عندي امتحان وفيه سؤالين لو حد يقدر يجوني عليهم
السؤال الاول
جمله select احضار الطالب الثاني علي الفصل sql
السؤال الثاني
تحويل هذه الجمله (zzynznnanaa) الي (zynznana) اي اريد حزف الحروف المتشبه وتكون متجاوره ب c# or vb

[سعود]

جواب السؤال الاخر على طريقتي

كود :

Public Class Form1
    Dim alist As New List(Of String)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each h In TextBox1.Text
            If Not alist.Contains(h) Then
                alist.Add(h)
            End If
        Next
        TextBox1.Clear()
        For Each t In alist
            TextBox1.AppendText(t)
        Next
    End Sub
End Class

[سعود]

يبدو اني تسرعت

[سعود]

بالنسبة للسؤال الاول عطنا تفاصيل الجدول .
يعني هل رتبة الطالب برقم ام بمجموع درجاته ام كيف؟

[nabil]

واللهي العظيم مش عارف اشكركم ازاي الترحتيب حسب المجموع بمعني فيه حقل الاسم وحقل المجموع

[nabil]

اخي سعود لك كل الشكر علي مجهود بس المثال اللي كتبه بيشيل كل المتشبه وطلبي يشيل المتشبه المتجور فقط بمعني في جمله(asassas) انا محتجها كده (asasas) اما في المثل اللي بعته بيكتبها كده (as)

[سعود]

اي نعم عشان كذا قلت اني تسرعت حاولت فيها وماتوصلت
ان شالله الاخوان يساعدونا

[nabil]

واللهي يكفينا مسعدتك ومشكور علي مجهودك ومشكور علي محولتك لك مني كل احترام

[سعود]

بالنسبة لسؤال الاستعلام

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim sql As String = "select * from tb order by tmax desc"
    Dim ds As New DataSet


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub gd()
        Dim da As New OleDbDataAdapter(sql, con)
        ds.Clear()
        d.DataSource = Nothing


        da.Fill(ds, "tb")
        d.DataSource = ds
        d.DataMember = "tb"
        d.Columns(0).Visible = False

    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(ds.Tables("tb").Rows(1).Item("tn"))
    End Sub
End Class

المثال مرفق بخصوص جلب ثاني رقم

[nabil]

مشكور اخي سعود بس من الوضح اني ماقدرت اوصل طلبي صح حيث اني اريد جمله استعلام في query sql