ADO Shape با موتور SQL Server [بایگانی]

darvishiali

یک شنبه 05 آذر 1385, 14:41 عصر

سلام؛

من می خوام بدونم چجوری میشه با ADO Shape Command با موتور SQL Server کار کرد. یه Demo از این موضوع با موتور InterBase در دایرکتوری Delphi7\Demos\Ado\Shap هست. ولی من می خوام این کار رو با موتور SQL Server انجام بدم. ممنون میشم اگه منو راهنمایی کنید.

vcldeveloper

یک شنبه 05 آذر 1385, 21:48 عصر

یه Demo از این موضوع با موتور InterBase در دایرکتوری Delphi7\Demos\Ado\Shap هست.
در اون DEMO از Jet Engine برای ارتباط با یه فایل Access استفاده شده، نه Interbase.

می خوام این کار رو با موتور SQL Server انجام بدم.
در AdoConnection.ConnectionString باید برای Data Provider از SQLOLEDB.1 بجای Microsoft.Jet.OLEDB.4.0 استفاده کنید. در Demo ایی که بهش اشاره کردید، از متن موجود در شی DataProvider - که از نوع TEdit هست - برای DataProvider در ConnectionString استفاده میشه:

const
ConnStr = 'Provider=%s;Data Provider=%s;Data Source=%s';
begin
if not ADOConnection1.Connected then
ADOConnection1.ConnectionString := Format(ConnStr, [Provider.Text,
DataProvider.Text, DataSource.Text]);
Customers.Open;
Orders.Open;
end;