کد حذف ، بروز رسانی ، جستجو یک رکورد

[Razor2012]

کد حذف ، بروز رسانی ، جستجو یک رکورد را میخوام

[Razor2012]

چرا کسی جواب نمیده ؟؟؟؟

[Veteran]

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

با استفاده از adoc ؟
حذف

Adodc1.Recordset.Delete

بروز رسانی

Adodc1.Recordset.Update "Code", Text1



به جای code اسم فیلد خودتون رو بنویسید
جستجو

Adodc1.RecordSource = "Select *from andikator where moshtari='" & Text1 & "'"
Adodc1.Refresh


به جای andikator اسم جدول خودتون رو بنویسید و به جای moshtari هم اسم فیلد خودتون رو بنویسید

[Razor2012]

چجوری میشه که برای جستجو از من سوال بپرسه بعد من مثلا یه اسم رو سرچ کنم و اون پیدا کنه ؟

[sr2m72]

چجوری میشه که برای جستجو از من سوال بپرسه بعد من مثلا یه اسم رو سرچ کنم و اون پیدا کنه ؟

خب اون کد جستجو که آقا سبحان دادن واسه همینه دیگه.
Adodc1.RecordSource = "Select *from andikator where moshtari='" & Text1 & "'"


یه تکس میزاری بعد نامی که توی تکس وارد می کنی رو واست جستجو میکنه.

[Razor2012]

کد آپدیت کار نمیکنه !!

[Razor2012]

مرسی کد آپدیت خیلی عالی بود . ولی کد سرچ کار نمیکنه !

[Razor2012]

ارور میده : syntax error in FROM clause

[Veteran]

خب پست هارو چون اضافی بود پاک کردم پست شماره 3 چیزایی که خواستین هست
اما ارور
دلیلش رو نمیدونم !
تا حالا برخورد نکردم
به جای andikator اسم جدول خودتون رو بزارید و به جای moshtari فیلدی که میخواین توی اون سرچ کنین رو بزارید
سورس بزارید درستش کنیم

[Razor2012]

همینو میذارم ولی این ارور میاد :
Method 'Refresh' of object 'IAdodc' failed

[Razor2012]

Private Sub Command4_Click()
Adodc1.RecordSource = "Select *from table1 where Name ='" & Text6 & "'"
Adodc1.Refresh
End Sub

[Veteran]

اینو بزارید ببینید درست میشه یا نه


Adodc1.RecordSource = "Select *from table1 where Name='" & Text6 & "'"
Adodc1.Refresh

اگه نشد از این استفاده کنید


SQL = "SELECT * FROM table1 WHERE Left(name," & Len(text6) & ")='" & Trim(text6) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

[Razor2012]

در ضمن کد آپدیت چرا فقط تو یک کامند انجام میشه . وقتی یکی رو تو یه کامند و اون یکی رو تو اون یکی کامند میذارم دومی رو انجام نمیده و تکست باکس خالی میشه

[Razor2012]

هیچ کدوم از اون دوتا برای سرچ انجام نشد . از refresh ایراد میگیره

[Veteran]

سورس رو بزارین کامل ببینم مشکل چیه
اینا واسه من کار میکنن !



در ضمن کد آپدیت چرا فقط تو یک کامند انجام میشه . وقتی یکی رو تو یه کامند و اون یکی رو تو اون یکی کامند میذارم دومی رو انجام نمیده و تکست باکس خالی میشه

بیشتر توضیح بده
کد اپدیت میاد رکورد جاری رو بر اساس تکست باکس به روز میکنه

[Razor2012]

اپدیت اشتباه خودم بود شرمنده .
سورس سرچ :
Private Sub Command4_Click()
SQL = "SELECT * FROM table1 WHERE Left(name," & Len(Text7) & ")='" & Trim(Text7) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
End Sub
چیزی که خودتون گفتید

[Razor2012]

اپدیت درست شد .
سورس سرچ :
Private Sub Command4_Click()
SQL = "SELECT * FROM table1 WHERE Left(name," & Len(Text7) & ")='" & Trim(Text7) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
End Sub
چیزی که خودتون گفتید

[Veteran]

پروزه رو اگه مقدور هست بزار
من 2 تا کد سرج رو تست میکنم مشکلی نداره :متفکر:

[Razor2012]

میشه کاری کرد که با یک کامند بشه همه تکس ها رو آپدیت کرد ؟

[Razor2012]

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Name") = Text2.Text
End Sub

Private Sub Command2_Click()
On Error GoTo DeleteErr
With Adodc1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description, vbInformation, "AB SYSTEM"

End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update "Shomare shenasname", Text5

End Sub

Private Sub Command4_Click()
SQL = "SELECT * FROM table1 WHERE Left(name," & Len(Text7) & ")='" & Trim(Text7) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update "Name", Text6
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Update "Family", Text8
End Sub

Private Sub Command7_Click()
Adodc1.Recordset.Update "Mahale tavalod", Text9
End Sub

Private Sub Form_Load()

End Sub

[Veteran]

عزیز ما تکست هارو که اپدیت نمیکنیم ما فیلد هارو اپدیت میکنیم
بعد
====
یک سورسی گذاشتم دانلود کنین کارتون رو راه میندازه
http://barnamenevis.org/showthread.php?320716-%D8%AC%D8%B3%D8%AA%D9%88-%D8%AC%D9%88-%D8%AF%D8%B1-%D9%BE%D8%A7%DB%8C%DA%AF%D8%A7%D9%87-%D8%AF%D8%A7%D8%AF%D9%87-access&p=1407089#post1407089

شما میتونی همه رو ی جا بنویسی

Private Sub Command5_Click()
Adodc1.Recordset.Update "Name", Text6
Adodc1.Recordset.Update "Family", Text8
Adodc1.Recordset.Update "Mahale tavalod", Text9
End Sub

[Razor2012]

توی سرچ فقط فقط به Refrsh گیر میده . حتی وقتی این کدی که دادید رو هم زدم

[Razor2012]

خیلی خیلی خیلی خیلی ممنوووون . درست شد