HDescribeConnection (Example)

WINDEV, WEBDEV AND WINDEV MOBILE
ONLINE HELP

Version:

Home | Sign in | English

Help

Example 1: Describing a connection on SQL Server via OLE DB
Example 2: Describing a connection on SQL Server via OLE DB
Example 3: Describing a connection on HFSQL Classic files
Example 4: Describing a connection on an Access file (MDB)

HDescribeConnection (Example)

See the associated help page

Example 1: Describing a connection on SQL Server via OLE DB

In this example, the company database is on Oracle. The programmer wants to run the test of his program on a SQL Server database.

In the analysis, an OLEDB connection was associated with the "Salaries" OLE DB table on Oracle.

The properties of this connection are:

datasource: Server_Oracle
user: smith
password: toto
provider: OraOLEDB.Oracle

The new connection to the SQL Server database will have the following parameters:

datasource: "Server_SQLServer"
database: "dbo"
user: ""
password: ""
provider: "SQLOLEDB"

Remark: On SQL Server, you can define a database internal to the data source that the server is.

// Describe the new connection
HDescribeConnection("MyConnection", "", "", "Server_SQLServer", ...
"dbo", hOledbSQLServer, hOReadWrite, "")

// Establish the new connection
HOpenConnection("MyConnection")

// Specify that "Salaries" is using the new connection
HChangeConnection("Salaries", "MyConnection")
// Start browsing the "Salaries" table on SQL Server
HReadFirst("Salaries")
...
// Closes the file: the connection used by the "Salaries" file
// was opened by HOpenConnection. It will not be closed
// when closing the "Salaries" file.
HClose("Salaries")
...
// Fast re-opening because the connection is still opened
HOpen("Salaries")

// Close the connection
HCloseConnection("MyConnection")

// Restore the use of connection on Oracle
HChangeConnection("Salaries", "")

// Open the "Salaries" table on Oracle
HOpen("Salaries")

Example 2: Describing a connection on SQL Server via OLE DB

The company database is on Oracle. The programmer wants to run the test of his program on a SQL Server database by using the ODBC access

Without modifying the analysis, you have the ability to change the connection used by the file.

Remark: "ODBCSQLServer" is an ODBC data source declared in the ODBC data sources of Windows

// Describe and open the new connection
HDescribeConnection("MyConnection", "", "", "Server_SQLServer", ...
"dbo", hODBC, hOReadWrite, "")
HOpenConnection("MyConnection")

// Specify that "Salaries" is using the new connection
HChangeConnection("Salaries", "MyConnection")

// Start browsing the "Salaries" table on SQLServer
HReadFirst("Salaries")
...

// Close the connection
HCloseConnection("MyConnection")

// Restore the use of connection on Oracle
HChangeConnection("Salaries", "")
// Open the "Salaries" table on Oracle
HOpen("Salaries")

Example 3: Describing a connection on HFSQL Classic files

The company database is on Oracle. The developer wants to run the tests of his program on HFSQL Classic data files.

Without modifying the analysis, you have the ability to change the connection used by the file.

In the analysis, an OLEDB connection was associated with the "Salaries" OLE DB table on Oracle.

The properties of this connection are:

datasource: Server_Oracle
user: smith
password: toto
provider: OraOLEDB.Oracle

The new pseudo-connection (using a HFSQL Classic database) will have the following parameters:

datasource: "c:\tmp"
database: ""
user: ""
password: ""
provider: hAccessHF7

// Describe the new connection
HDescribeConnection ("MyConnection", "", "", "c:\tmp", "", ...
hAccessHF7, hOReadWrite, "")
// Specify that "Salaries" is using the new connection
HChangeConnection("Salaries", "MyConnection")
// Start browsing the "Salaries" table on SQLServer
HReadFirst("Salaries")
...
// Close the file
HClose("Salaries")
...
// Restore the use of connection on Oracle
HChangeConnection("Salaries", "")
// Open the "Salaries" table on Oracle
HOpen("Salaries")

Example 4: Describing a connection on an Access file (MDB)

The database of the company is on Access. The following code is used to access the data.

// Connection variables
sConnectionName is string = "CNT_ACCESS"
sConnectionType is string = "Microsoft.Jet.OLEDB.4.0"
sAccessType is int = hOReadWrite
sSourceName is string = "C:\MyAccessDatabase.mdb"
sDatabaseName is Data Source = ""
sUserName is string = ""
sPassword is string = ""

IF HDescribeConnection(sConnectionName, sUserName, sPassword, ...
sSourceName, sDatabaseName, sConnectionType, sAccessType) THEN
IF HOpenConnection(sConnectionName) THEN
HChangeConnection(Cedex, "CNT_ACCESS")
Info("Connection created." + CR + ...
"Change of connection performed")
ELSE
Error(HErrorInfo())
END
ELSE
Error(HErrorInfo())
END