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

Фотография

QTP & mySql


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

#1 vermis

vermis

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

  • Members
  • Pip
  • 24 сообщений

Отправлено 11 января 2005 - 11:41

Мне нужно получить доступ к базе mySql, выполнить запросы, получить данные. Подскажите пожалуйста как я могу єто проделать в QTP? Спасибо!
  • 0

#2 Mike

Mike

    Консультант

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

Отправлено 11 января 2005 - 11:55

Так как QTP использует обычный VBScript, то с БД проще всего работать используя стандарные майкрософтовские технологии - ADO в связке с ODBC. За подробностями лучше всего лезть на msdn :).

Вот простейший примерчик использования ADO+ODBC для выполнения запроса на Oracle (без получения резалтсета):

Function Oracle_Exec (UName,UPwd,Source,sql)
Dim  CNN,res

	Set CNN = CreateObject("Adodb.Connection")
	res = true
	With CNN
  err.clear
  On Error Resume Next
  .ConnectionString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID="+UName+";Password="+UPwd+";Data Source="+Source
  .Open
  If err.number <> 0 Then
  	ReportEventEx micWarning, "Oracle_Exec", "Oracle connection failed. Err number"+err.Number+":"+err.Description
  	err.clear
  	Oracle_Exec = false
  	Exit Function
  End If
	End With

	Set RS = CNN.Execute(sql)
	If err.number <> 0 Then
  	ReportEvent micFail, "Oracle_Exec", "SQL Error appeared.Err number"+err.Number+":"+err.Description
  	err.clear
  	res = false
	End If
	RS.Close
	CNN.Close
	On Error Goto 0
	Oracle_exec = res
End Function


Думаю, что с MySQL всё должно быть очень похоже, только ConnectionString прийдётся поправить.

Кроме этого, в QTP есть встроенные средства для создания чек-пойнтов результатов запросов к БД. Работает тоже через ODBC, но я пока этой фичей не пользовался.
  • 0
Best regards,
Майк.


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

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