This example uses the Biblio.mdb file shipped with Microsoft Visual Basic. The following code illustrates the use of the IAQAADOConnection object in your script. The TestProc procedure connects to the Biblio.mdb database, executes the query, then inserts results into the test log.

Note:

Using the Microsoft.Jet.OLEDB.4.0 provider requires that you run your script in the 32-bit version of TestComplete.

TestComplete 32-bit executable is located in the <TestComplete>\Bin folder.

JavaScript

JavaScript

function TestProc()
{
  let AConnection, RecSet;
  // Create a Connection object
  AConnection = ADO.CreateADOConnection();
  // Specify the connection string
  AConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"+
  "Data Source=C:\\Microsoft Visual Studio\\VB98\\biblio.mdb";
  // Suppress the login dialog box
  AConnection.LoginPrompt = false;
  AConnection.Open();
  // Execute a simple query
  RecSet = AConnection.Execute_("SELECT * FROM Authors WHERE [Year Born] <> 0");
  // Iterate through query results and insert data into the test log
  RecSet.MoveFirst();
  while(! RecSet.EOF)
  {
    Log.Message(RecSet.Fields.Item("Author").Value, RecSet.Fields.Item("Year Born").Value);
    RecSet.MoveNext();
  }
  AConnection.Close();
}

JScript

function TestProc()
{
  var AConnection, RecSet;
  // Create a Connection object
  AConnection = ADO.CreateADOConnection();
  // Specify the connection string
  AConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"+
  "Data Source=C:\\Microsoft Visual Studio\\VB98\\biblio.mdb";
  // Suppress the login dialog box
  AConnection.LoginPrompt = false;
  AConnection.Open();
  // Execute a simple query
  RecSet = AConnection.Execute_("SELECT * FROM Authors WHERE [Year Born] <> 0");
  // Iterate through query results and insert data into the test log
  RecSet.MoveFirst();
  while(! RecSet.EOF)
  {
    Log.Message(RecSet.Fields("Author").Value, RecSet.Fields("Year Born").Value);
    RecSet.MoveNext();
  }
  AConnection.Close();
}

Python

def TestProc():
  # Create a Connection object
  AConnection = ADO.CreateADOConnection()
  # Specify the connection string
  AConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + \
  "Data Source=C:\\Microsoft Visual Studio\\VB98\\biblio.mdb";
  # Suppress the login dialog box
  AConnection.LoginPrompt = False
  AConnection.Open()
  # Execute a simple query
  RecSet = AConnection.Execute_("SELECT * FROM Authors WHERE [Year Born] <> 0")
  # Iterate through query results and insert data into the test log
  RecSet.MoveFirst()
  while not RecSet.EOF:
    Log.Message(RecSet.Fields.Item["name"].Value, RecSet.Fields.Item["prod"].Value);
    RecSet.MoveNext()
  AConnection.Close()

VBScript

Sub TestProc
  ' Create a Connection object
  Set AConnection = ADO.CreateADOConnection
  ' Specify the connection string
  AConnection.ConnectionString = _
  "Provider=Microsoft.Jet.OLEDB.4.0;"+ _
  "Data Source=C:\Microsoft Visual Studio\VB98\biblio.mdb"
  ' Suppress the login dialog box
  AConnection.LoginPrompt = False
  AConnection.Open
  ' Execute a simple query
  Set RecSet = AConnection.Execute_("SELECT * FROM Authors WHERE [Year Born] <> 0")
  ' Iterate through query results and insert data into the test log
  RecSet.MoveFirst
  While Not RecSet.EOF
    Log.Message RecSet.Fields("Author").Value, RecSet.Fields("Year Born").Value
    RecSet.MoveNext
  Wend
  AConnection.Close
End Sub

DelphiScript

procedure TestProc;
var
  AConnection, RecSet : OleVariant;
begin
  // Create a Connection object
  AConnection := ADO.CreateADOConnection;
  // Specify the connection string
  AConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
  'Data Source=C:\Microsoft Visual Studio\VB98\biblio.mdb';
  // Suppress the login dialog box
  AConnection.LoginPrompt := False;
  AConnection.Open;
  // Execute a simple query
  RecSet := AConnection.Execute_('SELECT * FROM Authors WHERE [Year Born] <> 0');
  // Iterate through query results and insert data into the test log
  RecSet.MoveFirst;
  while not aqConvert.VarToBool(RecSet.EOF) do
  begin
    Log.Message(RecSet.Fields('Author').Value, RecSet.Fields('Year Born').Value);
    RecSet.MoveNext;
  end;
  AConnection.Close;
end;

C++Script, C#Script

function TestProc()
{
  var AConnection, RecSet;
  // Create a Connection object
  AConnection = ADO["CreateADOConnection"]();
  // Specify the connection string
  AConnection["ConnectionString"] = "Provider=Microsoft.Jet.OLEDB.4.0;" +
  "Data Source=C:\\Microsoft Visual Studio\\VB98\\biblio.mdb";
  // Suppress the login dialog box
  AConnection["LoginPrompt"] = 0;
  AConnection["Open"]();
  // Execute a simple query
  RecSet = AConnection["Execute_"]("SELECT * FROM Authors WHERE [Year Born] <> 0");
  // Iterate through query results and insert data into the test log
  RecSet["MoveFirst"]();
  while (!RecSet["EOF"])
  {
    Log["Message"](RecSet["Fields"]("Author")["Value"], RecSet["Fields"]("Year Born")["Value"]);
    RecSet["MoveNext"]();
  };
  AConnection["Close"]();
}