برنامه نویسی با Lazarus (پست اول ویرایش شد ۹۳/۰۴/۲۳ )

[امیر شهریاری]

من اگه بخوام query های دیتابیس رو اجرا کنم مثل شما تو مثالی که گذاشتین از کدوم کامپوننت باید استفاده کنم؟ TZquery یا ZUpdateSQL1 ؟

کد: [انتخاب]

ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('SELECT * FROM amahi.persian');
 ZQuery1.ExecSQL;
مثلا  دستور اس کیو ال بالا اجرا نمیشه اما هر وقت همین دستور اس کیو ال رو توی بخش SQL کامپوننت TZquery کپی کنم کار میکنه؟

سلام
دستورات sql در دوحالت خروجی می دن
اولین نوع خروجی یک جدول است که دستور sql که شما نوشته اید از آن نوع هست و باید با دستور زیر اطلاعات رو فراخوانی کنید

کد: [انتخاب]

ZQuery1.Open;حالت دوم نوعی دستورات هست که اطلاعات پایگاه داده را تغییر می دهد و خروجی ندارد یا به صورت تابع خروجی خود را بر می گردانند این دستورات باید با ExecSQL اجرا شوند. (مثل stored prosedure ها  )
اگه خوب متوجه نشدی بگو تا بیشتر توضیح بدم   
موفق باشی 

[aliboy]

سلام

تشکر

خوب اگر بیشتر توضیح بدید بحث کاملتر میشه.ولی هنوز به جواب نرسیدم.

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

من با همین دستور ZQuery1.Open; هم امتحان کردم ولی به جواب نرسیدم.باز هم خطای sql query is empty  رو میده. مشکل من تو همین قسمت همینه شده؟

حالت دوم نوعی دستورات هست که اطلاعات پایگاه داده را تغییر می دهد و خروجی ندارد یا به صورت تابع خروجی خود را بر می گردانند این دستورات باید با ExecSQL اجرا شوند. (مثل stored prosedure ها  )

در مورد stored prosedure من تجربه ای ندارم ولی اگه توضیح بدین فک کنم خیلی خوب بشه.
بخصوص اگه نمونه کدی مثال بزنید
سپاس

[امیر شهریاری]

سلام

من با همین دستور ZQuery1.Open; هم امتحان کردم ولی به جواب نرسیدم.باز هم خطای sql query is empty  رو میده. مشکل من تو همین قسمت همینه شده؟

پس شاید اصلا دستور sql شما خروجی نداره اول برو تو mysql workbench دستور sql رو بزن و ببین خروجی داره یا نه!

در مورد stored prosedure من تجربه ای ندارم ولی اگه توضیح بدین فک کنم خیلی خوب بشه.
بخصوص اگه نمونه کدی مثال بزنید

چشم یک مثال با کد برای procedure های mysql بزودی اینجا میزارم.

[aliboy]

سلام

پس شاید اصلا دستور sql شما خروجی نداره  اول برو تو mysql workbench دستور sql رو بزن و ببین خروجی داره یا نه!

تو پست قبلی اشاره کردم که اگه کد رو توی Sql کامپوننت Tzquery کپی کنم جواب میگیرم اما با کد نویسی نه؟خرروجی داره.

باز هم میگردم و امتحان کنم ببینم چی میشه.


(نمایش ساده اطلاعات)

http://pastebin.com/AY0pau8B

*****************************************************************************

پست رو ویرایش کردم چون بخش اتصال حل شد (بخش اول).    تشکر از راهنمایی
در واقع در onCreate فرم باید این کد اضافه بشه:

کد: [انتخاب]

zq.SQL.clear;
  zq.SQL.add:='SELECT * FROM  persian';
  zq.open;
بخش دوم مونده -procedure ،اگه مثالی بیارید کامل میشه.البته باید ثبت و حذف و ویرایش رو هم تست کنم ببینم چه کدی نیاز دارن.
تشکر از شما   

[امیر شهریاری]

(نمایش ساده اطلاعات)

http://pastebin.com/AY0pau8B

*****************************************************************************

پست رو ویرایش کردم چون بخش اتصال حل شد (بخش اول).    تشکر از راهنمایی
در واقع در onCreate فرم باید این کد اضافه بشه:

کد: [انتخاب]

zq.SQL.clear;
  zq.SQL.add:='SELECT * FROM  persian';
  zq.open;

سلام
تو لینکی که گذاشته بودید کد ها رو دیدم.
شما چرا قبل از قرار دادن کد sql تو query اونو active کردید؟؟؟؟
اینجوری query نمیتونه کد sql رو اجرا کنه. باید اول query رو close  کنید (اگه open شده ولی محض احتیاط close بشه بهتره) بعد کد sql رو پاک کنید و بعد کد sql جدید رو داخل اون قرار بدید و حالا اگه خواستید active کنید یا open کنید یا exesql کنید.

کد: [انتخاب]

  zq.close;
  zq.sql.clear;
  zq.SQL.Text:='SELECT * FROM  persian';
  zq.open; یا zq.active:=true یا zq.ExecSQL;
قرار دادن این کدها توی فرم create باعث میشه همون ابتدا که فرم در حال ساخت است اجرا بشن و اطلاعات نمایش داده بشه و تا زمانی که برنامه باز هست اطلاعات داخل query به روز نمیشه. اگه اونها رو تو form.show قرار بدید و فرم اصلی برنامه نباشه بدون خارج شدن از برنامه و با بستن فرم و باز کردن مجدد اون اطلاعات فرم به روز میشه.
برای درج و ویرایش و حذف اطلاعات از این query استفاده نکنید خیلی بهتره.
برای این کار از دستورات sql تو یک query دیگه استفاده کنید.

[امیر شهریاری]

برای ایجاد یک stored procedure در MYSQL  باید اول کد ایجاد اونو تو پایگاه داده بنویسید و در حقیقت اون رو در پایگاه داده قرار بدید و از طریق برنامه اون procedure رو فراخونی کنید.
procedure ها بیشتر برای انجام عملیات روی داده ها و دستکاری اونها در پایگاه داده استفاده می شن.مثلا ویرایش یا درج یا حذف یا پردزاش و .....
یک مثال کوچک برای ایجاد یک procedure جهت درج اطلاعات در یک جدول.

کد: [انتخاب]

USE `database`;

DROP procedure IF EXISTS `insert_p`;


CREATE PROCEDURE `database`.`insert_p` (IN `p_name` varchar(15),IN `p_family` varchar(20),IN `p_telephon` varchar(15),IN `p_mobile` varchar(11))

BEGIN


INSERT INTO  table1 (`name`,family,telephon,mobile)

VALUES (p_name,p_family,p_telephon,p_mobile);


END


با اجرای این کد در پایگاه داده mysql و داخل database یک procedure با نام insert_p ایجاد می شود که با گرفتن ۴ ورودی نام و نام خانوادگی و تلفن و موبایل آنها را داخل جدول table1 درج می کند.
برای امتحان آن در mysql workbench این کد را وارد کنید و اجرا نمایید .

کد: [انتخاب]

CALL database.insert_p('amir','shahriary','0511999999','09159999999');
با این کار باید یک سطر در جدول با اطلاعات وارد شده درج گردد.
برای استفاده از این procedure در lazarus ۲ راه وجود دارد.
یکی اینکه کد شبیه به کد بالا را در یک query ایجاد کنید و سپس query را EXEsql کنید (نه open) .
راه دوم باید از طریق پارامتر ها این کد را در query ایجاد کنید (تو پست بعد توضیح میدم  )
یا حق

[aliboy]

سلام

(نمایش ساده اطلاعات)

http://pastebin.com/AY0pau8B

*****************************************************************************

پست رو ویرایش کردم چون بخش اتصال حل شد (بخش اول).    تشکر از راهنمایی
در واقع در onCreate فرم باید این کد اضافه بشه:

کد: [انتخاب]

zq.SQL.clear;
  zq.SQL.add:='SELECT * FROM  persian';
  zq.open;

سلام
تو لینکی که گذاشته بودید کد ها رو دیدم.
شما چرا قبل از قرار دادن کد sql تو query اونو active کردید؟؟؟؟
اینجوری query نمیتونه کد sql رو اجرا کنه. باید اول query رو close  کنید (اگه open شده ولی محض احتیاط close بشه بهتره) بعد کد sql رو پاک کنید و بعد کد sql جدید رو داخل اون قرار بدید و حالا اگه خواستید active کنید یا open کنید یا exesql کنید.

کد: [انتخاب]

  zq.close;
  zq.sql.clear;
  zq.SQL.Text:='SELECT * FROM  persian';
  zq.open; یا zq.active:=true یا zq.ExecSQL;
قرار دادن این کدها توی فرم create باعث میشه همون ابتدا که فرم در حال ساخت است اجرا بشن و اطلاعات نمایش داده بشه و تا زمانی که برنامه باز هست اطلاعات داخل query به روز نمیشه. اگه اونها رو تو form.show قرار بدید و فرم اصلی برنامه نباشه بدون خارج شدن از برنامه و با بستن فرم و باز کردن مجدد اون اطلاعات فرم به روز میشه.
برای درج و ویرایش و حذف اطلاعات از این query استفاده نکنید خیلی بهتره.
برای این کار از دستورات sql تو یک query دیگه استفاده کنید.

تشکر

منم تصحیح کردم ولی یادم رفت کد رو کامل بذارم...همین طور بود که شما میگید.تشکر

کد: [انتخاب]

ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from s');
  ZQuery1.Open;
  ZQuery1.Active:=true;
بایت پست stored procedure خیلی ممنون.
منم تست میکنم و تا پست بعدی منتظر میمونم تا کامل تر بشن.

تشکر مفید بودن

[aliboy]

سلام

 

اینجا چرا فقط فیلد نام رو توی ' ' قرار دادین  ؟ ! در حالی که varchar به جز اون داریم.

کد: [انتخاب]

INSERT INTO  table1 (`name`,family,telephon,mobile)

کد شما خطا میده (نام دیتابیس و اطلاعات لازم رو وارد میکنم)

کد: [انتخاب]

syntax error,...,expecting ';'

    VALUES (p_name,p_family,p_telephon,p_mobile);


END

من این کد رو زدم و تایید کرد:(بدون خطا اجرا شد)

کد: [انتخاب]

DELIMITER // 

USE `amahi`;

//

CREATE PROCEDURE `amahi`.`insert_p` (IN `p_id` int(10),IN `p_name`

varchar(20),IN `p_family` varchar(30))

BEGIN


INSERT INTO  persian(id,name,family)

VALUES (p_id,p_name,p_family);


END //


سوال:
1- برای فارسی نویسی باید utf رو به پراسجر معرفی کنیم؟ توی call بالا که فارسی به جای انگلیسی مینویسیم خطا میده.

2-

من این کد رو به فرم اضافه کردم:

کد: [انتخاب]

ZQuery2.sql.Clear;
  ZQuery2.sql.Add('call `amahi`.`insert_p`('8520010','samad','jalali');');
  ZQuery2.ExecSQL;
ولی میگه:

unit1.pas(46,45) Fatal: Syntax error, ")" expected but "ordinal const" found

اگر ' ' هر فیلد رو بردارم و اجرا کنم میگه فیلد samad نداریم؟ (مقدار فیلد name محسوب میشه)

به این صورت:

کد: [انتخاب]

ZQuery2.sql.Clear;
  ZQuery2.sql.Add('call `amahi`.`insert_p`(852055010,samad,jalali);');
  ZQuery2.ExecSQL;


نظر شما در این موارد چیه ؟

    سپاس

[امیر شهریاری]

سلام
 

اینجا چرا فقط فیلد نام رو توی ' ' قرار دادین  ؟ ! در حالی که varchar به جز اون داریم.

کد: [انتخاب]

INSERT INTO  table1 (`name`,family,telephon,mobile)

فیلد نام رو تو '' قرار ندادم اون `` هستش . (علامت ~ کنار عدد ۱)
کلمه name تو mysql و sql یک کلمه تعریف شده هستش و بهتره برای اشتباه نشدن تو `` قرار بگیره (نه '').

سوال:
1- برای فارسی نویسی باید utf رو به پراسجر معرفی کنیم؟ توی call بالا که فارسی به جای انگلیسی مینویسیم خطا میده.

نیازی به utf نیست . همین که در زمان connect شدن روی connection خودتون codepage رو در حالت utf8 قرار بدید درست عمل میکنه.

۲-من این کد رو به فرم اضافه کردم:

کد: [انتخاب]

ZQuery2.sql.Clear;
  ZQuery2.sql.Add('call `amahi`.`insert_p`('8520010','samad','jalali');');
  ZQuery2.ExecSQL;

پارامتر های ورودی تابع رو اشتباه وارد کردید.
خط اول و سوم که مشکلی ندارن ولی خط وسط که کد sql  رو ساختین یک مقدار اشتباه داره.
باید اینجوری باشه .

کد: [انتخاب]

  ZQuery2.sql.Add('call `amahi`.`insert_p`(8520010,')+QuotedStr('samad')+','+QuotedStr('jalali')+');');


[علی هردان]

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

[امیر شهریاری]

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

سلام
خیلی خوش اومدی 
راستی گفتی امتحان زیست؟ ببخشید فضولی نباشه شما مگه کلاس چندی؟ چی می خونی؟

[علی هردان]

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

سلام
خیلی خوش اومدی 
راستی گفتی امتحان زیست؟ ببخشید فضولی نباشه شما مگه کلاس چندی؟ چی می خونی؟

واو  کلاس اول هستم. چی میخونی نداره دیگه. توی کلاس اول که همه عمومی میخونن 

[امیر شهریاری]

کلاس اول هستم.

آفرین  خیلی نسبت به سنت جلو هستی. برنامه نویسی کار آسونی نیست و بیشتر جوووونا تو سن شما ترجیح میدن با سیستمشون بازی کنن تا بشینن و برنامه بنویسن اونم بدون آموزش قبلی یا اجبار کلاس درس ! 
موفق باشی

[aliboy]

@ Delphi887

سلام

من امتحان کردم ولی باز هم این خطا میده.فک کنم لازم باشه یه بار دیگه نگاش کنیم؟

وقتی کد زیر رو میزنیم :

کد: [انتخاب]

  ZQuery2.sql.Add('call `amahi`.`insert_p`(8520010,')+QuotedStr('samad')+','+QuotedStr('jalali')+');');

این خطا رو میده:

unit1.pas(46,104) Error: Illegal expression
unit1.pas(46,12) Error: Incompatible types: got "LongInt" expected "AnsiString"
unit1.pas(46,104) Fatal: Syntax error, ";" expected but ")" found

خطای اول به آخرین ' گیر میده.

خطای بعدی اخره .ZQuery2 نشون میده.

مثل خطال اول به همون گیر میده.


شاید یه

');

انتها اضافه باشه؟

[امیر شهریاری]

راحت ترین کار اینه که قبل از اینکه query رو اجرا کنی متن sql اونو نشون بدی بعد ببین درست ایجاد شده یا نه.
یعنی خط ZQuery2.ExecSQL; رو غیر فعال کن و بجاش بنویس showmessage(ZQuery2.sql.text); و وقتی متن sql رو نشون داد باید یه چیزی شبیه به اونی که تو workbench برای درج جدول زدی ساخته باشه. اگه جایی , یا ; یا پانتز کم و زیاد بود اصلاحش کن و دوباره امتحان کن .