+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : استعلام (/showthread.php?tid=2515)
الصفحات:
1
2
استعلام - nabil - 09-04-14
السلام عليكم اخواني عندي امتحان وفيه سؤالين لو حد يقدر يجوني عليهم
السؤال الاول
جمله select احضار الطالب الثاني علي الفصل sql
السؤال الثاني
تحويل هذه الجمله (zzynznnanaa) الي (zynznana) اي اريد حزف الحروف المتشبه وتكون متجاوره ب c# or vb
RE: استعلام - سعود - 09-04-14
جواب السؤال الاخر على طريقتي
كود :
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
RE: استعلام - سعود - 09-04-14
يبدو اني تسرعت
RE: استعلام - سعود - 09-04-14
بالنسبة للسؤال الاول عطنا تفاصيل الجدول .
يعني هل رتبة الطالب برقم ام بمجموع درجاته ام كيف؟
RE: استعلام - nabil - 09-04-14
واللهي العظيم مش عارف اشكركم ازاي الترحتيب حسب المجموع بمعني فيه حقل الاسم وحقل المجموع
RE: استعلام - nabil - 09-04-14
اخي سعود لك كل الشكر علي مجهود بس المثال اللي كتبه بيشيل كل المتشبه وطلبي يشيل المتشبه المتجور فقط بمعني في جمله(asassas) انا محتجها كده (asasas) اما في المثل اللي بعته بيكتبها كده (as)
RE: استعلام - سعود - 09-04-14
اي نعم عشان كذا قلت اني تسرعت حاولت فيها وماتوصلت
ان شالله الاخوان يساعدونا
RE: استعلام - nabil - 09-04-14
واللهي يكفينا مسعدتك ومشكور علي مجهودك ومشكور علي محولتك لك مني كل احترام
RE: استعلام - سعود - 09-04-14
بالنسبة لسؤال الاستعلام
كود :
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
المثال مرفق بخصوص جلب ثاني رقم
RE: استعلام - nabil - 09-04-14
مشكور اخي سعود بس من الوضح اني ماقدرت اوصل طلبي صح حيث اني اريد جمله استعلام في query sql