For connect to a SQL Server over internet be sure, that the Port 1433 is not blocked by any firewall...
--- In [email protected], "lenn lee" <[EMAIL PROTECTED]> wrote: > > 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 <aban4009@> 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 <stevenriley@> 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] ; delphi- [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/
