get sql server info with delphi

شيء كهذا عادة

edit1:=form2.edit1

تريد Dll تنقل لك القيمة ام ماذا ؟

مادخل الdll ؟؟

هل قمت بتعريف الunit1 في ال uses الخاص بالفورم الثاني

ثم افعل كما اخبرك الاخ عروة

uses unit1;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Edit2.Text:=Form1.Edit1.Text
end;

يا شباب أول الشي الله يسلّم أيديكم على الردود لكن

الوضع ما هيك لأنو حتى لو عملت

uses unit2 ;

edit1.text := form2.edit1.text;

ما رح أوصل للقيمة جربو توصلوا للقيمة ورح تعرفو شو قصدي

رح يعطيكم رسالة خطأ بأنو الفورم الثاني :

has not been initialized

لم يهيأ ومشان هيك عمإسأل لأنوا أنا(وأعذ بالله من الأخيرة ) مش مبتدأ بالدلفي ......

ولكم جزيل الشكر

المبرمج B) عماد

نفذ عبارات T-sql عبر الإجراء المخزن sp_sqlexec الذي يملك وسيط وحيد هو @p1 :

with ADOStoredProc1 Do

begin

Close;

Parameters.ParamByName('@p1').Value:='create Table Works_TB(num int not null)';

ExecProc;

end;

// هناك طرق أخرى مثل استخدام مكونات دلفي مثل :adoCommand و Adodataset و غيرها

مثال :

// الإجراء المستخدم موجود في قاعدة بيانات الـ

// master

//يعود بأسماء قواعد البيانات من

// sqlServer

Try

with AdoDataSet1 do

Begin

Close ;

CommandType := cmdStoredProc;

CommandText := 'sp_databases;1';

open;

end;

except

ShowMessage('There is an error');

end;

و لسا كمان ....................... B)

لو توضح السؤال أكثر يكون أفضل

عنوان الموضوع يوحي بأنك تستعمل الـ forms داخل dll , أليس كذلك؟

واعتقد ان لديك 2 forms ؟

ان كان كذلك فهل قمت بعمل create للفورمين قبل استخدامهما؟

أظن انه لم يتم بناء الفورمين ...

وضح السؤال اكثر ...

// executing sql file from T-sql

Try

with AdoQuery1.sql Do

Begin

adoquery1.connection := AdoConnection;

clear;

Add('exec master.dbo.xp_cmdshell 'OSQL -E -S(local) -i G:\DataBases\TestS.sql' + #39)

end;

finally

adoquery1.execsql;

adoquery1.clear;

end;ملاحظة :

1-ال adoconnection يجب ربطها مع القاعدة master لأن الإجراء المنفذ موجود ضمن هذه القاعدة

هناك أيضاً الكود القادم لإنشاء إتصال مع sql server عن طريق دلفي B)

2-G:\DataBases\TestS.sql : المسار مع اسم الملف ...

3- الملف يحوي مثلاً :

create Table table1 (num int not null)ويمكن أن تكون مثلاً قاعدة بيانات كاملة :

create database DB_test

create table some_table(num nvarchar(100))

insert into some_table values('hhh')

insert into some_table values('hhh')

insert into some_table values('hhh')

create proc Procedure_test

as

insert * from some_Table where

some_condition

return

Go

4- أخي العزيز يجب أن أنبهك إلى شيء هو أن تكون اّخر عبارة في اّخر سطر فقط هي :

go

B)

function Activate_ADOs(frm :TForm):Boolean ;

var

i :integer;

begin

for i:= 0 to frm .ComponentCount -1 do

Begin

with frm do

begin

if(Components.ClassNameIs('TADOTable'))then

begin

TADOTable(Components).Active := True;

end

else if(Components .ClassNameIs('TADOQuery'))then

begin

TADOQuery(Components).Active := True;

end;

end;

end;

end;

//------------

B) شلون تمام مو هيك .............عماد

// to get info about tables in a specific DB

فقط ببساطة استخدم ال adoquery وقم بما يلي :

اربط ال ado مع قاعدة البيانات master في ال sql server

ثم :

adoquery1.sql.add('
select * from information_schema.tables where 
  Table_catalog='DB_name' and Table_Type='base table'+ #39 );
adoquery1.execsql;طبعاً ال ado

رح ترجع سجلات مهمة عن الجداول

إربط مع datasource

ثم Dbgrid1.datasource := datasource; B)

المبرمج عماد

ولسّا .............

// to get your db objects from database

يلّا على ال adoquery كمان مرة :

adoquery1.sql.add('select name,xtype from sysobjects');

adoquery1.execsql;تعود بعدد من السجلات على ال datasource ثم على dbgrid

شلون !! إن شاء الله في فائدة ؟؟؟؟؟

أتمنى ذلك من القلب !!!

B)

المبرمج عمادdelphi & sqlServer Developer

استخدم خاصية تنظيم الكود ليبدو الكود افضل

لاحظ الصور المرفقة في ردي

كمان adoquery تفضّل :

اربط ال adoquery على القاعدة master وتوكل على الله

adoquery1.sql.clear;

adoquery1.sql.add('

RESTORE FILELISTONLY

FROM DISK = ' + #39 +'D:\bakup.bak' + #39 );

adoquery1.execsql;

تعود بسجلين أحدهما لل

.mdf fileوالاّخر للـ

.ldf file

//this statement can give us name of .ldf + .mdf of the bak

B)

أتمنى الفائدة

المبرمج عماد

كرمال عين تكرم مرج عيون ............

"إنما المؤمنون إخوة"

function TForm1.Activate_ADOs(frm :TForm):Boolean;
var
  i :integer;
begin
  for i:= 0 to frm .ComponentCount -1 do
  Begin
    with frm do
    begin
      if(Components.ClassNameIs('TADOTable'))then
      begin
        TADOTable(Components).Active := True;
      end
      else if(Components .ClassNameIs('TADOQuery'))then
      begin
        TADOQuery(Components).Active := True;
      end;
    end;
  end;
end;
//----------

المبرمج عماد ......

sql server & delphi Developer

B)

كمان adoquery تفضّل :

اربط ال adoquery على القاعدة master وتوكل على الله

adoquery1.sql.clear;
adoquery1.sql.add('
RESTORE FILELISTONLY 
FROM DISK = ' + #39 +'D:\bakup.bak' + #39 );
adoquery1.execsql

;

تعود بسجلين أحدهما لل

.mdf fileوالاّخر للـ

.ldf file

//this statement can give us name of .ldf + .mdf of the bak

هيك أحسن ؟؟؟؟؟؟

المبرمج عماد

تحسّن المشهد ؟؟؟؟؟؟؟؟؟؟تمام ؟؟؟؟؟؟؟

//to get your db objects from database

يلّا على ال adoquery كمان مرة :

adoquery1.sql.add('select name,xtype from sysobjects');

adoquery1.execsql;تعود بعدد من السجلات على ال datasource ثم على dbgrid

شلون !! إن شاء الله في فائدة ؟؟؟؟؟

أتمنى ذلك من القلب !!!

المبرمج عمادdelphi & sqlServer Developer

good ?????

// to get info about tables in a specific DB

فقط ببساطة استخدم ال adoquery وقم بما يلي :

اربط ال ado مع قاعدة البيانات master في ال sql server

ثم :

adoquery1.sql.add('
select * from information_schema.tables where 
Table_catalog='DB_name' and Table_Type='base table'+ #39 );
adoquery1.execsql;

طبعاً ال ado

رح ترجع سجلات مهمة عن الجداول

إربط مع datasource

ثم Dbgrid1.datasource := datasource;

المبرمج عماد

// executing sql file from T-sql

Try
with AdoQuery1.sql Do
Begin
adoquery1.connection := AdoConnection;
clear;
Add('exec master.dbo.xp_cmdshell 'OSQL -E -S(local) -i G:\DataBases\TestS.sql' + #39)
end;
finally
adoquery1.execsql;
adoquery1.clear;
end;

ملاحظة :

1-ال adoconnection يجب ربطها مع القاعدة master لأن الإجراء المنفذ موجود ضمن هذه القاعدة

هناك أيضاً الكود القادم لإنشاء إتصال مع sql server عن طريق دلفي

2-G:\DataBases\TestS.sql : المسار مع اسم الملف ...

3- الملف يحوي مثلاً :

create Table table1 (num int not null)

ويمكن أن تكون مثلاً قاعدة بيانات كاملة :

create database DB_test 
create table some_table(num nvarchar(100))

insert into some_table values('hhh')
insert into some_table values('hhh')
insert into some_table values('hhh')

create proc Procedure_test 
as
insert * from some_Table where 
some_condition
return
Go

4- أخي العزيز يجب أن أنبهك إلى شيء هو أن تكون اّخر عبارة في اّخر سطر فقط هي :

go

نفذ عبارات T-sql عبر الإجراء المخزن sp_sqlexec الذي يملك وسيط وحيد هو @p1 :

with ADOStoredProc1 Do
begin
Close;
Parameters.ParamByName('@p1').Value:='create Table Works_TB(num int not null)';
ExecProc;
end;

// هناك طرق أخرى مثل استخدام مكونات دلفي مثل :adoCommand و Adodataset و غيرها

مثال :

// الإجراء المستخدم موجود في قاعدة بيانات الـ

// master

//يعود بأسماء قواعد البيانات من

// sqlServer

Try
with AdoDataSet1 do
Begin
Close;
CommandType := cmdStoredProc;
CommandText := 'sp_databases;1';
open;
end;
except
ShowMessage('There is an error');
end;

المبرمج عماد ........ B)

المثال المرفق سيوضح الموضوع طبعاً مع السورس

(h) B)

المبرمج عماد

delphi & sqlserver Developer

get_rename_DB.rar

إليكم أيها الأخوة مثالاً رائع :

حيث يعرض إمكانيات لدلفي فيما يخص قواعد البيانات سكول سيرفر

1- يعرض المثال قواعد البيانات لدى السيرفر المحلي

2-إمكانية إنشاء قاعدة باسم محدد مع جدولين

جدول تفاصيل والاّخر رئيسي .. + تحديد طول أحد الحقول من نوع nvarchar

أتمنى الفائدة

المبرمج عماد B)

create_related_Tables_in_sqlServer.rar

عدم المؤاخدة :

أنا قدمت سؤال عن يdll ثم طرحت مشاركاتي عن طريق الخطأ في هدا المكان سأحاول تحسين المشاركات أولاً :

// executing sql file from T-sql

Try
with AdoQuery1.sql Do
Begin
adoquery1.connection := AdoConnection;
clear;
Add('exec master.dbo.xp_cmdshell 'OSQL -E -S(local) -i G:\DataBases\TestS.sql' + #39)
end;
finally
adoquery1.execsql;
adoquery1.clear;

end;

ملاحظة :

1-ال adoconnection يجب ربطها مع القاعدة master لأن الإجراء المنفذ موجود ضمن هذه القاعدة

هناك أيضاً الكود القادم لإنشاء إتصال مع sql server عن طريق دلفي

2-G:\DataBases\TestS.sql : المسار مع اسم الملف ...

3- الملف يحوي مثلاً :

create Table table1 (num int not null)

ويمكن أن تكون مثلاً قاعدة بيانات كاملة :

create database DB_test 
create table some_table(num nvarchar(100))

insert into some_table values('hhh')
insert into some_table values('hhh')
insert into some_table values('hhh')

create proc Procedure_test 
as
insert * from some_Table where 
some_condition
return
go

أخي العزيز يجب أن أنبهك إلى شيء هو أن تكون اّخر عبارة في اّخر سطر فقط هي :

go

تعديل على مشاركة سابقة :نفذ عبارات T-sql عبر الإجراء المخزن sp_sqlexec الذي يملك وسيط وحيد هو @p1 :

with ADOStoredProc1 Do
begin
Close;
Parameters.ParamByName('@p1').Value:='create Table Works_TB(num int not null)';
ExecProc;
end;

// هناك طرق أخرى مثل استخدام مكونات دلفي مثل :adoCommand و Adodataset و غيرها

مثال :

// الإجراء المستخدم موجود في قاعدة بيانات الـ

// master

//يعود بأسماء قواعد البيانات من

// sqlServer

Try
with AdoDataSet1 do
Begin
Close;
CommandType := cmdStoredProc;
CommandText := 'sp_databases;1';
open;
end;
except
ShowMessage('There is an error');
end;

و لسا كمان .......................

عماد B)

شكراً لكل مشرف في المنتدى B)

المبرمج عماد

B) التوضيح :

بعد إنشاء الفورم الأول و إظهاره طبعاً .... لا أستطيع الوصول إلى أي عنصر

أو كائن موجود في الفورم الاّخر أي الفورم الثاني على كل حال في حد متبرع يعمل test

على شكل مثال ليعرف القصد من السؤال لأنو شرح هالسؤال بالتحديد رح يكون طويل نوعاً ما .؟.؟.؟.؟.

على ما أظن لا أستطيع شرح السؤال أكثر من هيك

وإن شاء الله نجد رد ...............

أخوكم الفقير للعلم عماد