Data grid

[fshadh1]

سلالم
ببخشید من از دیتا گرید توی فرمم استفاده می کنم مشکلی که هست اینکه من هر موقع فایلمو جابجا می کنم دیتا گرید ارور disk or network error میده باید این دیتا گریدو چجوری ادرشو تنظیم کنم که این جدولو همیشه پیدا کنه ؟؟
مثلا ما آدرس دیتابیسو با app.path درس میکنیم اما اینو باید چه کار کنیم ؟؟
من قبلا چندتا فرم ساختم که یکیش برای ایجاد کاربر که وصل میشه به دیتا بیس وقتی اجراش می کنم همچین اروری نمیده ولی این فرمهایی که تازه ساختم وقتی جابجاش میکنم ارور بالا رو میده دلیلش وجود دیتا گرید ؟؟؟؟ یا نه ؟ چون من از همون روشی که برای ساخت فرم کابر استفاده کردم برای همین فرمم استفاده کردم

[roo.row]

با سلام

ربطی به دیتا گرید نداره دیتاگرید نمایش دهندس و سورسش رو از یه ادو یا دیتا میگیره
وقتی دیتا گرید همچین اروری میده یعنی از قسمت پروپتیز سورسشو تعیین نکردید
و اگرنه app.path محل برنامس و ربطی به باقی آدرس فایل نداره
در ضمن بعضی از اوقات روی ویندوز های جدید مثل مال خودم دیتاگرید اذیت میکنه و باید پاک بشه و از اول ایجاد بشه

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

دانلود از اینجا (http://s6.picofile.com/file/8230390276/data.rar.html)

با تشکر

[fshadh1]

اخه من فرمهایی که قبلا ساختم وقتی جابجاشون میکنم روی ی سیستم دیگه همچین اروری نمیده ولی تازگیا که تعدادی فرم به برنامم اضافه کردم که به دیتابیس وصل میشن این ارورو میدن

[fshadh1]

اقا خسته نباشید.
ببخشید این پروژه ه ای که گذاشتین ارور میده بعضی از باتن هاش

[roo.row]

با سلام
قبل از اجرای پروژه کامپوننت هاش رو ادد کنید
با کلیک راست در نوار تولبار کامپوننت های زیر را اضافه کنید
command dialog control
data graid
adodc
اینارو اضافه کنید تا مشکل برطرف بشه الانم دوباره چک کردم هیچ مشکی نداره
با تشکر

[fshadh1]

منظوریم این بود مال شما هم همین ارور منو میده
ببینین ما برای اینکه بتونیم دیتا گریدو فعال کنیم دقیقا به گفته شما باید اونو وصل کنیم به ado ولی باید در قسمت connection string مربوط به ado در قسمت properties ارتباط و دقیق وصل کنیم که ما توی فرم دستورشو وارد می کنیم و از app.path هم برای مسیرش استفاده می کنیم ولی برای اینکه بتونیم جدولو(table در قسمت record source) در ado مشخص کنیم باید connection string در قسمت پروپرتیز مشخص کنیم که این خودش دقیقا آدرس درایو یا مسیر میخوره . شاید به خاطر همینه که همش فایلو جابجا میکنیم ارور میده میگه به دیتا بیس وصل نیست ؟؟ اخه مال شما هم همین ارورو داد

[ایلیا آخوندزاده]

از
properties استفاده نکنین توی خود فرم دستور اتصال رو بنویسین

[fshadh1]

پس چطوری دیتا گریدو به ado وصل کنیم ؟؟؟ خواهشا ج بدین

[ایلیا آخوندزاده]

http://barnamenevis.org/showthread.php?515828-%D8%B3%D9%88%D8%A7%D9%84-%D8%AF%D8%B1-%D9%85%D9%88%D8%B1%D8%AF-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3

[fshadh1]

دوست عزیز واقعا مچکر
ی سوال دیگه این که چطوری میشه با دابل کلیک کردن روی یک رکورد از دیتا گرید اطلاعاتو اون رکوردو توی یه فرم دیگه بصورت کامل نشون داد یعنی کاملتر

[علیرضا5]

چرا با دابل کلیک با کلیک هم میشه فقط یادت باشه از رویداد RowColChange استفاده بکنی

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Text1.Text = Adodc1.Recordset.Fields("sharh")
Text2.Text = Adodc1.Recordset.Fields("mablagh")
End Sub

[fshadh1]

میشه ی فایل ضمیمه بذاری بی زحمت .
ببخشید منظورم این بود که دیدین دیتا گرید اطلاعاتو بصورت کامل نشون نمیده مثلا اگه آدرس زیاد باشه فیلدش کامل نشون نمیده . میخوام رویه رکودش که کلیک کنم اطلاعاتشو کامل نشون بده .

[علیرضا5]

دیتا گرید اطلاعاتو کامل نشون میده اگه شما نمی بینید دلیلش اینه که width کمه که میتونید مقدارش رو بیشتر بکنید به هر حال با این کد می تونی اطلاعاتو کامل توی یک تکست - فرم -لیست یا هر چیز دیگه ای ببینی

[fshadh1]

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

[علیرضا5]

منظورتون از کپشن چیه
اگه منظورتون اینه که روی فرم بیفته اینه




Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Print Adodc1.Recordset.Fields("sharh")
Print Adodc1.Recordset.Fields("mablagh")
End Sub

[fshadh1]

نه ی کپشن به فرم اضافه کنیم بهد بگیم که مثلا مقدار فیلد فلانو توی این کپشن نشون بده

[fshadh1]

این روشی شما گفتین استفاده کردم ولی این ارورو میده
138190

[fshadh1]

خواهشا کمک منید

[roo.row]

با سلام
کدی که ارائه ش صحیحه ولی یه ! قبل نام فیلد داخل پرنتز اضافه کنید حل میشه
با تشکر

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Print Adodc1.Recordset.Fields!("sharh")
Print Adodc1.Recordset.Fields!("mablagh")
End Sub

[fshadh1]

ارور میده 138233

[fshadh1]

اگه میشه ی فایل ضمیمه بذارین بی زحمت . خیلی به این موضوع احتیاج دارم

[ایلیا آخوندزاده]

توی رویداد DataGrid1_DblClick کد پست 11 رو قرار بدین.

[roo.row]

با سلام
ببخشید اشتباه نوشتم اینجوری میشه ارور نمی ده :

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Print Adodc1.Recordset.Fields!sharh
Print Adodc1.Recordset.Fields!mablagh
End Sub

نام فیلد ها در اینجا sharh و mablagh هست
با تشکر

[fshadh1]

توی رویداد کلیک جواب داد ولی توی رویداد rowcolchange ارور میده ارورشم گذاشتم