Mohamad.Net.MSDN
چهارشنبه 30 اسفند 1391, 02:10 صبح
سلام بر دوستان واساتید و مهندسان نامی،
من مشکلی که دارم اینه که یه برنامه دیکشنری نوشتم، که از دیتابیس اکسس استفاده میکنه.
حالا من میخوام موقعی که در TXTbox1 عبارتی رو جستجو میکنم بدون نیاز به کلیک کردن کاربر داخل دیتا گرید سلول حاوی اطلاعات یعنی، معنی لغتی که جستجو کردم به صورت خودکار داخل txtbox2 کپی بشه، تا کاربر بتونه ازش استفاده کنه ،
2-مشکل دیگه ای که دارم موقع سرچ کردن برنامه خیلی عجیب عمل میکنه و به جای اینکه مثلا برای جستجوی کلمه (واحد ) از و بعد به ا بعد ... بره از حرف دوم که الف هست شروع میکنه به پیدا کردن کلماتی که شبیه به کلمه من هستند.
کد اتصال به گرید ویو هم اینه
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
My.Forms.Form3.ShowDialog()
Catch ex As Exception
MsgBox("خطا در اجرای فرم آماده سازی", ex.ToString)
End Try
'TODO: This line of code loads data into the 'A_BaseDataSet.Dic_Arabic' table. You can move, or remove it, as needed.
Me.Dic_ArabicTableAdapter.Fill(Me.A_BaseDataSet.Di c_Arabic)
SearchInRecord()
End Sub
Dim Db As New Mydb
Public Sub SearchInRecord()
Try
Dim Str1 As String = "Select *From Dic_Arabic"
Dim Str2 As String = ""
If Trim(TextBox4.Text) <> "" Then
Str2 = " Where [فارسی] Like '%" & Trim(TextBox4.Text) & "%'"
End If
If Trim(TextBox2.Text) <> "" Then
If Str2 = "" Then
Str2 = " Where عربی Like '%" & Trim(TextBox2.Text) & "%'"
Else
Str2 = Str2 & " And فارسی Like '%" & Trim(TextBox4.Text) & "%'"
End If
End If
Db.doConnect("")
Db.doSelect(Str1 & Str2)
Db.Disconnect()
Me.DataGridView1.DataSource = Db.dt
Catch ex As Exception
MsgBox("خطا در خواندن بانک اطلاعاتی")
End Try
End Sub
و بعد در رویداد txtchanged تکست باکس نوشتم search In Record()
بعد هم سه روز هست که دارم نه تنها وبسایت بلکه تمام اینترنت رو جستجو میکنم اما هیچ چیزی گیرم نیومده.
:گریه::گریه::گریه::گریه::گریه: :گریه:
من مشکلی که دارم اینه که یه برنامه دیکشنری نوشتم، که از دیتابیس اکسس استفاده میکنه.
حالا من میخوام موقعی که در TXTbox1 عبارتی رو جستجو میکنم بدون نیاز به کلیک کردن کاربر داخل دیتا گرید سلول حاوی اطلاعات یعنی، معنی لغتی که جستجو کردم به صورت خودکار داخل txtbox2 کپی بشه، تا کاربر بتونه ازش استفاده کنه ،
2-مشکل دیگه ای که دارم موقع سرچ کردن برنامه خیلی عجیب عمل میکنه و به جای اینکه مثلا برای جستجوی کلمه (واحد ) از و بعد به ا بعد ... بره از حرف دوم که الف هست شروع میکنه به پیدا کردن کلماتی که شبیه به کلمه من هستند.
کد اتصال به گرید ویو هم اینه
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
My.Forms.Form3.ShowDialog()
Catch ex As Exception
MsgBox("خطا در اجرای فرم آماده سازی", ex.ToString)
End Try
'TODO: This line of code loads data into the 'A_BaseDataSet.Dic_Arabic' table. You can move, or remove it, as needed.
Me.Dic_ArabicTableAdapter.Fill(Me.A_BaseDataSet.Di c_Arabic)
SearchInRecord()
End Sub
Dim Db As New Mydb
Public Sub SearchInRecord()
Try
Dim Str1 As String = "Select *From Dic_Arabic"
Dim Str2 As String = ""
If Trim(TextBox4.Text) <> "" Then
Str2 = " Where [فارسی] Like '%" & Trim(TextBox4.Text) & "%'"
End If
If Trim(TextBox2.Text) <> "" Then
If Str2 = "" Then
Str2 = " Where عربی Like '%" & Trim(TextBox2.Text) & "%'"
Else
Str2 = Str2 & " And فارسی Like '%" & Trim(TextBox4.Text) & "%'"
End If
End If
Db.doConnect("")
Db.doSelect(Str1 & Str2)
Db.Disconnect()
Me.DataGridView1.DataSource = Db.dt
Catch ex As Exception
MsgBox("خطا در خواندن بانک اطلاعاتی")
End Try
End Sub
و بعد در رویداد txtchanged تکست باکس نوشتم search In Record()
بعد هم سه روز هست که دارم نه تنها وبسایت بلکه تمام اینترنت رو جستجو میکنم اما هیچ چیزی گیرم نیومده.
:گریه::گریه::گریه::گریه::گریه: :گریه: