منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استعلام
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم اخواني عندي امتحان وفيه سؤالين لو حد يقدر يجوني عليهم
السؤال الاول
جمله 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

[صورة مرفقة: 7dwW0u.png]
[صورة مرفقة: jzqV3e.png]
يبدو اني تسرعتSad
بالنسبة للسؤال الاول عطنا تفاصيل الجدول .
يعني هل رتبة الطالب برقم ام بمجموع درجاته ام كيف؟
واللهي العظيم مش عارف اشكركم ازاي الترحتيب حسب المجموع بمعني فيه حقل الاسم وحقل المجموع
اخي سعود لك كل الشكر علي مجهود بس المثال اللي كتبه بيشيل كل المتشبه وطلبي يشيل المتشبه المتجور فقط بمعني في جمله(asassas) انا محتجها كده (asasas) اما في المثل اللي بعته بيكتبها كده (as)
اي نعم عشان كذا قلت اني تسرعت حاولت فيها وماتوصلت
ان شالله الاخوان يساعدونا
واللهي يكفينا مسعدتك ومشكور علي مجهودك ومشكور علي محولتك لك مني كل احترام
بالنسبة لسؤال الاستعلام
كود :
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

[صورة مرفقة: Kw3Gl6.png]

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