yes.. 2.8 I do believe... connecting is really simple.. you need to build
a connect string.. I am sure you know this already.. I am just blowing hot
air.... if this helps.. check out my code that I use to be able to swich
from Local Develment server to then a web based public Sql Server....
you will see in that procedure I have simple checkbox relaying control to
what database is going to be used in the connect strings... then after the
switching I am opening the databases and also cranking open my threads..
lenn
white crow coding
wcc.lennyslisting.com
Code Directly From Skyboard - Part of Earthsystems . *** Commented out
password details/confidential data... but you get the drift ****
coded by: Lenn Dolling [EMAIL PROTECTED]
white crow coding
wcc.lennyslisting.com
procedure TfrmEarthChat.switchDatabase;
var
constring1, constring2 ,constring3,constring4 : STRING;
begin
try
if cbSqlServerSwitch.Checked then
begin
constring1 := 'Provider=SQLOLEDB.1;Password=*****;Persist Security
Info=True; User ID=wcc;Initial Catalog=wccDatabase;Data
Source=mywebsite.com;';
constring2 := 'Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=BURNDATA;Use Encryption for Data=False;';
constring3 := 'Tag with column collation when possible=False';
end
else
begin // MYCOMPUTERUNCNAME = your computer name..
constring1 := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
Security Info=False;User ID=wcc;Initial Catalog=earthchat;Data
Source=MYCOMPUTERUNCNAME;';
constring2 := 'Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=MYCOMPUTERUNCNAME;Use Encryption for Data=False;';
constring3 := 'Tag with column collation when possible=False';
end;
Debugmsg('Connection to Database (main) started',1);
if adocEC.Connected = true then
adocEC.Close;
adocEC.ConnectionString :=constring1 +constring2 +constring3;
adocEC.Open;
Debugmsg('Connection to Database (thread1) started',1);
if adocECThread.Connected = true then
adocECThread.Close;
adocECThread.ConnectionString :=constring1 +constring2 +constring3;
adocECThread.Open;
Debugmsg('Connection to Database - (thread2) started',1);
if adocECThread2.Connected = true then
adocECThread2.Close;
adocECThread2.ConnectionString :=constring1 +constring2 +constring3;
adocECThread2.Open;
Debugmsg('Connection to Database - (thread3) started',1);
if adocECThread3.Connected = true then
adocECThread3.Close;
adocECThread3.ConnectionString :=constring1 +constring2 +constring3;
adocECThread3.Open;
Debugmsg('Connection to Database - (thread4) started',1);
if adocECThread4.Connected = true then
adocECThread4.Close;
adocECThread4.ConnectionString :=constring1 +constring2 +constring3;
adocECThread4.Open;
Debugmsg('Connection to Database - (thread5) started',1);
if adocECThread5.Connected = true then
adocECThread5.Close;
adocECThread5.ConnectionString :=constring1 +constring2 +constring3;
adocECThread5.Open;
Debugmsg('Connection to Database - (thread6) started',1);
if adocECThread6.Connected = true then
adocECThread6.Close;
adocECThread6.ConnectionString :=constring1 +constring2 +constring3;
adocECThread6.Open;
Debugmsg('Connection to Database - (HelperThread) started',1);
if adocECHelper.Connected = true then
adocECHelper.Close;
adocECHelper.ConnectionString :=constring1 +constring2 +constring3;
adocECHelper.Open;
RefreshBoardList;
except
debugmsg('ERROR Wan/Lan Database Switching',1);
end;
end;
>From: "tryexceptend" <[EMAIL PROTECTED]>
>Reply-To: [email protected]
>To: [email protected]
>Subject: [delphi-en] Re: help me please in delphi
>Date: Wed, 11 Oct 2006 06:02:23 -0000
>
>Do you have to include MDAC Setup (Microsoft Download Center) to your
>Setup. MDAC must be installed on a Computer to connect via ADO to MS
>SQL Server.
>
>
>--- In [email protected], sara-arian <[EMAIL PROTECTED]> wrote:
> >
> > thank you for your attention,
> > yes I'v used ADO.I want my program to run on any computer.and my
>SQL database should connect automatically to the Microsoft SQL server
>of the computer.
> > I hope you understand what I mean.
> > please guide me what to do.
> > thank you very much.
> >
> > Steve Riley <[EMAIL PROTECTED]> wrote:
> > What are you trying to do, do you need toinstallthe MSSQL
>of just run the exe which connect to the MSSQL
> > do you use ADO?
> > Steve
> >
> > ----- Original Message -----
> > From: sara-arian
> > To: [EMAIL PROTECTED] ; [email protected] ;
>[EMAIL PROTECTED]
> > Sent: Sunday, October 08, 2006 5:28 AM
> > Subject: [delphi-en] help me please in delphi
> >
> > would you help me with this problem:
> > how can I set up my delphi program with sql server database,to run
>in any computer by that setup program.
> > thank you
> >
> > ---------------------------------
> > Stay in the know. Pulse on the new Yahoo.com. Check it out.
> >
> > ---------------------------------
> > Get your email and more, right on the new Yahoo.com
> >
> > [Non-text portions of this message have been removed]
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
> >
> >
> >
> > ---------------------------------
> > How low will we go? Check out Yahoo! Messenger's low PC-to-Phone
>call rates.
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/delphi-en/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
