مشکل در دیتاگرید

[mf_engineer]

با سلام
من توی خیلی از تاپیک ها گشتم وکد مربوط به خوندن و نمایش دادن اطلاعات در دیتاگرید رو دیدم
این کد رو نوشتم

adoConn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
sqlString = "SELECT * FROM masajed "
adoConn.Open
adoRS.Open sqlString, adoConn
Set DataGrid1.DataSource = adoRS
[ltr]
ولی این ارر رو می ده
[ltr]The rowset is not bookmarkable
ممنون می شم کمکم کنید
یاحق

[lahiji]

سلام

این ERROR موقعی رخ میده که فیلد ها تو برای دیتا گرید ست نکردی
فیلد ها تو برای هر COLUME ست کن

[mf_engineer]

ممنون از راهنمایی شما
ولی می شه کد ست کردن رو برام بنویسین وبگین چطوری ست کنم؟؟؟
اخه من هرچی می نویسم باز ایراد می گیره !!!!

[atenaa]

این خط کدتون رو به صورت زیر اصلاح کنید و پیش فرض های Vb رو برای cursortype عوض کنید
adoRS.Open sqlString, adoConn,1,3

[mf_engineer]

می شه یه لطفی بکنین و کد کامل رو برام بذارین
واینکه چطوری دیتاگرید رو با فیلدهای بانک ست کنم؟
ممنون

[mpmsoft]

این کد رو بعد باز کردن بانکت بنویس

Conn.CurserLocation=1

[samiraamiri]

با سلام

dim myrst As ADODB.Recordset
Set myrst = New Recordset

strsql = "SELECT f1, f2 FROM mytbl "

myrst .Open strsql , cnnString, adOpenStatic, adLockOptimistic




Set mygrid.DataSource = myrst
موفق باشید

[mf_engineer]

با سلام وممنون از راهنمایی شما
من این کدهای شما رو اعمال کردم
این کد من :

adoConn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=o"
sqlString = "SELECT * FROM masajed "
adoConn.Open
adoRS.Open sqlString, adoConn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoRS
DataGrid1.DataMember = "SELECT * FROM masajed where code='" & Val(Trim(Form27.Text2.Text)) & "' "
DataGrid1.Columns.Add (1)
DataGrid1.Columns.Add (1)
DataGrid1.Columns.Add (1)
DataGrid1.Font = "tahoma"
DataGrid1.Columns(0).Caption = "کد موقوفه"
DataGrid1.Columns(1).Caption = "نام موقوفه"
DataGrid1.Columns(2).Caption = "پلاک ثبتی"
DataGrid1.Columns(3).Caption = "کلاسه "
DataGrid1.Columns(4).Caption = "آدرس موقوفه"

DataGrid1.Columns(0).DataField = adoRS.Fields("code")
DataGrid1.Columns(1).DataField = adoRS.Fields("sknamemoghofe")
DataGrid1.Columns(2).DataField = adoRS.Fields("pelak")
DataGrid1.Columns(3).DataField = adoRS.Fields("kelase")
DataGrid1.Columns(4).DataField = adoRS.Fields("addres")
DataGrid1.Refresh
adoRS.Close
adoConn.Close
Set adoRS = Nothing
Set adoConn = Nothing

ولی نه پیغام خطایی می ده ونه اطلاعات رو نشون می ده؟؟؟
یعنی یک دیتا گرید خالی به تعداد 5 ستون!!!
وسوال دیگه اینکه چرا فونت رو نمی شه عوض کرد بااینکه من فونت دیتاگرید رو tahoma گذاشتم بازم فونتش مال پیش فرض ؟؟؟

[lahiji]

سلام
دوست عزیز این برنامه کد نویسی نشده
ولی از command خود datagride استفاده شده بدردت می خوره

[atenaa]

اینکه می گید هیچی رو نشون نمی ده واسه این چند خط کد شماست
adoRS.Close
adoConn.Close
Set adoRS = Nothing
Set adoConn = Nothing
شما نباید ببنید رکوردست خودتون و وگرنه رکورد ست با رکوردهای مورد نظر رو انتخاب می کنه و بعد از اتمام کد هم که بسته میشه واسه اینه که گرید هیچی رو نشون نمیده

[mf_engineer]

تشکر از راهنمایی شما
ولی اون برنامه دوست عزیز lahiji زیاد به دردم نخورد و شما دوست عزیز atenaa من اون چند خط کد رو هم برداشتم ولی بازم چیزی نشون نمی ده ؟؟!!!
واینکه فونت هم عوض نمی شه؟؟؟

[atenaa]

سلام
این یه نمونه برنامه و اینکه البته بانک من accsess نه sql و اینک فونت رو هم در زمان طراحی می تونید عوض کنید فونت این گرید هم tahoma است

[mf_engineer]

ممنون از همه مشکلم حل شد