This example shows how to extract a MS SQL database structure via the ADO connection.
procedure TForm2.btnExtractClick(Sender: TObject);
begin
memLog.Clear();
memResult.Clear();
DBCConnectionADO1.Connected := True;
try
DBStructure1.Clear();
MSSQLDBExtract1.ExtractDatabase();
DBStructure1.Metadata.ExtractMetadata(memResult.Lines);
finally
DBCConnectionADO1.Connected := False;
end;
end;
procedure TForm2.DBCConnectionADO1ErrorMessage(Sender: TObject;
ErrText: string);
begin
memLog.Lines.Add(ErrText);
memLog.Perform(EM_SCROLLCARET, 0, 0);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
cbSqlServerVersion.Items.Clear();
cbSqlServerVersion.Items.AddObject('MSSQL 2000', TObject(st_MSSQL2000));
cbSqlServerVersion.Items.AddObject('MSSQL 2005', TObject(st_MSSQL2005));
cbSqlServerVersion.Items.AddObject('MSSQL 2008', TObject(st_MSSQL2008));
cbSqlServerVersion.Items.AddObject('MSSQL 2012', TObject(st_MSSQL2012));
cbSqlServerVersion.Items.AddObject('MSSQL 2014', TObject(st_MSSQL2014));
cbSqlServerVersion.Items.AddObject('MSSQL 2016', TObject(st_MSSQL2016));
cbSqlServerVersion.Items.AddObject('MSSQL 2017', TObject(st_MSSQL2017));
cbSqlServerVersion.ItemIndex := cbSqlServerVersion.Items.Count - 2;
end;
function AdoConnectString(WinAuth: Boolean;
HostName, DbName, UserName, Password: String): String;
begin
Result := 'Provider=SQLOLEDB;' +
'Initial Catalog='+DbName+';';
if HostName <> '' then Result := Result +
'Data Source='+HostName+';';
if WinAuth then
begin
Result := Result + 'Integrated Security=SSPI;' +
'Persist Security Info=False;';
end else
begin
Result := Result + 'Persist Security Info=True;';
if UserName <> '' then
Result := Result + 'User ID=' + UserName + ';';
if Password <> '' then
Result := Result + 'Password=' + Password + ';';
end;
end;
procedure TForm2.DBCConnectionADO1BeforeConnect(Sender: TObject);
begin
ADOConnection1.ConnectionString :=
AdoConnectString(cbAuthM.Checked, edtServer.Text, edtDatabaseName.Text,
edtUser.Text, edtPassword.Text);
DBStructure1.Objs.MSSQLServerOptions.SQLServerVersion :=
TMSSQLServerVersionType(cbSqlServerVersion.Items.Objects[cbSqlServerVersion.ItemIndex]);
end;
Article ID: 147, Created: February 5, 2020 at 6:36 PM, Modified: February 5, 2020 at 8:04 PM