السلام عليكم اخواني عندي امتحان وفيه سؤالين لو حد يقدر يجوني عليهم
السؤال الاول
جمله 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
يبدو اني تسرعت
بالنسبة للسؤال الاول عطنا تفاصيل الجدول .
يعني هل رتبة الطالب برقم ام بمجموع درجاته ام كيف؟
واللهي العظيم مش عارف اشكركم ازاي الترحتيب حسب المجموع بمعني فيه حقل الاسم وحقل المجموع
اخي سعود لك كل الشكر علي مجهود بس المثال اللي كتبه بيشيل كل المتشبه وطلبي يشيل المتشبه المتجور فقط بمعني في جمله(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
المثال مرفق بخصوص جلب ثاني رقم
مشكور اخي سعود بس من الوضح اني ماقدرت اوصل طلبي صح حيث اني اريد جمله استعلام في query sql