گفتگو: ساخت ديكشنري با استفاده از بانك اطلا عاتي در vb 6 [بایگانی]

omid0000

دوشنبه 04 اردیبهشت 1391, 17:34 عصر

سلامي گرم براي شما دوستان گرامي .

من يك سوال دارم كه اگه دوست داشتيد ، جواب بديد.

شما در كار با بانك اطلاعاتي،Ado رو ترجيح ميديد يا DATA رو ؟:متفکر:
دلايل تون رو هم بنويسيد.

SlowCode

دوشنبه 04 اردیبهشت 1391, 18:14 عصر

سلام
مطمئنا ADO چون امکانات بیشتری داره، مثلا برای جستجو میتونی از دستوراد SQL استفاده کنی ولی با DAO نمیشه وکلی چیزای دیگه.
همین دلیل فکر کنم برای کار با ADO کافی باشه.

omid0000

سه شنبه 05 اردیبهشت 1391, 16:07 عصر

شما ترجيح ميديد در ديكشنري از دكمه استفاده كنيد يا به محض نوشتن كلمه در كادر متن نتيجه نمايش داده شود؟

omid0000

سه شنبه 05 اردیبهشت 1391, 16:12 عصر

من در كار با ADO يه مشكل دارم اگه راه حل رو بلديد بگيد؟:افسرده:

من وقتي از ado استفاده ميكنم اگر در بانك اطلاعاتيم مثلا 40 كلمه وارد كنم فقط 2يا 3 تا از كلماتم باقي ميماند .(اگه بانكم رو روي يك سيستم ديگه باز كنم اين مشكل پيش مياد )

SeyedMoosavi

سه شنبه 05 اردیبهشت 1391, 16:44 عصر

اگر یکم بیشتر توضیح بدید بهتر میشه راهنمایی کرد

vbhamed

چهارشنبه 06 اردیبهشت 1391, 08:15 صبح

سلام
مطمئنا ADO چون امکانات بیشتری داره، مثلا برای جستجو میتونی از دستوراد SQL استفاده کنی ولی با DAO نمیشه وکلی چیزای دیگه.
همین دلیل فکر کنم برای کار با ADO کافی باشه.

سلام
در اينكه ADO جديدتره شكي نيست ولي البته در كندتر بودنش نسبت به DAO هم شكي نيست، كافيه تست كنيد
اما در مورد اينكه گفتيد با DAO نميشه از SQL استفاده كرد بهتره يكم بيشتر تحقيق مي‌كردين، اين جزء ساده ترين كارهايي هست كه DAO مي‌تونه با قدرت و سرعت انجام بده

omid0000

چهارشنبه 06 اردیبهشت 1391, 09:55 صبح

دوستان پاسخ اين سوال چي؟:متفکر:
من وقتي از ado استفاده ميكنم اگر در بانك اطلاعاتيم مثلا 40 كلمه وارد كنم فقط ظ2يا 3 تا از كلماتم باقي ميماند .(اگه بانكم رو روي يك سيستم ديگه باز كنم اين مشكل پيش مياد )

omid0000

چهارشنبه 06 اردیبهشت 1391, 10:08 صبح

من از قطعه كدي كه در پايين گذاشتم براي جستوجو استفاده ميكنم اگه ميشه روش هاي ديگر رو كه بلدين بگين. ومعايب و مزاياش رو هم بگيد.

Ado.Recordset.MoveFirst
Do Until Ado.Recordset.EOF
If Ado.Recordset.Fields("English").Value = key Then
Txt_Res_Per = Ado.Recordset.Fields("Persian").Value
Exit Sub
Else
Ado.Recordset.MoveNext
End If
Loop

omid0000

چهارشنبه 06 اردیبهشت 1391, 12:08 عصر

سلام
در اينكه ADO جديدتره شكي نيست ولي البته در كندتر بودنش نسبت به DAO هم شكي نيست، كافيه تست كنيد
اما در مورد اينكه گفتيد با DAO نميشه از SQL استفاده كرد بهتره يكم بيشتر تحقيق مي‌كردين، اين جزء ساده ترين كارهايي هست كه DAO مي‌تونه با قدرت و سرعت انجام بده

خب شما چند تا از تفاوتاشون رو بيان كنيد.:متفکر:

M.T.P

چهارشنبه 06 اردیبهشت 1391, 13:10 عصر

من از قطعه كدي كه در پايين گذاشتم براي جستوجو استفاده ميكنم اگه ميشه روش هاي ديگر رو كه بلدين بگين. ومعايب و مزاياش رو هم بگيد.

Ado.Recordset.MoveFirst
Do Until Ado.Recordset.EOF
If Ado.Recordset.Fields("English").Value = key Then
Txt_Res_Per = Ado.Recordset.Fields("Persian").Value
Exit Sub
Else
Ado.Recordset.MoveNext
End If
Loop

اینکه کل جدول رو با حلقه چک کنید اصلا روش درستی نیست.
دستورات جستجو SQL به همین منظور هستند.

Dim strSearch As String

strSearch = "select * from tblName where English like '" & Key & "%'"

Ado.RecordSource = strSearch
Ado.Refresh

If Ado.recordcount Then
Txt_Res_Per.Text = Ado.Recordset.Fields("Persian").Value
Else
Txt_Res_Per.Text = "not found !"
End If

اسم جدول رو مطابق با جدولتون قرار بدید ، همچین مقدار Key رو به تکس باکس خودتون ربط بدید.