Database Driving implementation
来源:互联网 发布:windows系统官方下载 编辑:程序博客网 时间:2024/05/21 05:38
Dim MyDriver
Sub Main
Dim SQLStatement
Dim ConnectionString
' Start Notepad
TestedApps.Notepad.Run
' Limit to 10 records
SQLStatement = "SELECT TOP 10 OrderID, CustomerID, EmployeeID FROM Orders"
ConnectionString = "Provider=SQLOLEDB.1;Password=sa;" &_
"Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=CHENNENGJI"
' Create Driver
Set MyDriver = DDT.ADODriver(ConnectionString,SQLStatement)
' Call Method 10 times
MyDriver.DriveMethod("Unit1.Test1")
End Sub
Sub Test1
Dim p1
Dim w1
Dim w2
Dim KeyStr
Set p1 = Sys.Process("Notepad")
Set w1 = p1.Window("Notepad", "*")
Set w2 = w1.Window("Edit")
w2.VScroll.Pos = 0
' Create String with Customer Information
KeyStr = MyDriver.Value("OrderID")& "," & _
MyDriver.Value("CustomerID")& "," & _
MyDriver.Value("EmployeeID")& "[Enter]"
Call w2.Keys( KeyStr)
End Sub
- Database Driving implementation
- Database System Implementation
- Database System Implementation ch2
- SQL Server 2000 Database Design and Implementation
- Reading Notes of Database System Implementation
- Database system implementation 名词,缩略词
- Pro SQL Server 2008 Relational Database Design and Implementation
- Implementation
- implementation
- Driving On CruiseControl
- POJ 2679 Adventurous Driving
- ACdream P1242 Driving Straight
- Sicily 14517. Eco-driving
- [hackerrank]Self-Driving Bus
- BlueROV-9: Driving Control
- self driving 信息整理
- 《Vision based autonomous driving
- Autonomous driving application
- 今天开始java
- 在自己的应用中设置Locale
- 为什么C++编译器不能支持对模板的分离式编译
- visual studio.net2003安装无限重启问题
- 如何判断一个栈的增长方向
- Database Driving implementation
- 模式对话框Dialog背景的透明度&黑暗度设置方法
- 关于折行显示的问题
- 逻辑与和条件与的区别(&&和&)
- 小技巧: Code Completion-方法提示
- 透析回调函数
- Oracle 非系统表空间'noncrit ' 无法使用系统回退段
- ubuntu9.04下编译android源码遇到的问题
- 初学jQuery参考