Перейти к содержимому

Фотография

Qtp 9.0> Работа С Базами Данных.


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 4

#1 Lich

Lich

    Новый участник

  • Members
  • Pip
  • 5 сообщений
  • ФИО:Кирсанов Сергей Васильевич

Отправлено 24 июля 2007 - 07:02

Уважаемые специалисты по автоматизированному тестированию,

Есть такой вопрос:
Возможно ли в QTP 9.0 прямо в теле Action динамически обращаться к базе данных, считывать и передавать данные в базу (аналогично технологиям доступа к данным в языках программирования высокого уровня) ?
Если можно, то укажите пожалуйста ссылки на ресурсы, где можно ознакомиться подробнее с тем или иным способом.
Спасибо.
  • 0

#2 Mike

Mike

    Консультант

  • Members
  • PipPipPipPipPipPip
  • 1 079 сообщений
  • Город:Москва

Отправлено 24 июля 2007 - 07:35

Для этого обычно используют ADO (Microsoft ActiveX Data Objects) - документация в MSDN. Также примеры есть в CodeSamplesPlus (Посмотрите среди документации, которая идёт с QTP - то есть, "Start>Program Files>Mercury Interactive>Quick Test Proffesional>Documentation>QuickTest Proffesional Code Samples Plus">Using Microsoft Objects>Using Database Functions
  • 0
Best regards,
Майк.

#3 Mike

Mike

    Консультант

  • Members
  • PipPipPipPipPipPip
  • 1 079 сообщений
  • Город:Москва

Отправлено 24 июля 2007 - 07:35

Извиняюсь, случайно продублировал сообщение.
  • 0
Best regards,
Майк.

#4 M.J.K

M.J.K

    Новый участник

  • Members
  • Pip
  • 42 сообщений
  • ФИО:Трушков Юрий

Отправлено 24 июля 2007 - 07:53

Уважаемые специалисты по автоматизированному тестированию,

Есть такой вопрос:
Возможно ли в QTP 9.0 прямо в теле Action динамически обращаться к базе данных, считывать и передавать данные в базу (аналогично технологиям доступа к данным в языках программирования высокого уровня) ?
Если можно, то укажите пожалуйста ссылки на ресурсы, где можно ознакомиться подробнее с тем или иным способом.
Спасибо.

Можно, пример:
Set ConSession = CreateObject("Adodb.Connection")
	With ConSession
		err.clear
		On Error Resume Next
		.ConnectionString = "Provider=" & UProvider & ";Persist Security Info=False;User ID="+UName+";Password="+UPwd+";Data Source="+USource
		.Open
		If err.number <> 0 Then
			ReportEventEx micWarning, "SQL Execution", "Connection failed. Err number is: "+err.Number+"; description "+err.Description
			err.clear
			Exit Function
		End If
	End With

	Set RecordSet = ConSession.Execute(USQL)
	If err.number <> 0 Then
			ReportEventEx micFail, "SQL Execution", "SQL Error appeared. Error number is: "+err.Number+"; description is: "+err.Description
			err.clear
	End If
	...
	' useing recordset
	...
	RecordSet.Close
	ConSession.Close
	On Error Goto 0

А так, Mike прав - примеры в MSDN и QTP Help
  • 0
my Изображение
--------------------
Желай невозможного - достигнешь максимума
(Наполеон)

#5 Lich

Lich

    Новый участник

  • Members
  • Pip
  • 5 сообщений
  • ФИО:Кирсанов Сергей Васильевич

Отправлено 24 июля 2007 - 14:48

Спасибо всем кто откликнулся за ценную информацию
  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных