FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FW MS-SQL Server
Posts: 44
Joined: Tue Nov 21, 2006 04:07 PM
FW MS-SQL Server
Posted: Thu Sep 17, 2020 01:35 PM

Hello!

Does FW access MS-SQl Server as well as access MySQL?

Tks

Rodrigo Melo
Brazil

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: FW MS-SQL Server
Posted: Thu Sep 17, 2020 07:49 PM

YES

Regards



G. N. Rao.

Hyderabad, India
Posts: 44
Joined: Tue Nov 21, 2006 04:07 PM
Re: FW MS-SQL Server
Posted: Thu Sep 17, 2020 11:54 PM

Tks

Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM
Re: FW MS-SQL Server
Posted: Fri Sep 18, 2020 01:53 PM
Ado connects to most Sql Databases ... go to the website Connectionstrings.com

https://www.connectionstrings.com/ole-d ... ql-server/

Code (fw): Select all Collapse
xPROVIDER    := "SQLOLEDB"
xSOURCE      := "MYCOMUTER-PC\SQLEXPRESS"
xCatalog       := "MyDatabaseName"
xUserId         := "sqluserID"
xPASSWORD := "mypassword"


xString := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD


// global connection string
xConnect := CREATEOBJECT( "ADODB.Connection" )

TRY
   xConnect:Open( xString )
CATCH oErr
   Saying := "Could not open a Global Connection to Database "+xSource
   MsgInfo( Saying )
   RETURN(.F.)
END TRY


Or have a look at
\source\function\adofuncs.prg ... simplified ado wrappers

Rick Lipkin
Posts: 44
Joined: Tue Nov 21, 2006 04:07 PM
Re: FW MS-SQL Server
Posted: Sat Sep 19, 2020 10:41 PM

Rick,

Tks

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: FW MS-SQL Server
Posted: Mon Sep 21, 2020 04:07 PM
FWH recommends:
Code (fw): Select all Collapse
oCn := FW_OpenAdoConnection( { "MSSQL", cServer, cCatalog, cUser, cPassword }, .t. )
if oCn == nil
   ? "not connected"
return nil
// do your work
oCn:Close()


You need not bother about connection strings. FWH does all that work for you.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion