فوری فوری فوری:استفاده از اطلاعات استخراجی یک query و فرستادن مقدار ثابت به sp

[delara]

سلام
من می خوام از اطلاعات استخراج شده توسط یک query استفاده کنم البته یکی یکی و بدون نمایش در فرمم.مرسی
همچنین می خوام یک مقدار ثابت رو از دلفی به یک stored procedure در sqlserver ارسال کنم.چی کار باید بکنم؟
2تا سوالو یکی کردم چون سرعت اینترنت افتضاحه
ممنون

[Hsimple11]

بعد از گرفتن کوئری با یک حلقه به تعداد RecordCount و Next کردن به تک تک رکوردها دسترسی پیدا کنید.

[delara]

چطوری به رکوردها دسترسی پیدا کنم؟ دستورش رو چطور بنویسم؟
میشه 1 مثال بزنید؟
خواهش می کنم سریعتر

[delphiprog3000]

با سلام.

در مورد سوال دوم.

ارسال مقدار توسط پارامترها به Sp ارسال میشود.

این دو لینک به شما کمک میکنه.

http://barnamenevis.org/forum/showthread.php?t=104378

http://barnamenevis.org/forum/showthread.php?t=84612&highlight=%D8%AF%D8%B1%D8%AC+%D8%A8%D8%A7%D9%86%DA %A9

موفق باشید................

[Hsimple11]

For 1:=0 To MyTable.RecordCount-1 Do
Begin
MyTable.FieldValues['']...
MyTable.Next;
End;

البته راه های دیگری هم وجود دارد.

[delara]

من همین اول کار موندم : query را نوشتم که یک دستور select را اجرا می کنه و اون را اجرا کردم .حالا بقیه اش رو شما بگید چطور باید به فیلدهای استخراجی دسترسی داشته باشم؟تو این حلقه که شما نوشتید myTable چیه؟اثری از query نمی بینم
لطفا سریعتر راهنمایی کنید

[delphiprog3000]

من همین اول کار موندم : query را نوشتم که یک دستور select را اجرا می کنه و اون را اجرا کردم .حالا بقیه اش رو شما بگید چطور باید به فیلدهای استخراجی دسترسی داشته باشم؟تو این حلقه که شما نوشتید myTable چیه؟اثری از query نمی بینم
لطفا سریعتر راهنمایی کنید

با سلام.

دوست گرامی Mytable یک اسم شما اسم کوری خودتون رو جای کد دوستمان بزارید.

[delphiprog3000]

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



For 1:=0 To MyTable.RecordCount-1 Do
Begin
MyTable.FieldValues['name']=======در این قسمت اسم فیلد را میتوان وارد نمود
MyTable.Next;
End;


و برای ریختن مقدار فیلد در یک شی مثل متغییر کافیه مقدار فیلد را به آن متغییر اختصاص دهید.


به این صورت:



var str:string;
str:=Query1.fieldvalues['name'];
query1.next;


موفق باشید................

[delphiprog3000]

به این صورت نیز میتوان عمل نمود.



Begin
Query1.Fieldbyname('name').asstring;=======در این قسمت اسم فیلد را میتوان وارد نمود
MyTable.Next;
End;



var str:string;
str:=Query1.Fieldbyname('name').asstring;
query1.next;