سوال در مورد پایگاه داده ی اس کیو ال در دلفی لطفا راهنمای کنید.

[pan65ir]

سلام
می خواستم ببینم چطوری می شه دیتا بیس ها وجداول هر دیتا بیس رو در اس کیو ال رو داخل فرم نشون داد؟
ممنون

 

[Arash_j13]

منظورتون MS SQL Server هست
اگه اینطوره دلفی راه های مختلفی دم دستتون گذاشته استفاده از ADO ODBC dbExpress

 

[pan65ir]

منظورتون MS SQL Server هست
اگه اینطوره دلفی راه های مختلفی دم دستتون گذاشته استفاده از ADO ODBC dbExpress

آره اگر ممکنه راهنمایی کنید ممنون

 

[pan65ir]

سلام من بلدم به sql وصل بشم ولی میخوامجدوالها رو مثلا داخل یک cobobox نشون بدم.

 

[mirsamie]

متن زير را در سورس خود كپي كنيد و اشيا مذكور را به فرم اضافه كنيد:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOCommand1: TADOCommand;
ADODataSet1: TADODataSet;
Panel1: TPanel;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
Edit4: TEdit;
Label4: TLabel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button2: TButton;
Button3: TButton;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{
In this Example You do not need to Edit any Components`s
Property Because I made any changes needed in the Code below
Hope you enjoy and Understand.
Dar mesale zir niazi be dastkari e Propertie Ashya nist
chera ke man hameye tanzimat ra dar dakhel code anjam dadam
tanha kafist ta ashya ra dakhel form gharar dade va source
ra copy konid, ba omid mofide fayede boodan.
Mehrdad Mirsamie

Component List:
ADOConnection1
ADOCommand1
ADODataSet1
DataSource1
Form1
DBGrid1
Label4
Edit4
Button2
Button3
Panel1
Label1
Edit1
RadioButton1
RadioButton2
Label2
Edit2
Label3
Edit3
Button1
}
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Edit2.Color:=clScrollBar;
Edit3.Color:=clScrollBar;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Edit2.Color:=clWindow;
Edit3.Color:=clWindow;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
UserName,Password,SqlServer:String;
begin
SqlServer:=Edit1.Text;
UserName:=Edit2.Text;
Password:=Edit3.Text;
ADOCommand1.Connection:=ADOConnection1;
ADOConnection1.LoginPrompt:=False;
if SqlServer<>'' then
begin
try
If ADOConnection1.Connected then ADOConnection1.Close;
If RadioButton1.Checked then
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source='+SqlServer
Else
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+Password+';Persist Security Info=True;User ID='+UserName+';Data Source='+SqlServer;
ADOConnection1.Open;
If ADOConnection1.Connected then
begin
Panel1.Visible:=False;
Label4.Visible:=True;
Edit4.Visible:=True;
DBGrid1.Visible:=True;
Button2.Visible:=True;
Button3.Visible:=True;
end;
except
ShowMessage('Error in Connection!');
end;
end
else
ShowMessage('Please enter the Server Name or Address..');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label4.Visible:=False;
Edit4.Visible:=False;
DBGrid1.Visible:=False;
Button2.Visible:=False;
Button3.Visible:=False;
Panel1.Visible:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOCommand1.CommandText:=Edit4.Text;
DataSource1.DataSet:=ADODataSet1;
DBGrid1.DataSource:=DataSource1;
try
ADODataSet1.Recordset:=ADOCommand1.Execute;
except
ShowMessage('Error in execution!');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label4.Visible:=False;
Edit4.Visible:=False;
DBGrid1.Visible:=False;
Button2.Visible:=False;
Button3.Visible:=False;
Panel1.Visible:=True;
If ADOConnection1.Connected Then ADOConnection1.Close;
end;

end.

​

اشيا زير panel1 را داخل آن قرار دهيد.