[aftfm]

السىلام عليكم ورحمة الله وبركاته

اخواني اريد استخراج بيانات حقل فيه بيانات قد تتكرر
المطلوب استخراج بيانات الحقل بدون تكرار ووضعها في متغير

[Sniper.ps]

السلام عليكم ورحمة الله وبركاته

أخي الكريم راجع الرابط التالي

http://vb4arb.com/vb4/showthread.php?201...t-Distinct

وفقك الله

[aftfm]

الف شكر عزيزي Sniper.ps

لكني اريد وضعها في متغير من نوع ListBox

[سعود]

المثال مرفق

اسم سعود مكرر عدة مرات

[Sniper.ps]

السلام عليكم ورحمة الله وبركاته

أخي الكريم تفضل المثال في المرفقات .. ولأنني أستخدم Visual Studio 2013 .. الكود المستخدم هو

كود :

Imports System.Data.OleDb
Public Class Form1
    Dim CnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\sniper.mdb"
    Dim Con As New OleDbConnection(CnString)
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As OleDbDataAdapter
    Dim CMD As New OleDbCommand
    
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataAdapter1 = New OleDbDataAdapter("Select Distinct(StrNames1) From Table1", Con)
        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "Table1")
        ListBox1.DataSource = DataSet1.Tables(0)
        ListBox1.DisplayMember = "StrNames1"
    End Sub
End Class

وفقك الله

[Sniper.ps]

جزاك الله كل خير أخي الحبيب سعود .. لم أرى ردك