برای Search و Edit خواهش میکنم کمکم کنید عجله دارم...

[ShZohreh]

سلام
میشه لطفا منو درباره ی Search بر اساس نام و نام خانوادگی یا ID در بانک اطلاعاتی کمک کنید؟ و همچنین دکمه ی Edit که بتونه بانک رو ویرایش کنه. ممنون میشم... اگه میشه همین امروز بهم بگید خیلی عجله دارم ممنون:عصبانی++::اشتباه:

[majjjj]

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ch2 As String
ch2 = App.Path & "\pis_mar.mdb"
Form1.Adodc2.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;" & _
"data source=" & ch2
Form1.Adodc2.RecordSource = "Select * from marcol where barcod= '" & Text3.Text & "'"
Set Form1.DataGrid2.DataSource = Adodc2
Form1.Adodc2.Refresh
Form1.DataGrid2.Columns.Item(0).Caption = "ÑÏíÝ"
Form1.DataGrid2.Columns.Item(1).Caption = "ÔãÇÑå ãÑÓæáå"
Form1.DataGrid2.Columns.Item(2).Caption = "äÇã"
Form1.DataGrid2.Columns.Item(3).Caption = "ÊÇÑíÎ ÔãÓí"
Form1.DataGrid2.Columns.Item(4).Caption = "ÊÇÑíÎ ãíáÇÏí"
SendKeys "{HOME}+{end}"
End If
End Sub

[اوبالیت به بو]

http://barnamenevis.org/forum/showthread.php?t=104724
هر كدوم از كلمات ر جستجو كنيد يه عالمه تايپي مربوط بهش مياد

[vahidm]

با سلام دوست عزیز خیلی ساده هستش برای جستجو از این کد استفاده کن
data1.recordsource="select * from [نام جدول] where [نام فیلد] like '"+text1.text+"' *"
data1.refresh
dbgrid1.refresh
و برای edit دو راه داری یکی ای نکه از روی خود dataGrid یا کنترلی دیگر و یا اینکه تکست به اندازه فیداهای ویرایش بگذاری و اینکه ربط بدید به فیلداتون و درون یک دکمه بنویسید data1.refresh به همین راحتی
ببخشید اگر مشکلی بود مطرح کنید
موفق و پیروز باشید.