Description
This function creates a new ADO Recordset object and returns a reference to it. This object will allow you to work with all recordsets (tables, query results, etc.) from you scripts.
For detailed information on the Recordsetobject, see documentation on Microsoft ADO objects in the MSDN Library.
Declaration
ADO.CreateRecordset()
| Result | A Recordset object (Microsoft ADO) |
|||
Applies To
The method is applied to the following object:
Result Value
A Microsoft ADO Recordset object.
Remarks
Note that you can also create a new ADO Recordset object by its ProgID, ADODB.Recordset, using the Sys.OleObject routine or the getActiveXObject method (JavaScript only):
JavaScript
rs = getActiveXObject("ADODB.Recordset");
JScript
rs = Sys.OleObject("ADODB.Recordset");
// -- or --
rs = new ActiveXObject("ADODB.Recordset");
Python
rs = Sys.OleObject["ADODB.Recordset"]VBScript
Set rs = Sys.OleObject("ADODB.Recordset")
' -- or --
Set rs = CreateObject("ADODB.Recordset")
DelphiScript
rs := Sys.OleObject['ADODB.Recordset'];
C++Script, C#Script
rs = Sys["OleObject"]("ADODB.Recordset");
// -- or --
rs = new ActiveXObject("ADODB.Recordset");
Example
The code below adds new records to a table and saves them.
| 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
function CreatingRecordset()
{
let tableName = TABLE_NAME;
let connectionString = "Provider=SQLNCLI;Server=SERVER_NAME;" +
"Database=DATABASE_NAME;Uid=USER_NAME; Pwd=PASSWORD;";
var adOpenKeyset = 1;
var adLockOptimistic = 3;
var adCmdTable = 2;
let connection = getActiveXObject("ADODB.Connection");
connection.ConnectionString = connectionString;
connection.Open();
var recordset = getActiveXObject("ADODB.Recordset");
recordset.Open(tableName, connection, adOpenKeyset,
adLockOptimistic, adCmdTable);
recordset.AddNew();
recordset.Fields.Item("FIELD0_NAME").Value = "FILED0_VALUE";
recordset.Fields.Item("FIELD1_NAME").Value = "FILED1_VALUE";
recordset.Update();
recordset.Close();
connection.Close();
}
JScript
function CreatingRecordset()
{
var tableName = TABLE_NAME;
var connectionString = "Provider=SQLNCLI;Server=SERVER_NAME;" +
"Database=DATABASE_NAME;Uid=USER_NAME; Pwd=PASSWORD;";
var adOpenKeyset = 1;
var adLockOptimistic = 3;
var adCmdTable = 2;
var connection = Sys.OleObject("ADODB.Connection");
connection.ConnectionString = connectionString;
connection.Open();
var recordset = Sys.OleObject("ADODB.Recordset");
recordset.Open(tableName, connection, adOpenKeyset,
adLockOptimistic, adCmdTable);
recordset.AddNew();
recordset.Fields("FIELD0_NAME").Value = "FILED0_VALUE";
recordset.Fields("FIELD1_NAME").Value = "FILED1_VALUE";
recordset.Update();
recordset.Close();
connection.Close();
}
Python
def CreatingRecordset():
tableName = "TABLE_NAME"
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"+\
"Data Source=C:\\Microsoft Visual Studio\\VB98\\biblio.mdb"
adOpenKeyset = 1
adLockOptimistic = 3
adCmdTable = 2
connection = Sys.OleObject["ADODB.Connection"]
connection.ConnectionString = connectionString
connection.Open()
recordset = Sys.OleObject["ADODB.Recordset"]
recordset.Open(tableName, connection, adOpenKeyset, adLockOptimistic, adCmdTable)
recordset.AddNew()
recordset.Fields.Item["FIELD0_NAME"].Value = "FIELD0_VALUE"
recordset.Fields.Item["FIELD1_NAME"].Value = "FIELD1_VALUE"
recordset.Update()
recordset.Close()
connection.Close()VBScript
Sub CreatingRecordset
Dim tableName, connectionString
Dim adOpenKeyset, adCmdTable, connection, recordset, dataStream
tableName = TABLE_NAME
connectionString = "Provider=SQLNCLI;Server=SERVER_NAME;"&_
"Database=DATABASE_NAME;Uid=USER_NAME; Pwd=PASSWORD;"
adOpenKeyset = 1
adOpenKeyset = 3
adCmdTable = 2
Set connection = Sys.OleObject("ADODB.Connection")
connection.ConnectionString = connectionString
Call connection.Open
Set recordset = Sys.OleObject("ADODB.Recordset")
Call recordset.Open(tableName, connection, adOpenKeyset,_
adLockOptimistic, adCmdTable)
Call recordset.AddNew
recordset.Fields("FIELD0_NAME").Value = "FIELD0_VALUE"
recordset.Fields("FIELD1_NAME").Value = "FIELD1_VALUE"
Call recordset.Update
Call recordset.Close
Call connection.Close
End Sub
DelphiScript
function CreatingRecordset;
var tableName, connectionString, adOpenKeyset, adLockOptimistic, adCmdTable, connection, recordset;
begin
tableName := TABLE_NAME;
connectionString := 'Provider=SQLNCLI;Server=SERVER_NAME;' +
'Database=DATABASE_NAME;Uid=USER_NAME; Pwd=PASSWORD;';
adOpenKeyset := 1;
adLockOptimistic := 3;
adCmdTable := 2;
connection := Sys.OleObject('ADODB.Connection');
connection.ConnectionString := connectionString;
connection.Open();
recordset := Sys.OleObject('ADODB.Recordset');
recordset.Open(tableName, connection, adOpenKeyset,
adLockOptimistic, adCmdTable);
recordset.AddNew();
recordset.Fields('FIELD0_NAME').Value := 'FILED0_VALUE';
recordset.Fields('FIELD1_NAME').Value := 'FILED1_VALUE';
recordset.Update();
recordset.Close();
connection.Close();
end;
C++Script, C#Script
function CreatingRecordset()
{
var tableName = TABLE_NAME;
var connectionString = "Provider=SQLNCLI;Server=SERVER_NAME;" +
"Database=DATABASE_NAME;Uid=USER_NAME; Pwd=PASSWORD;";
var adOpenKeyset = 1;
var adLockOptimistic = 3;
var adCmdTable = 2;
var connection = Sys["OleObject"]("ADODB.Connection");
connection["ConnectionString"] = connectionString;
connection["Open"]();
var recordset = Sys["OleObject"]("ADODB.Recordset");
recordset["Open"](tableName, connection, adOpenKeyset,
adLockOptimistic, adCmdTable);
recordset["AddNew"]();
recordset["Fields"]("FIELD0_NAME")["Value"] = "FILED0_VALUE";
recordset["Fields"]("FIELD1_NAME")["Value"] = "FILED1_VALUE";
recordset["Update"]();
recordset["Close"]();
connection["Close"]();
}
See Also
ADO.CreateADODataset Method
ADO.CreateCommand Method
ADO.CreateConnection Method