نحوه انتقال محتوای یک جدول به یک آرایه

[آرزو بندر]

سلام
یک جدول 10 رکوردی دارم که فقط یک فیلد Name دارد یه آرایه 10 عنصری هم دارم که می خوام مقدارهای فیلد Name جدول را به ترتیب تو خونه 1 تا 10 آرایه قرار دهد ؟؟؟؟



http://barnamenevis.org/images/misc/progress.gif

[MiladMR]

اگه از جدول منظورتون پایگاه داده اکسس هست جوابتون این میشه
اگه منظور دیگه ای داشتید بگید تا اونو هم بزارم

اتصال به بانک:


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATABASENAME.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM Table1"
Adodc1.Refresh

فقط بجای DATABASENAME خط اول اسم بانک خودت که توی فولدر برنامه هست رو بنویس

بازیابی اطلاعات به بانک:


Dim A(1 to 10) As String
For i = 1 To Adodc1.Recordset.RecordCount
A(i)=Adodc1.Recordset.Fields("Name")
Adodc1.Recordset.MoveNext
Next

[Hamid Reza Rahimi]

سلام در ابتدا شما آيا به ديتابيس وصل شديد يا خير ؟ اگر وصل نشديد به چه نوع ديتابيسي مي خواهين وصل بشين ؟‌(sql,access,...) آيا به ترتيب خاصي مي خواهيد نمايش داده شود ؟(مثلا بر اساس حروف الفبا شماره ركورد ؟) (كلا سوال واضح نيست)
اما اگر بخواهيم آرايه از شماره 1 به جاي 0 شروع بشه در قسمت بالاي فرم اولين خط عبارت Option Base 1 را قرار بدين و آرايه را به صورت Dim name (1 To 10 ) As stringتعريف كنيد