( بسم الله الرحمن الرحيم)
إخواني فاإتصال المتصل ومع الاداة SqlDataReader DR
ننتقل من سجل لأخر عن طريق DR.Read
ولكن مع استخدامها داخل حلقة التكرار لتعبئة ComboBox1
لم أتمكن من العودة للسجل الاول لأكمل ربط الكائنات بالقاعدة..كيف لي ان ان اعود لي السجل الاول..
LIKE DR.FIRST
DR.Read() Me.TextBox1.Text = DR.GetString(1) ComboBox1.Items.Clear() 'سيبدأ من السجل رقم 2 Do While DR.Read() ComboBox1.Items.Add(DR.GetString(2)) Loop DR.Read() 'لن يظهر شيء Me.TextBox2.Text = DR.GetString(1)
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
اقتباسYou can use the ADO.NET DataReader to retrieve a read-only, forward-only stream
of data from a database.
تم تعديل هذه المشاركة بواسطة IOException في 21 نوفمبر 2005 في 16:11
عذا اخي لم افهمك..
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الكائن datareader يستخدم للقراءة فقط وفى اتجاه واحد لللامام فقط يعنى لا يمكن العودة للخلف ابدا
استخدمى dataset للتجول بحرية فى البيانات
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
(h) استخدمى الداتا سيت
و للتنقل بين السجلات سيكون مثل المشاركة الموجودة هنا
Technical Lead Developer
اللهم قنى شر الجهل و الجهلاء
( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}
:rolleyes: شكرا على التوضيح إخواني
<_< ولكن بهذا الشكل لن يكون إتصال متصل !
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
hi
i think thats no way to do thats direct but you can run the query again and take just the first record like thats example
Dim comand As New SqlCommand("select * from MyTable")
Dim DR As SqlDataReader
DR = comand.ExecuteReader
then take the DR reader and without loop you can get the first record
نعم أخي فكرت فيها :lol:
وجأتني فكرة أخرى وبما أنها لا تقرأ إلا الامام
Sub FillObject(ByVal OBJT As Object, ByVal OBJT1 As Object, ByVal NumberColl As Int32, ByVal NumberColl1 As Int32, ByVal OBJT00 As Object) OBJT.Items.Clear() OBJT1.Items.Clear() OBJT1.Items.Add(OBJT00.TEXT()) OBJT.Items.Add(OBJT00.TEXT()) Do While DR.Read() OBJT.Items.Add(DR.GetString(NumberColl)) OBJT1.Items.Add(DR.GetString(NumberColl1)) Loop End Sub '''''''''''''''''''''''''''''''''''''''''''' DR.Read() Me.TextBox1.Text = DR.GetString(1) Me.ListView1.Items.Add(DR.GetString(1)) FillObject(Me.ComboBox1, Me.ListBox1, 1, 2, TextBox1)
Thnx All :lol:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…