[سلامات]

(12-08-17, 02:19 AM)سعود كتب : انا مستغرب من الاخ "سلامات"  ما علق على مشاركتي بالموضوع مع اني ارى ان الانسب ماقلته له.
شوف الملف المرفق ملف dll به ثلاث دوال 1-تعيد جملة اتصال لملف قاعدة على محرك E  باسم db.accdb
2-واسم الجدول
3- واسم العمود

اضفها كـ Reference 
ثم ضع الكود التالي باي حدث وليكن حدث النقر لزر الامر

كود :

       Dim mcon As New MyCon.Class1
       Using con As New OleDb.OleDbConnection(mcon.constr)
           If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Using cmd As New OleDb.OleDbCommand("select * from " & mcon.tablename & "", con)
               Using dr As OleDb.OleDbDataReader = cmd.ExecuteReader
                   Do While dr.Read
                       ListBox1.Items.Add(dr(1))
                   Loop
               End Using
           End Using
       End Using

أرجو ان يكون هذا المثال هو المطلوب.
حفظكم الله جميعا.

اخويه سعود على راسي والله الاكسس ما شغال عليه البرنامج ذاتو معملت عليه