FW MS-SQL Server
Posted: Thu Sep 17, 2020 1:35 pm
Hello!
Does FW access MS-SQl Server as well as access MySQL?
Tks
Rodrigo Melo
Brazil
Does FW access MS-SQl Server as well as access MySQL?
Tks
Rodrigo Melo
Brazil
www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
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
Code: Select all
oCn := FW_OpenAdoConnection( { "MSSQL", cServer, cCatalog, cUser, cPassword }, .t. )
if oCn == nil
? "not connected"
return nil
// do your work
oCn:Close()