دستور جستجو در SQL [بایگانی]

ehsanocx

سه شنبه 06 دی 1390, 18:48 عصر

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

Adodc1.Open "Select * From ChekModatDar Where Shomare Like '" & txtSearch.Text & "%'"

79792

با SQL 2000 کار می کنم.

Dim dB As New Connection
Dim Adodc1 As New Recordset

dB.Open "provider=msdasql;driver={sql server};server=;id=;pwd=;database=shams"
Adodc1.CursorLocation = adUseClient
Adodc1.Open "select * from ChekModatDar", dB, adOpenDynamic, adLockOptimistic

با این دستور هم به بانک SQL متصل شدم

Veteran

سه شنبه 06 دی 1390, 19:28 عصر

جستجوووووو

SQL = "SELECT * FROM ChekModatDar WHERE Left(shomare," & Len(txtSearch.Text) & ")='" & Trim(txtSearch.Text) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

تصحیح شد

vb6_man

سه شنبه 06 دی 1390, 19:35 عصر

Path = App.Path & "\bank\db.mdb"

اگه من برنامه رو در ریشه اصلی یک Drive کپی و اجرا کنم
این خط کد شما اشتباه ریشه رو بدست میاره
C:\\bank\db.mdb

:شیطان:

دیگه واقعا فوتبال دیر شد
فعلا

Veteran

سه شنبه 06 دی 1390, 19:45 عصر

عزیزم فکر کردم اکسس هست
دیدم sql هست ورداشتم
این کد هم که اشاره کردین ادرس بانک رو به دست میاره هر کجا برنامه نصب شد همون مسیر توی فولدر بانک
اونجا بانک ما هستش

بانک رو که جابه جا نمیکنن همراه برنامه باید باشه

گلم بورو به فوتبالت برس

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

ehsanocx

چهارشنبه 07 دی 1390, 16:07 عصر

جستجوووووو

SQL = "SELECT * FROM ChekModatDar WHERE Left(shomare," & Len(txtSearch.Text) & ")='" & Trim(txtSearch.Text) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

تصحیح شد

دوست من ADODC1 اسم Recordset منه و دستور جستجوی که شما گفتین برای Access استفاده میشه . این خط کد جواب نمیده.
SQL = "SELECT * FROM ChekModatDar WHERE Left(shomare," & Len(txtSearch.Text) & ")='" & Trim(txtSearch.Text) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

به این دوتا گیر میده:
Adodc1.RecordSource = SQL
Adodc1.Refresh

ehsanocx

چهارشنبه 07 دی 1390, 16:07 عصر

من دستور جستجو می خوام که با بانک SQL کار نه Ok?

M.T.P

چهارشنبه 07 دی 1390, 23:56 عصر

قبل از دستور Adodc1.Open این خط کد رو اضافه کنید:

If Adodc1.Recordset.State = adStateOpen Then Adodc1.Recordset.Close

ehsanocx

پنج شنبه 08 دی 1390, 11:15 صبح

با این کد هم نشد

دوستان من برنامه رو می زارم .دوستان کسی می تونه دکمه جستجو ،دستور جستجو رو اصلاح کنه تا قسمت جستجو من کار کنه؟

اینم برنامه
http://ehasnocx.persiangig.com/other/Search.zip

ehsanocx

پنج شنبه 08 دی 1390, 11:18 صبح

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

Veteran

پنج شنبه 08 دی 1390, 11:38 صبح

بانک همراه برنامه نیست ! خطا میده

ehsanocx

پنج شنبه 08 دی 1390, 12:01 عصر

بانک رو نفرستادم.
فقط کد رو چک کنید. بانک رو اگر میشه خودتون بسازید.چند تا فیلد که بیشتر نیست شرمنده. اخه میتریسم detach کنم باز نتونم بانک رو متصل کنم.

M.T.P

پنج شنبه 08 دی 1390, 12:39 عصر

سلام

کدی که گذاشتم رو تو یه لاین اشتباه گذاشتید
کد رو قبل از شرط if قرار بدید.
به این شکل:

If Adodc1.State = 1 Then Adodc1.Close
If Combo1.Text = "شماره چک" Then

ehsanocx

پنج شنبه 08 دی 1390, 16:27 عصر

تغییرات رو اعمال کردم. توی بانک می گرده و چیزی پیدا نمی کنه.و توی دیتا گرید کلا خالی میشه.و سرعت جستجوش خیلی پایینه خیلی.
میشه یک بانک درست کنید و تست کنید و جواب بگیرید. ممنون میشم بخدا خیلی گیر این قضیه ام

ehsanocx

شنبه 10 دی 1390, 18:14 عصر

دوستان کسی نمی تونه راهنماییم کنه؟
خیلی نیاز دارم به این دستور جستجو
لطفا کمک کنید با تشکر

M.T.P

شنبه 10 دی 1390, 23:53 عصر

چون SQL Server ندارم ، و بانک رو هم نگذاشتید ، نمی تونم کمکی کنم اما حداقلش اینه که ارور برطرف شد ، فقط ببین چی رو جستجو می کنید که تو بانک نیست و یا چی تو بانک هست که با جستجوش لیست نمیشه !
از همه مهمتر شما که کانکشن رو از نوع متغیر گذاشتید ، رکوردست رو هم متغیر بگذارید و Adodc رو بندازید دور .

ehsanocx

یک شنبه 11 دی 1390, 09:14 صبح

من اسم متغییر Recordset ام ADODC هست. اصلا از ابزار ADODC استفاده نکردم که. اسم متغییر من ADODC اشتباه نکنید. منظورم رو متوجه شدید؟

ehsanocx

یک شنبه 11 دی 1390, 09:23 صبح

دوستان اینم بانک SQL برنامه .
http://ehasnocx.persiangig.com/document/New%20Folder.zip