آموزش چگونگی اتصال به بانک PostgreSQL در Delphihl

برای استفاده از این کامپوننت باید اول خواص Server ، Port ، Username ، Password ، DatabaseName رو مقدار دهی کنید . در نهایت حتماً خاصیت ProviderName رو برابر ‘PostgreSQL’ قرار بدید. جزئیات چگونگی کار به شرح زیر است :

بعد از اینکه کامپوننت رو دانلود و نصب کردید در قسمت Uses یونیت های Uni ، DB ، UniProvider ، PostgreSQLUniProvider رو بارگزاری کنید و برای ایجاد Object های مورد استفاده ، یک شی از نوع TUniConnection برای ایجاد پل ارتباطی با بانک و یکی دیگه از نوع TUniQuery برای ارسال دستورات SQL ایجاد کنید . برای ایجاد ارتباط با بانک کد های زیر رو بنویسید :

1 2 3 4 5 6 7 8

// Create new connection Con.Server := YourServerAddress; //example : 127.0.0.1 Con.Port := 5432; Con.UserName := Username; Con.Password := Password; Con.Database := YourDatabaseName; Con.ProviderName := 'PostgreSQL'; Con.Open;

ضمناً میتونید کد بالا رو داخل یه بلاک Try Except قرار بدید که اگر در حین اتصال به سرور مشکلی به وجود اومد کنترلش کنید. بعد از اتصال موفقیت آمیز به سرور باید خاصیت Connection شی ساخته شده از کلاس TUniQuery رو برابر شی Con قرار بدید. اینطوری :

1	Qry.Connection := Con;

در نهایت برای ارسال دستورات SQL با دیتابیس ، میتونید به صورت زیر از شی Qry استفاده کنید :

1 2 3 4 5 6 7 8 9 10 11 12

Qry.SQL.Text := 'SELECT * FROM Table'; Qry.Open; if Qry.RecordCount > 0 then begin ShowMessage(Qry.FieldByName('FieldName').AsString); end else begin Qry.SQL.Text := 'INSERT INTO Table(FieldName) VALUES(' + chr(39) + 'Value of Field' + chr(39) + ')'; Qry.ExecSQL; end;

اگر دستوری که می نویسید فقط اطلاعات رو از بانک دریافت میکنه ، Qry رو Open کنید اما اگر قراره اطلاعاتی در بانک درج بشه از متد ExecSQL استفاده کنید.