在silktest用excel实现测试数据驱动

[-] type DB_person is record

               [ ] string name

               [ ] integer age

[-] testcase testselect()

               [ ] STRING sResultFile = "C:\data\SilkeTest.xls"

               [ ] DB_person personS

               [ ] STRING sConnectStringSelect = "DSN=Segue DDA Excel;DBQ={sResultFile}"

               [ ] HANDLE hDBSelect = DB_Connect (sConnectStringSelect)

               [ ] STRING sSQLSelect = "select name,age from [person$]"

               [ ] HANDLE hBufferSelect = DB_ExecuteSQL(hDBSelect, sSQLSelect)

               [-] while(DB_FetchNext(hBufferSelect,person))

                               [ ] print("Name:{person.name};Age:{person.age}")

               [ ] DB_FinishSql (hBufferSelect)

               [ ] DB_Disconnect (hDBSelect)

 [-] testcase testinsert()

               [ ] STRING sResultFile = "C:\data\SilkeTest.xls"

               [ ] STRING sConnectStringInsert = "DSN=Segue DDA Excel;ReadOnly=False;DBQ={sResultFile}"

               [ ] HANDLE hDBInsert = DB_Connect (sConnectStringInsert)

               [ ] STRING sSQLInsert = "insert into [person$] (Name,Age) values ('Zhao Liu',11);"

               [ ] HANDLE hBufferInsert = DB_ExecuteSQL(hDBInsert, sSQLInsert)

               [ ] DB_FinishSql (hBufferInsert)

               [ ] DB_Disconnect (hDBInsert)

[-] testcase testupdate()

               [ ] STRING sResultFile = "C:\data\SilkeTest.xls"

               [ ] STRING sConnectStringUpdate = "DSN=Segue DDA Excel;ReadOnly=False;DBQ={sResultFile}"

               [ ] HANDLE hDBUpdate = DB_Connect (sConnectStringUpdate)

               [ ] STRING sSQLUpdate = "update [person$] set name ='51testing' where name='Zhao Liu'"

               [ ] HANDLE hBufferUpdate = DB_ExecuteSQL(hDBUpdate, sSQLUpdate)

               [ ] DB_FinishSql (hBufferUpdate)

               [ ] DB_Disconnect (hDBUpdate)