例：データベースの扱い方

//会員番号12345のクラブ会員のフルネームを表示します

put 12345 into desiredMemNum

set clubDB to (type:"odbc", DSN:"ClubData", user:"root", password:"")

put table "Members" of clubDB into memberTable

set member to the record of memberTable where memberNumber is desiredMemNum

put "Name: " & member's firstName && member's lastName

// データベースからのレコードをフォームの入力に使用します

set myDB to (type:"odbc", DSN:"mySQLDB", user:"root", password:"password123")

put the number of records in table "users" in myDB into numRecords // このテーブルの総レコード数を変数numRecordsに格納します

Log "We will be entering"&&numRecords&&"records into the system." // 利用可能なレコード数を宣言するメッセージをログします

put table "users" of myDB into users

put the records of users into credentials // テーブルからレコードそのものを取り出してcredentialsという変数に格納します

Log "Entering the following new users: "&credentials // レコードそのものを含んだメッセージをログします

repeat with each item user of credentials // credentialsの各レコードに基づいて繰り返しを行います

WaitFor 10, "Form_SubmitButton"

Click "Form_UsernameField"

typetext user.username // 現在のレコードのusernameプロパティを参照し、その値をSUTに入力します

Click "Form_PasswordField"

typetext user.password

Click "Form_SubmitButton"

Click "Form_AddNewUser"

end repeat

 

// RunWithNewResultsの結果をデータベーステーブルに書き込みます

set myDB to (type:"odbc", DSN:"mySQLDB", user:"carrie", password:"password123")

RunWithNewResults "CreateWorkspaceTestCase"

put the result into myResult // the resultプロパティリストを変数に格納し、後で各種プロパティを参照できるようにします

set newResult to (ExecutionTime:myResult. RunDate,TestName:"CreateWorkspaceTestCase",Result:myResult.status) // 「the result」を基に新しいレコードを構築します。ExecutionTime、TestNameおよびResultはデータベーステーブルのカラム名です

Add record newResult to table "results" of myDB // この新しいレコードをテーブルに追加します

// カラム名にアイテムキーを使用します

set dbResults to { {name:"Roger", age:17}, {name:"Arabella", age:32}, {name:"Francis", age:29}, {name:"Balthazar", age:92},

}

put the keys of item 1 of dbResults into columnNames

put columnNames

put columnNames joined by comma into header

put header & return into csvContents

 

repeat with each record of dbResults

repeat with each key in columnNames

if the counter > 1 then put comma after csvContents

put record.(key) after csvContents

end repeat

put return after csvContents

end repeat

put csvContents

// カラム名にアイテムキーを使用します（前の例の短縮版）

set dbResults to { {name:"Roger", age:17}, {name:"Arabella", age:32}, {name:"Francis", age:29}, {name:"Balthazar", age:92},

}

put the keys of item 1 of dbResults joined by comma & return into csvContents

repeat with each record of dbResults

put values(record) joined by comma & return after csvContents

end repeat

put csvContents