cx20

Option Explicit

Call Main()

Sub Main()
    Dim cn
    Dim rs

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={SQL Server};" & _

cx20

Option Explicit
 
Call Main()
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=SQLOLEDB;" & _

cx20

Option Explicit

Call Main()

Sub Main()
    Dim dbe
    Dim db
    Dim rs
    
    Set dbe = CreateObject("DAO.DBEngine.36")

cx20

Option Explicit

Call Main()

Sub Main()
    Dim dbe
    Dim db
    Dim rs
    
    Set dbe = CreateObject("DAO.DBEngine.120")

cx20

Option Explicit
 
Call Main()
 
Sub Main()
    Dim dbe
    Dim db
    Dim rs
 
    Set dbe = CreateObject("DAO.DBEngine.36")

cx20

#include <windows.h>
#include <tchar.h>
#include <stdio.h>
#include <sqlext.h>
#include <sql.h>
 
int _tmain( int argc, TCHAR* argv[] )
{
    HENV henv;
    HDBC hdbc;

cx20

#include <stdio.h>
 
int main( int argc, char* argv[] )
{
    EXEC SQL BEGIN DECLARE SECTION;
    char szServerDatabase[] = "(local).pubs";
    char szLoginPassword[] = "sa.P@ssW0rd";
    char szCommand[] = "SELECT 'Hello, ESQL/C World!' AS Message";
    char message[32] = { 0 };
    EXEC SQL END DECLARE SECTION;

cx20

#define DBNTWIN32
#include "windows.h"
 
#include <sqlfront.h>
#include <sqldb.h>
#include <stdio.h>
 
int main( int argc, char* argv[] )
{
    DBPROCESS* dbproc;

cx20

db.hello.insert( { message: 'Hello, MongoDB World!' } );
var cur = db.hello.findOne();
print( cur.message );

cx20

SELECT 'Hello, Derby World!' AS Message FROM SYSIBM.SYSDUMMY1;