ورود

View Full Version : اتصال دیتاگرید به adodb از طریق کد



hamidsajjadieh
چهارشنبه 22 آذر 1391, 16:49 عصر
سلام
فرض کنید که یه جدول شامل هزاران رکورد داریم که میخوام اونا را تو دیتا گرید نمایش دهیم
یه روش اینه که یکی یکی رکوردها از تیبل خوانده بشه و توی دیتا گرید قرار بگیره که این کار زمان بره و ممکنه چند ثانیه طول بکشه
راه دیگه از طریق خصوصیت DataSource دیتا گرید هستش.
با توجه به اینکه من اصلا از adodc استفاده نکردم چطوری میتونم از طریق کد دیتا گرید را به adodb وصل کنم

به این کد توجه کنید لطفا:

dim cnn As New adodb.Connection
dim Rst As New adodb.Recordset
dim strProvider as string

strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\royal_amlak.mdb;Persist Security Info=False"
cnn.Open strProvider

VSFlexGrid1.DataSource = ?


بجای ؟ چی بایستی نوشته بشه

unforgiven
چهارشنبه 22 آذر 1391, 17:10 عصر
سلام
به فرض اگر بخواهی اطلاعات یک جدول را در گرید نمایش بدی باید به این صورت عمل کنی :



Rst.Open "SELECT * FROM (نام جدول) ", cnn, adOpenKeyset, adLockOptimistic
Set VSF.DataSource = Rst

hamidsajjadieh
چهارشنبه 22 آذر 1391, 18:27 عصر
ممنون

حالا اگه بخوام این ارتباط را قطع کنم چکار باید کرد؟

unforgiven
چهارشنبه 22 آذر 1391, 19:50 عصر
برای خالی کردن محتویات گرید


Set VSF.DataSource = Nothing