Acceder a MSSQL
Posted: Mon Dec 09, 2013 4:42 pm
Amigos, algún código lib o dll para acceder a MSSQL y poder leer datos y actualizaciones??, probe los demos pero no van,,,,
Salu2
Willi
Salu2
Willi
Connecting to Ms Sql server is no different than any other RDMS using ADO. One of the nice things about connecting to MS Sql is that SqlOleDb is native to all Windows OS thru Win8 32 bit and there is no need for any third party OleDb provider. Nothing is needed on the client workstation and nothing to configure.
Here is a sample connection using ADO and the link to download the Free Ms Sql Server 2012 Express.
Rick Lipkin
Code: Select all
// Sql Server test program
#Include "FiveWin.ch"
//----------------------------
Func Main()
Local xProvider,xSource,xCatalog,xUserId,xPassword,xConnect
Local oRs,cSql,oErr,Saying
Public oCn
xPROVIDER := "SQLOLEDB" // oledb provider
xSOURCE := "RICKLIPKIN-PC\SQLEXPRESS" // sql server name
xCATALOG := "TRAVEL" // sql server database
xUSERID := "xxxxxxx"
xPASSWORD := "xxxxxxx"
xConnect := 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD // connection string
Try
oCn := CREATEOBJECT( "ADODB.Connection" )
Catch
MsgInfo( "Could not create the ADO object for connection")
Return(.f.)
End Try
TRY
oCn:Open( xConnect ) // connection object
CATCH oErr
MsgInfo( "Could not open a Connection to Database "+xSource )
RETURN(.F.)
END TRY
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := 1 // opendkeyset
oRs:CursorLocation := 3 // local cache
oRs:LockType := 3 // lockoportunistic
cSQL := "SELECT * From [Staff]"
TRY
oRs:Open( cSQL, oCn )
CATCH oErr
Saying := "Error in Opening STAFF table to"+chr(10)
Saying += "Import Legacy Data"+chr(10)
MsgInfo( Saying )
oCn:Close()
RETURN(.F.)
END TRY
xBrowse( oRs )
oRs:Close()
oCn:Close()
Return(.t.)