Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

How to connect SQL database to a certain Server

Posted on 2008-11-03
3
198 Views
Last Modified: 2010-04-21
Hi,

After installing my application including SQL Server 2005, the database will be created.
How can I connect the created SQL database to the SQL Sever from with Delphi (by code)?

Regards,
Stef
0
Comment
Question by:Delphiwizard
  • 2
3 Comments
 
LVL 18

Accepted Solution

by:
Johnjces earned 500 total points
ID: 22867064
Here is some code  I got somewhere, (credit is noted) that uses ADO. Hopefully you are using ADO.

John

/************************************
//Attach and detach an MSSQL database
//or MSDE using ADO in Delphi 7.
//
//by Joseph Fuchaka Barasa
//jfuchakab@yahoo.com
//
//Helps one to work with database objects
//(tables, queries, stored procedures
//etc) using free version of MSDE.
//without using the costly Enterprise
//version of the database.
************************************/
procedure detach_database;
var
strcommand, detachedDB: string;
begin
 
  detachedDB:=trim(EditDetachedBName.Text);//database name
  strcommand:='EXEC sp_detach_db @dbname = '+detachedDB+'';//detaching
  with AttachConn do begin//AttachConn is ADOConnection
    close;//attach on the master system database.
    //computer_name is the name of your computer
    ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+'master'+';Data Source='+computer_name+'';
    open;
  end;//with attachconn
   with qryDetach do begin//qryDetach is AdoQuery
        close;
        sql.Clear;
        sql.Text:=strcommand;
        try
          ExecSQL;
          ShowMessage('Detach was Successfull');
        Except on E:Exception do begin
          Showmessage('Error Dettaching the Database');
          Application.Terminate;
        end;
        end;//try - except
   end;
   end;//detach
 
 
 
procedure attach_database;
var
  strcommand, dbase_Name, file1, file2: string;
 
begin
  //database name
  dbase_Name:=trim(EditAttachedDBase.Text);
  file1:=trim(EditDatabaseFIle.Text);//database file
  file2:=trim(EditLogFile.Text);//log file
  with AttachConn do begin
    close;//connect to master system database
    ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+'master'+';Data Source='+computer_name+'';
    open;
  end;//with attachconn
 
  //sql commands for attaching
  strcommand:='EXEC sp_attach_db @dbname = '+dbase_Name+', ';
  strcommand:=strcommand + '@filename1 = "'+File1+'"'+', ';
  strcommand:=strcommand + '@filename2 = "'+File2+'"'+'';
   with qryAttach do begin
        close;
        sql.Clear;
        sql.Text:=strcommand;
        try
          ExecSQL;
          ShowMessage('Database Successfully attached');
        Except on E:Exception do begin
          Showmessage('Error Attaching the Database');
          Application.Terminate;
        end;
        end;//try - except
   end;//with query attach
 
end; 

Open in new window

0
 

Author Closing Comment

by:Delphiwizard
ID: 31512660
Thank you very much!
0
 
LVL 18

Expert Comment

by:Johnjces
ID: 22867347
Glad I could help this AM! Thanks!

John
0

Featured Post

NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction: When running hybrid database environments, you often need to query some data from a remote db of any type, while being connected to your MS SQL Server database. Problems start when you try to combine that with some "user input" pass…
In SQL Server, when rows are selected from a table, does it retrieve data in the order in which it is inserted?  Many believe this is the case. Let us try to examine for ourselves with an example. To get started, use the following script, wh…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question