کد سرچ در ساخت دیکشنری

[s.hematii]

سلام دوستای عزیز من 1دیکشنری با استفاده از data و دیتا بیس ساختم اما مشکلم اینه که میخوام حرف به حرف سرچ کنه و کلماتی که با اون حرفها شروع میشه (کلمات مشابه)مثل دیکشنری رو نشون بده اگه میشه کدشو بزارید؟؟؟؟؟؟؟؟و اینکه با text که نمیشه مشابه هارو نشون بده پس از چی استفاده کنم که وقتی مشابه ها رو نشون داد یکی رو انتخاب کنیم اگه میشه زود جواب بدید مرسی:گریه::گریه:

[ROSTAM2]

از SQL و دستور LIKE اون کمک بگیر

[s.hematii]

مرسی دوست من اما من با sql کار نکردم فقط با دیتا بیس(acces)کار کردم اگه کد بزاری یا 1راه دیگه بگی ممنون میشم

[ROSTAM2]

یه سر به آدرس وبلاگ زیر بزن آموزش کدهای SQL برای کاربا پایگاه داده ACCESS داده شده نیاز نیست SQL SERVER باشه تنها از دستورات SQL پیروی می کنه
البته من خیلی وقته VB6 رو کنار گذاشتم برا همین نحوه پشتیبانی دستورا رو یادم رفته می تونی برای دستور LIKE امتحان کنی کاراکترای جایگزین مثل * یا %

مثال: SELECT * FROM Table1 WHERE FirstName LIKE '*' & Text1.Text & '*'

http://visualbasicprogramming.persianblog.ir/

دنبال کار با پایگاه داده بگردید

[s.hematii]

راستی این کدمه
Option Explicit
Dim vira As Boolean
Dim pay As Boolean
Dim sh
Dim F
Dim A

Private Sub Add_Click()

If Text1.Text <> "" And RichTextBox1.Text <> "" Then
On Error Resume Next
Data1.Recordset.MoveFirst
Data1.Recordset.AddNew
Data1.Recordset.Fields("Word") = Trim(Text1.Text)
Data1.Recordset.Fields("Define") = Trim(RichTextBox1.Text)
Data1.Recordset.Update
Text1.Text = ""
RichTextBox1.Text = ""

Else
MsgBox "Not Data"

End If

Text1.SetFocus
Data1.Refresh

End Sub

Private Sub Delete_Click()

If Text1.Text = Text2.Text And Text1.Text <> "" Then
F = MsgBox("Do You Want deleted the file", vbYesNo)
If F = 6 Then Data1.Recordset.Delete
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

Else
MsgBox ("Not Data For Delete")

End If

End Sub

Private Sub Edit_Click()

If RichTextBox1.BackColor <> vbYellow Then

If Text1.Text = Text2.Text And Text1.Text <> "" Then
F = MsgBox("Do You Want deleted the file", vbYesNo)

If F = 6 Then
RichTextBox1.BackColor = vbYellow
End If
End If

Else
Data1.Recordset.Delete
Call Add_Click
RichTextBox1.BackColor = vbWhite

End If

End Sub

Private Sub Form_Load()

Me.BackColor = RGB(200, 200, 0)
Label1.BackColor = RGB(200, 200, 0)
Label2.BackColor = RGB(200, 200, 0)
Label3.BackColor = RGB(200, 200, 0)
Text2.Locked = True
Text2.ForeColor = vbBlue
vira = True

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub text1_Change()

On Error Resume Next
Data1.Recordset.MoveFirst
pay = False
sh = 1

While pay = False
On Error Resume Next

If Left((Data1.Recordset.Fields("Word")), Len(Text1.Text)) = Text1.Text Then
Text2.Text = Data1.Recordset.Fields("Word")
pay = True
End If
If (Data1.Recordset.Fields("Word")) <> "" Then
Data1.Recordset.MoveNext
End If
Wend

A = Text2.Text
A = "Word='" + A + "'"
Debug.Print A
On Error Resume Next
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst A

If Data1.Recordset.NoMatch = True Then
RichTextBox1.Text = ""
Add.Enabled = True

Else
RichTextBox1.Text = Data1.Recordset.Fields("Define")
Add.Enabled = False

End If

If Text1.Text = "" Then
Text2.Text = ""
RichTextBox1.Text = ""
End If

If Text1.Text <> Text2.Text Then Edit.Enabled = True

End Sub

[ROSTAM2]

بهتره از شی ء adodc استفاده کنی همونطور که تویاون وبلاگه نوشته شده چطور براش می شه query نوشت ازش استفاده کن برای جستجو هم راحت تری
اینم بگم که کد بلند بالای شما حوصله خوندن می خواد اگه میشه در موردشون توضیح بدید اینهمه کد واسه چه کاریه

اینم لینک مستقیم : http://visualbasicprogramming.persianblog.ir/post/13/

[s.hematii]

لپ مطلب اینه که 1دیکشنری دست سازه که قابلیت سرچ. edit,delete داره یعنی اگه 1کلمه تو دیتابیس باشه میتونی حذف یا ویرایش کنی و اگه نباشه addکنی و وقتی تایپ میکنی کلمه رو حرفی سرچ میکنه و کلمه اولی که با اون حروف شروع میشه رو نشون میده اما اگه دو تا حرف با اون حروف شروع شه ارور میده