[dubai.eig]

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

اعزائي من فترة قمت بكتابة موضوع 
http://vb4arb.com/vb/showthread.php?tid=20557


وحاولت اجد  الحل والطريقه   لكيفية عمل نفس التصميم بس  ما حصلت

هذا التصميم
   

حاولت في بس ما ضبط

   

كود :

          Dim dr As SQLiteDataReader
           Dim cnn As New SQLiteConnection(String.Format("Data Source= {0}\settings\info{1}.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))
           Dim cmdi As New SQLiteCommand(String.Format("SELECT * FROM info{0} ORDER BY id", strcallbk), cnn)
           cnn.Open()
           dr = cmdi.ExecuteReader()
           Do While dr.Read()

               DXde = dr("DXde").ToString
               Frequency = dr("Frequency").ToString
               DXStation = dr("DXStation").ToString
               Comments = dr("Comments").ToString
               Time = dr("Time").ToString
               Country = dr("Country").ToString
           Loop

اتمنى احصل الطريقه وانا اكمل الباقي 


بارك الله فيكم