یه دیتا گرید دارم که یه سری اطلاعات(بانک) رو نشون می ده امکانش هست که با های لایت کردن مثلا رکورد ها که از طریق دیتا گرید نشون داده می شه اون رکورد رو کلا حذف کرد اگه امکانش هست (کد نویسی)کدش رو کسی اینجا بزاره ؟ مرسی
Printable View
یه دیتا گرید دارم که یه سری اطلاعات(بانک) رو نشون می ده امکانش هست که با های لایت کردن مثلا رکورد ها که از طریق دیتا گرید نشون داده می شه اون رکورد رو کلا حذف کرد اگه امکانش هست (کد نویسی)کدش رو کسی اینجا بزاره ؟ مرسی
پس از انتخاب رکورد
adodc1.Recordset.Delete
من کد شما رو امتحان کردم اما ارور داد:
object variable or whith block variable not set
من نفهمیدم این adodc دگه واسه چی هست؟ من می خوام با انتخاب رکورد های data gride رکورد انتخاب شده رو دل کنم
روی دیتا گریدت راست کلیک کن بعد در قسمت پراپتیز خاصیت آپدیت و دلیت گریدت رو اکتیو کن درست میشه در حقیقت اصلا نیازی به کد نویسی نیست چون یکی از امکانات هر گریدیه
یا علی
این رو خودم هم می دونم می خوام بدونم با کد نویسی هم می شه؟ اگه می شه یه ادم خیر این کد رو بزاره اینجا
آره که میشه اما اول باید ما بدونیم شما گریدت رو به وسیله ی چی به دیتا بیس وصل کردی البته بعید بدونم دیتا گرید خود ویبی این کار رو بتنونه بکنه ولی گرید های دیگه ای هست که خودش بدونه کد نویسی این کار رو میکنه اگه دیتا بیست اس کیو ال بود 3 سوته میشد!!
موفق باشی...
با adodc به پایگاه وصله دیتا بیسم هم اکسس هست من که فرقش رو نمی دونم چه اکسس باشه چه اس کیو ال چون در هر صورت بازم من دارم از همون دستورات اس کیو ال استفاده می کنم
سلام
عزیز جان ، شما اگه شیوه حذف رکورد از دیتا بیسو بدونی که باقیش فرمالیتس !
فرض اینه که شما میخواین رو سطر گرید که کلیک کردین و مثلا دکمه F3 رو گرفتین یه پیغام هشدار بده و بعد از اوکی شدن ضمن حذف رکورد از بانک تو دیتا گرید هم دیگه نشون داده نشه !
مراحل اولیه که کاری نداره ، برا آخرین مرحله ، تابع بایند دیتاگرید تونو فراخوانی کنین تا با داده های جدید بانکتون رفرش بشه !
موفق باشید
از طریق دیتا گرید که امکان همچین چیزی نیست ولی میتونی توی گوگل delete Grid رو سرچ کنی با اون یه همچین کاری میشه کرد توی همین جام سرچ کنی گرید کلی گرید پیدا میکنی اما اگه به طور عام بخوای میتونی یه دیتا گرید بزاری یدونه کلید و یدونم تکست باکس و کدش به صورت زیر
Dim inp
inp = InputBox("Please insert your name to delete :", "Delete A Name")
'Do While Not Data1.Recordset.EOF
'If Data1.Recordset.Fields("Name") Like inp Then
'adodc1.Recordset.Bookmark = inp
' adodc1.Recordset.Delete
'End If
'adodc1.Recordset.MoveNext
'Loop
Data1.Recordset.FindFirst "Name='" & inp & "'"
If Data1.Recordset.NoMatch = False Then
adodc1.Recordset.Delete
End If
کاری که کردیم این بود یه اینپوت باکس گذاشتیم که ورودی رو از اونجا بدی و با یکی از کلومن های بانک که این ستون تو کد بالا Name در نظر گرفته شده ست میکنه بعد اگه پیدا کرد کل اون رکورد رو پاک میکنه
موفق و موید باشید
در پناه یزدان
یا علی
سلام
:متعجب: :متعجب: :متعجب: :متعجب:نقل قول:
ز طریق دیتا گرید که امکان همچین چیزی نیست
ایشون میخوان با کد نویسی کاری کنن که اگر یک رکورد از دیتا گربد رو کلیک کردی و دلیت رو زدی اون رکورد پاک بشه به نظر شما امکان پذیره؟؟؟!!
سلام
آقا رضا ، من که تو پست شماره 8 توضیح دادم !!!
موفق باشید
:ناراحت:من طریقه حذف رکورد از دیتا بیس رو بلدم خودش دستور داره اما نمی دونم از طریق دیتا گرید چه جوری باید کد نویسی کنم ممکنه یه نمونه برنامه بزاریننقل قول:
نوشته شده توسط yavari
سلام
For Each varBmk In Grid.SelBookmarks
rs.Bookmark = varBmk
Grid.AllowDelete = True
SendKeys ("{DEL}")
Grid.Refresh
Next i
موفق باشید
سلام
من که از کد شما چیزی نفهمیدم مثلا این rs اینجا چیه؟نقل قول:
نوشته شده توسط yavari
فکر نمی کنید این for یه خورده می لنگه ؟نقل قول:
نوشته شده توسط yavari
آقای یاوری فراموش کردن rs رو از نوع رکورد ست تعریف کنند در جنرال بنویسید :
Dim rs as adodc1.record set
ممنون از شما جناب یاوری
سلام
ممنون آقا رضا
آقا رضا ، فراموش نکردم ، عجله داشتم فقط راه کلی رو گذاشتم
خمار جان ، این الگوریتم کلی کاره ، لطف کن باقیشو خودت بنویس
با این حال مشکلی بود در خدمتم
موفق باشید
سلامنقل قول:
نوشته شده توسط yavari
کاش در مورد این for توضیح می دادین
سلام
باشه ، یه لحظه ...
سلام
Grid همون دیتاگریدته !
rs همون رکود ستته که باید تعریف و بازش کنی !
در مورد چیزای دیگه هم که بوک مارک میکنه ردیف گریدی که سلکت شده بعد اجازه میده خاصیت
AllowDelete گردیو و بعد هم حذف و رفرش گرید !
For Each varBmk In Grid.SelBookmarks
rs.Bookmark = varBmk
Grid.AllowDelete = True
SendKeys ("{DEL}")
Grid.Refresh
Next
موفق باشید
مرسی اقای یاوری
سلامنقل قول:
نوشته شده توسط khomar
خواهش میکنم :چشمک:
خوشحالم به جواب رسیدید !
موفق باشید
با سلام خدمت دوستان عزیز
من با استفاده از دیتاگرید یک برنامه نوشتم . اطلاعات در دیتاگرید به خوبی نمایش داده می شود . مشکل من از اینجا شروع می شه که من اجازه پاک کردن و ویرایش در دیتاگرید رو هم فعال کرده ام ولی وقتی می خوام مثلا پاک کنم این کار رو انجام نمی دهد ؟
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "provider=Microsoft.jet.OLEDB.4.0;Data Source=anbar.mdb"
cn.CursorLocation = adUseClient
rs.Open "select * from bookzaban where family like '" & cfamily & "' and name like '" & cname & "'", cn
Set Me.DataGrid1.DataSource = rs.DataSource
این هم برنامه ارتباطی دیتاگرید با بانک که جواب می ده
از برنامه آقای یاوری هم استفاده کرده ام ولی هیچ تغییری مشاهده نمی کنم درواقع مثل این است که اصلا اتصال رو برقرار نمی کنه ؟
لطفا من را راهنمایی کنید .
با تشکر از کلیه دوستان
سلام
روش کار این لوپی که گذاشتم به صورت دستیه نه اینکه شما از پراپرتی خود دیتا گرید استفاده کنید .نقل قول:
من اجازه پاک کردن و ویرایش در دیتاگرید رو هم فعال کرده ام
شما کلا ایجاد کانکشن و اتصال و حذف و ویرایش و مشاهده رو باید دستی کدنویسی کنین ، کار سختی هم نیست ، فک میکنم با انجام این کار مشکلتون حل بشه !
موفق باشید
با سلام
با توجه به کدی که من گذاشتم مشخص می شودکه من برقراری اتصال و پرسیدن پرس و جو را با کد نویسی نوشته ام .
قسمت که مربوط به پاک کردن است رو هم از کد شما نوشته ام . ولی همانطوری که گفتم جواب نمی ده ؟
آقای یاوری در مورد این کد (SendKeys ("{DEL}" لطفا توضیح بدهید ؟
ممنون
سلام
ببین عزیزم ! می فهمم چی میگی ! اولا اینکه میدونم اتصالتون دستی کدنویسی شده اما من منظورم این بود که اجازه پاک کردن و ویرایش در دیتاگرید رو از طریق پراپرتی غیرفعال کنین این یک !نقل قول:
با توجه به کدی که من گذاشتم مشخص می شودکه من برقراری اتصال و پرسیدن پرس و جو را با کد نویسی نوشته ام .
قسمت که مربوط به پاک کردن است رو هم از کد شما نوشته ام . ولی همانطوری که گفتم جواب نمی ده ؟
دو اینکه کدی که من گذاشتم فقط سطر دیتاگریدو حذف میکنه نه اینکه رکوردو از بانک حذف کنه ، این موردو خودتون دستی زحمتشو بکشید !
سعی خودتونو بکنید اگه نتونستید بگید یه سمپل بذارم !
این خط عمل کلید Delete کی بوردو فعال میکنه !نقل قول:
آقای یاوری در مورد این کد (SendKeys ("{DEL}" لطفا توضیح بدهید ؟
موفق باشید
سلام
می شه لطفا یک سمپل بذارین .
ممنون می شم.
سلامنقل قول:
نوشته شده توسط adhami
سعی کردم از کانکشنای خودت استفاده کنم ! :خجالت:
موفق باشید