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

سید غلامرضا موسوی

دوشنبه 31 اردیبهشت 1386, 09:28 صبح

با سلام
میخواستم یه بانک اطلاعات با وی بی بنویسم. ولی تو نحوه جستجو در بانک با مشکل مواجه شدم. لطفا اگه کسی در این زمینه می تونه کمک کنه. توضیح بیشتر اینکه میخوام جستجو بر اساس نام خانوادگی یا کد پرسنلی یا فیلدهای دیگه ، به انتخاب کاربر باشه.

با تشکر :لبخندساده:

ب- تات

دوشنبه 31 اردیبهشت 1386, 09:42 صبح

1. موتور بانک؟
2.نحوه اتصال؟
اول اینا رو بگید تا باقیش

h_sadeghynejad

سه شنبه 01 خرداد 1386, 00:13 صبح

ب- تات (http://barnamenevis.org/forum/member.php?u=5010) درست میگه
اول بگو که چطوری به بانک اطلاعاتی خودت وصل شدی
مثلا اگه با ado کارت حل میشه این طوریه

dim conn as new adodb.connection
dim rec as new adodb.recordset
conn.connectionstring=provider
Rec.Open "select * from table1 where name like '" & text1.text & "'" , Conn, adOpenDynamic, adLockOptimistic

که provider اتصال به بانک اطلاعاتی مربوطه هستش
و اطلاعات رو پیدا میکنه و داخل رکوردست میریزه
مشکلی بود بگو

CodeMasterX

سه شنبه 01 خرداد 1386, 00:36 صبح

اگه نحوه اتصال ADO باشه که ترجیحا هم باید همین باشه،مابقی دستورات به دستورات SQL واگذار میشه که بیشتر موتور های دیتابیس ها ازش پشتیبانی می کنن.
در مورد دستورات SQL کلی تاپیک داریم تو سایت،لطفا قبل از این جور سوال ها یه جستجو بکنید.

سید غلامرضا موسوی

سه شنبه 01 خرداد 1386, 07:22 صبح

با تشکر از نظر لطف شما دوستان عزیز
طراحی جداول با اکسس و نحوه اتصال از طریق data control در وی بی می باشد.

h_sadeghynejad

سه شنبه 01 خرداد 1386, 11:33 صبح

برای این کار یه متد به نام find فکر کنم داشته باشه که بتونی با اون کار کنی

سید غلامرضا موسوی

سه شنبه 01 خرداد 1386, 12:16 عصر

دوست عزیز اینی که می گید چهار متد findfirst , findlast ,findnext ,findprevious هستند که می توانند رکورد اول ، آخر ، قبلی و بعدی را نمایش دهند در صورتی که رکورد مورد نظر من ممکنه هر جای بانک باشه

perfeshnal

سه شنبه 01 خرداد 1386, 13:29 عصر

بهتره که شما از Adodc برای ارتباط با بانک اطلاعاتی تون استفاده کنید ، جستجو در اون هم خیلی ساده انجام می گیره به عنوان مثال

Dim sq As String
sq = "select * from Forosh where Name='" & Text1.Text & "'"
Adodc1.RecordSource = sq
Adodc1.Refresh

benighted.boy

سه شنبه 01 خرداد 1386, 13:43 عصر

سلام.
اول از همه دوست عزیز باید بگم که این سوال بارها توی همین سایت پرسیده و جواب داده شده.
بعد از اون من پیشنهاد میکنم ار کنترل ADO و دستورات SQL استفاده کنی چون خیلی راحت و سریع نتیجه را بر میگردونه .اما اگه اسرار داری از data استفاده کنی یه سورس برات میزارم که با استفاده از روش خطی میتونه خط به خط رکوردهاتو بر گردونه.البته من از adoاستفاده کردم .اما شما تو این برنامه میتوتنین از data به همون روش استفاده کنین

علی کاکرودی

پنج شنبه 17 خرداد 1386, 12:16 عصر

سلام دوست عزیز
اگرحتماً می خواهی از DATA CONTROL استفاده کنی کافی است که یک DATA و یک DBGRID روی فرم قرار بدی و DATA را به DBGRID وصل کنی سپس مراحل زیر راانجام بدی.
1- درقسمت GENERL فرم کد زیر را تایپ کن
Option Explicit
Public db As Database
Public rs As Recordset
2- درقسمت FORM _ LOAD این کد رابنویس
Set db = OpenDatabase(App.Path + "\DATABASE NAMME"")
Set rs = db.OpenRecordset("TABEL", dbOpenDynaset)
Set Data1.Recordset = rs
3- درقسمت CHANGE ، جعبه متنی که میخواهد جستجو کند این کد رابنویس
Set db = OpenDatabase(App.Path + "\DATABASE NAME")
Set rs = db.OpenRecordset("select * from TABELwhere lname like '" & TEXT BOX NAME.Text & "*'", dbOpenDynaset)
Set Data1.Recordset = rs
اگر باز مشکلی بود بگو تا سورسی را در همین زمینه برات بزارم .