دستور SQL برای جستجو در جداول مرتبط

[FatemehB]

سلام دوستان

من به دستور SQL ای نیاز دارم که بتواند با استفاده از Relation های جداول جستجو را

انجام دهد . :roll:

مثلا فرض کنید دو جدول به صورت زیر داریم :

مسافر سفر
---------- ---------
کد مسافر کد سفر
نام مسافر کد مسافر

حالا به دستور SQL ای نیاز دارم که :

نام مسافر گرفته شود و مشخص کند که این مسافر چه سفری داشته است

:) از توجهتان ممنون .

[AminSobati]

دوست عزیزم،
فرض کنید جداول شما به این صورت باشه (چند رکورد نمونه هم وارد میکنیم):


CREATE TABLE Mosafer (
MosaferID INT,
MosaferName NVARCHAR(80))
GO
INSERT Mosafer VALUES(1,'Ali')
INSERT Mosafer VALUES(2,'Nima')
GO
CREATE TABLE Safar(
SafarID INT,
MosaferID INT,
SafarDate DATETIME,
Maghsad NVARCHAR(50))
GO
INSERT Safar VALUES(1,1,'2004/2/25','Shiraz')
INSERT Safar VALUES(2,1,'2004/4/21','Mashad')
INSERT Safar VALUES(3,2,'2003/5/5','Esfehan')
INSERT Safar VALUES(4,2,'2002/2/5','Tabriz')
INSERT Safar VALUES(5,2,'2004/11/6','Zanjan')
GO

در اینجا ما فقط 2 مسافر معرفی کردیم که هر کدام تعدادی سفر داشتن. برای اینکه بدست بیاریم یک مسافر خاص، چه سفرهایی داشته، یک INNER JOIN ساده انجام میدیم:

DECLARE @MID INT
SET @MID = 1

SELECT Mosafer.MosaferName, Safar.SafarDate, Safar.Maghsad FROM
Mosafer INNER JOIN Safar ON Mosafer.MosaferID=Safar.MosaferID
WHERE Safar.MosaferID=@MID
در اینجا فرض کردیم مسافرتهای مسافری با کد 1 مد نظر بوده. مثلا این دستور رو با مقدار 2 میتونین اجرا کنین یا هر کدی که مربوط به یک مسافر باشه.

موفق باشید،
امین ثباتی MCSD

[FatemehB]

دوست عزیز

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

ولی من در VB6 نتوانستم باز از دستور SQL ای که توضیح داده اید استفاده کنم . :?:

آیا استفاده @ برای فیلدهای کلید لازم است ؟ :|

[AminSobati]

دقیقا کدام دستور SQL به اشکال خورد؟ ضمنا @ به فیلد کلیدی ارتباطی نداره و صرفا برای تعریف متغیر استفاده کردم.
شاید مشکل شما در نحوه کد نویسی بوده. به چه صورت از VB دستور SELECT رو به SQL Server ارسال کردین؟

[FatemehB]

سلام :)


strsql = "SELECT Passengerr.Name, Passenger_Tour.Waggon_Number , Passenger_Tour.Seat_Number FROM Passenger INNER JOIN Passenger_Tour ON Passenger.PassengerID = Passenger_Tour.PassengerID WHERE Passenger_Tour.PassengerID = @1"

حالا به جای 1 کد مسافر را می گذارم . :?
باز کردن پایگاه داده هم به صورت زیر است :



objCnn.CursorLocation = adUseClient
objCnn.Open Provider & ";" & DataSource
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdText
objCmd.CommandText = strsql
Set objRst = objCmd.Execute(strsql)

باز هم از کمکتان ممنون . :flower: :flower:

[AminSobati]

دوست عزیزم،
وقتی شما از SQL Server استفاده میکنید، ارسال Query به طور مستقیم کار مناسبی نیست. باید Query رو در یک Stored Procedure قرار بدین تا SQL Server اون رو Cache کنه و براش Execution Plan بدست بیاره تا سرعت اجراش افزایش پیدا کنه. مثلا چیزی شبیه به این:


CREATE PROC MyQuery
@PID INT AS

SELECT Passengerr.Name, Passenger_Tour.Waggon_Number ,
Passenger_Tour.Seat_Number FROM Passenger INNER JOIN Passenger_Tour ON
Passenger.PassengerID = Passenger_Tour.PassengerID WHERE
Passenger_Tour.PassengerID = @PID

حالا از VB، اون رو Call میکنیم:


Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As ADODB.Recordset
Dim PassengerID As Integer

Private Sub Form_Load()
PassengerID = 1
cnn.ConnectionString = "تنظیمات مورد نیاز"
cnn.CursorLocation = adUseClient
cnn.Open

Set cmd.ActiveConnection = cnn
cmd.CommandText = "MyQuery"
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Append cmd.CreateParameter _
("P1", adInteger, adParamInput, , PassengerID)

Set rst = cmd.Execute
Set DataGrid1.DataSource = rst
End Sub

که در PassengerID = 1 هر مقداری که به جای 1 نیاز دارید قرار میدین. ضمنا من یک DataGrid روی فرم قرار دادم تا نتیجه دیده بشه.

[FatemehB]

ممنون از توجهتان ، :flower: :flower: :flower:

میرم امتحان کنم . :) :)

[AminSobati]

موفق باشید