اضافة سجلات من 5 الى 30

السلام عليكم

لو انك رابط الداتا بيز بواسطة الاداة Data1 فاستعمل الكود التالي بعد ربط text1 او اي text اخر بالاداة داتا بالحقل Name

data1.recordset.movefirst
for i=1 to 30
data1.recordset.movenext
if i>4 then list1.additem (text1.text)
next

جزاك الله خيرا أخي العزيز hishamnasr

ولو تكرمت أن تكتب الكود فيما لو كانت الداتا (ADO)

وشكرا

السلام عليكم

الصراحة لم اجد طريقة مباشرة بواسطة ADO

و ارجو من بقية الاخوة الاجابة لنعلم الاجابة جميعنا

Assuming that the record No is your table`s primary key

try this code:

dim cn as ADODB.Connection
dim rs as ADODB.Recordset

cn.open ' your connection string goes here
rs.open "Select Name from table_name where record_id between(5, 30)", cn

while !rs.EOF
	me.combo1.addItem( rs!Name)
wend

and tell me if there is something wrong because I am not 100 % sure of this code

sorry for writing in english, the PC that I am writing from doesn`t support arabic and I have no priviliges to make ti support

جزاك الله خيرا أخي العزيز walcom

ولو تكرمت بمثال حتى تتم الفائدة

شكرا