Сообщений в теме: 36

[DenDer]

Здравствуйте!

В документации написано, что ТС предоставляет возможность работать с АДО.

Вот я пытаюсь записать в базу несколько строк.

А ничего не получается:

Делаю на основе примера из хелпа

' Create a new Connection object
  Set AConnection = ADO.CreateConnection
  ' Specify the connection string
  AConnection.ConnectionString = "PIntegrated Security=SSPI;Bind Flags=0;Data Source=DensTest;Provider=ADsDSOObject;Mode=Read;Location=samila;Encrypt Password=False"
  ' Activate the connection
  AConnection.Open
  ' Create a new Command object
  Set Cmd = ADO.CreateCommand
  ' Specify the connection
  Cmd.ActiveConnection = AConnection
  ' Specify command type and text
  Cmd.CommandText = "insert into Moon(id, str) values(MyParam,'fff')"
  Cmd.CommandType = adCmdText
  ' Create a new parameter
  Set Prm = Cmd.CreateParameter("MyParam", adInteger, adParamInput)
  Cmd.Parameters.Append Prm
  ' Specify the parameter value
  Prm.Value = 1940


 Set RecSet = Cmd.Execute 'Здесь ошибка

  AConnection.Close

Возможно, это из-за провайдера - в примере сделано для файла, лежащего на диске локально, а у меня база на серваке.

И еще вопрос, как создать параметр типа строка?

[Dmitry N]

Здравствуйте.

AConnection.ConnectionString = "PIntegrated Security=SSPI;Bind Flags=0;Data Source=DensTest;Provider=ADsDSOObject;Mode=Read;Location=samila;Encrypt Password=False"

Может "Integrated Security=SSPI"?

[DenDer]

Странный у них хелп.
Он не совпадает с той обьектной моделью, которая у них представлена.

Метод Execute есть только у соединения, созданного через CreateADOConnection

но у этого обьекта уже нет свойства ActiveConnection

Мда, странно однако

[Dmitry N]

Здравствуйте.

Метод Execute есть только у соединения, созданного через CreateADOConnection 
но у этого обьекта уже нет свойства  ActiveConnection 
Мда, странно однако

Хм. Вы так решили, потому что в хелпе это не описано? Метод Execute есть у объекта, возвращаемого методом ADO.CreateCommand. Да и свойство ActiveConnection у объекта CreateADOConnection есть. Это можно проверить методом BuiltIn.IsSupported:

Log.Message(IsSupported(ADO.CreateConnection, "ActiveConnection"))
Log.Message(IsSupported(ADO.CreateCommand, "Execute"))

Судя по информации из топика 'ADO Object', объекты ADO в TestComplete унаследованы от аналогичных дельфовых объектов. То есть, полную документацию по этим объектам можно найти в помощи Delphi.

Да, а вы можете проверить используемый ConnectionString используя какой-нибудь другой способ? Не сказать, что я много пользовался плагином ADO, но проблем у меня с ним не возникало.

[Rost]

Здравствуйте!

В документации написано, что ТС предоставляет возможность работать с АДО.

Вот я пытаюсь записать в базу несколько строк.

А ничего не получается:

Добрый день. Таки да есть проблема. Давайте решать вместе. Проблема тут в параметре. Попробуйте вместо параметра вставить непосредственное значение, все будет нормально.

Помочь не помог, но проблема стала уже.

[Lexuses]

У меня таже проблема, кто то может показать готовый действительно РАБОЧИЙ пример как записать, хоть что то в БАЗУ?????

[objective]

Здравствуйте.
Записать в базу можно вот так

Function TestProc_ADO
  
  Set cmd = ADO.CreateADOCommand
  cmd.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _ 
  "User ID=XXXX;Password=XXXX;Database=TestDB;Data Source=ServerName;" & _
  "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" & _ 
  "Workstation ID=ServerName;Use Encryption for Data=False;"& _
  "Tag with column collation when possible=False"
   
  cmd.CommandText = "INSERT INTO TestTable VALUES ('Test')"
  
  cmd.Execute
End function

Используется sql комманда, так что теперь нужно просто изучить sql query ;)

[AlexP]

Всем привет!

Всегда использовал\использую SqlDataClient, теперь вот решил с ADO "повозиться":

//JScript
Conn = ADO.CreateConnection();
Conn.ConnectionString = "...";
Conn.Open();
var recordSet = Conn.Execute_("select * from Tab where col1 = 1");

На последней строчке получаю:
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."

БД - MS SQL Server 2005
TC - 5.14
В чём может быть проблема?

[Genka]

var recordSet = Conn.Execute_("select * from Tab where col1 = 1");

в этой строчке вы упростили код для простоты восприятия.
Приведите, пожалуйста, полный вариант, а не упрощенный

[AlexP]

в этой строчке вы упростили код для простоты восприятия.
Приведите, пожалуйста, полный вариант, а не упрощенный

Будь добр на ты :)
Как раз последнюю строчку я и не упрощал.

[AlexP]

Ошибка была в первой строчке: ADO.CreateADOConnection

[Genka]

:)

погадаем на кофейной гуще тогда =)

1) поле col1 точно имеет тип int? может там строка? тогда надо вот так

var recordSet = Conn.Execute("select * from Tab where col1 = '1'");

2) еще можно попробовать использовать ADO.CreateADOCommand вместо ADO.CreateConnection

[Genka]

Ошибка была в первой строчке: ADO.CreateADOConnection

хм
клево

[AlexP]

хм
клево

Увы, типичная невнимательность Перепроверил код раз 10, как не заметил?! Радует, что прогулка на свежем воздухе позволила взглянуть на код "другими глазами" :) Но, если на каждый showstopper я буду отвечать часовой прогулкой, то...
Ещё раз спасибо, пункт 2 помог бы

[Умница]

Здравствуйте, Коллеги...
Есть проблема с вызовом хранимой функции в пакете.
TC 4.29
DelphiScript

В ТС функция такая:
function ...(aPARAMNAME_TC: string): string;
var
RecSet, Cmd: OleVariant;
Prm: string;
begin
try
Prm := '';
Prm := ExecuteSQLComand('declare SP_Rez varchar2(50); begin SP_Rez := PKI_StandardParam.GETSTANDARDPARAM(' +
'''' + aPARAMNAME_TC + '''' + '); end;');
except
...
end;
Result := Prm;
end;

ГДЕ:
function ExecuteSQLComand(const aComandText: String): string;
var
AConnection, RecSet, Prm, Cmd: OleVariant;
begin
Cmd := ADO.CreateCommand;
Cmd.ActiveConnection := g_ADOConnectionQA;
Cmd.CommandText := aComandText;
Cmd.CommandType := adCmdText;
RecSet := Cmd.Execute;
RecSet.Open;
Result := RecSet.GetString;
end;

На строчке "Result := RecSet.GetString" получаю такое ругательство: ADODB.Recordset Операция не допускается, если объект закрыт.

Почему он может быть закрыт? Доступ к серверу есть, в sql запрос работает. Что не так?

[tom_13]

На строчке "Result := RecSet.GetString" получаю такое ругательство: ADODB.Recordset Операция не допускается, если объект закрыт.

Почему он может быть закрыт? Доступ к серверу есть, в sql запрос работает. Что не так?

Извените, но я не увидел где вы прсваиваете строку конекта
CMD.ConectionString - без нее ведь комплит не увидит куда конектится

Вот на всяк случай ссылочка сдесь есть строчки конекта к разным базам

[Умница]

На строчке "Result := RecSet.GetString" получаю такое ругательство: ADODB.Recordset Операция не допускается, если объект закрыт.

Почему он может быть закрыт? Доступ к серверу есть, в sql запрос работает. Что не так?

Извените, но я не увидел где вы прсваиваете строку конекта
CMD.ConectionString - без нее ведь комплит не увидит куда конектится

Вот на всяк случай ссылочка сдесь есть строчки конекта к разным базам

Перед запуском любой проц. делается инициализация в виде:

g_ADOConnectionQA := ADO.CreateConnection;
g_ADOConnectionQA.ConnectionString := 'Provider=' + g_Provider + ';Data Source='+ g_DataSource +
';User ID=' + g_UserID + ';Password=' + g_Password + ';';
g_ADOConnectionQA.Open;

Где п_Provider, g_DataSource, g_UserID, g_Password считываются из ini файла.

Потом делается так: Cmd.ActiveConnection := g_ADOConnectionQA;

Ее нужно открывать еще раз?

[Умница]

Пробовала делать так:

function ...(aPARAMNAME_TC: string): string;
var
AConnection, RecSet, Cmd, Prm: OleVariant;
begin
Cmd := ADO.CreateADOStoredProc; // Создаем новый Command object
Cmd.ConnectionString := 'Provider=Microsoft OLE DB Provider for ODBC Drivers;'+
'Data Source=...;User ID=...;'+'Password=...;';

Cmd.ProcedureName := 'PKI_StandardParam.GETSTANDARDPARAM';
Cmd.Parameters.Refresh;

Cmd.Parameters.ParamValues('aParamName') := aPARAMNAME_TC;
Cmd.ExecProc;
Prm := Cmd.Parameters.ParamValues('lParamValue');
result := Cmd.Parameters.ParamValues('RETURN_VALUE');
Log.Message(IntToStr(result) + ' ' + Prm);
end;

Ошибка такая: Parameter 'aParamName' not found

[AlexP]

На строчке "Result := RecSet.GetString" получаю такое ругательство: ADODB.Recordset Операция не допускается, если объект закрыт.

Я получал такую ошибку, но вот припомнить в связи с чем, увы, не могу :(
Попробуйте такой вариант:

//JScript
var AConnection,  RecSet;
AConnection = ADO.CreateADOConnection();
AConnection.ConnectionString = "Provider=SQLOLEDB.1; Persist Security Info=False; User ID = ...; Password = ...; Database = ...; Data Source = ...";
AConnection.LoginPrompt = false;
AConnection.Open(); 
RecSet = AConnection.Execute_(sqltext); 
RecSet.MoveFirst();  
while(!RecSet.EOF)
{
	Log.Message(RecSet.Fields(column_index).Value)
	RecSet.MoveNext();
}
AConnection.Close();