软件测试论坛

 找回密码
 软件测试论坛注册页
查看: 10277|回复: 7

silkperformer 如何实现odbc的连接

  [复制链接]
发表于 2007-2-1 11:37:23 | 显示全部楼层 |阅读模式
软件测试工程师就业班马上开班
code如下:
问题:我在执行sqlselect的时候可以正常运行,我在执行sqlinsert的时候报odbc的错误。

//-------------------------------------------------------------------
// DBMS Benchmark Script Template with Samples
//-------------------------------------------------------------------
// Author :
// Date   :
// History:
//-------------------------------------------------------------------
// Benchmark Description
//-------------------------------------------------------------------
benchmark DBMSBenchmarkName

use "kernel.bdh"
use "Odbc.bdh"
//use "Ora.bdh"
// Definition of global variables
var      
  gAno : number;  
  hEnv, hDbc : number;
  cCursor : cursor;
  
// Random Variables Section
dclrand
  rnUniN            : RndUniN  (1..100);  
  
// Workload Section
dcluser  
  user
    DBUser
  transactions
    Tinit         : 1;
    Tmain         : 10;
// DBMS Transactions Section
dcltrans
  transaction Tinit
  begin
  end Tinit;
  transaction Tmain
  begin
    /* delphi adoquery.connectingstr is:
      Provider=MSDASQL.1ersist Security Info=False;User ID=test;Data Source=testdb;Initial Catalog=D:\sunyu\workspace\silkperformer\odbc\test
     */
    OdbcAlloc(SQL_HANDLE_ENV, hEnv);
   
    OdbcAlloc(SQL_HANDLE_DBC, hDbc, hEnv);
   
    OdbcSetConnectAttr(hDbc, SQL_ATTR_LOGIN_TIMEOUT, 15);
   
   
   
    /* ODbcAlloc--变量
    SQL_HANDLE_ENV. Environment handle.
    SQL_HANDLE_DBC. Connection handle.
    SQL_HANDLE_DESC. Descriptor handle.
     */
    OdbcConnect(hDbc, "DSN=testdb;DBQ=D:\\sunyu\\workspace\\silkperformer\\odbc\\test.mdb;FIL=MSAccessMaxBufferSize=2048ageTimeout=5;");
   
    /*
    OdbcConnect( in hConnection : number,
             in sDataSource : string,
             in sUserName   : string optional,
             in sPassword   : string optional ): boolean;

     */
    OdbcOpen(cCursor, hDbc);
    //OdbcIgnoreError("HYC00");
    //OdbcSetStmtAttr(cCursor, SQL_ATTR_QUERY_TIMEOUT, 15);
    //OdbcSetStmtAttr(cCursor, SQL_ATTR_CURSOR_TYPE, SQL_CURSOR_KEYSET_DRIVEN);
    //OdbcSetStmtAttr(cCursor, SQL_ATTR_CONCURRENCY, SQL_CONCUR_VALUES);
    //OdbcPrepare(cCursor, sqlInsert);
   
     
    /*
    OdbcBind(cCursor, "name", SQL_C_CHAR, 32);
    OdbcBind(cCursor, "age", SQL_C_LONG);
    OdbcSetString(cCursor, "name", "Bob", 1);
    OdbcSetInt(cCursor, "age", 25, 1);
    OdbcSetString(cCursor, "name", "Marcy", 2);
    OdbcSetInt(cCursor, "age", 33, 2);
     */
   
    OdbcExecute(cCursor);
    OdbcClose(cCursor, SQL_DROP);
    OdbcCommit(hDbc);
    OdbcDisconnect(hDbc);
    OdbcFree(hDbc);
    OdbcFree(hEnv);

    // insert here the statements of the transaction
  end Tmain;
// SQL Section
dclsql
  sqlselect:
    select * from persons;
  sqlInsert:
    insert into persons(name,age) values("test",20);
ISTQB
发表于 2007-3-2 16:59:48 | 显示全部楼层
软件测试工程师就业班马上开班
楼主很厉害啊,写了这么多的脚本,佩服。
ISTQB
发表于 2007-3-6 17:02:58 | 显示全部楼层
软件测试工程师就业班马上开班
写的东西不错,有时间希望能和你多交流。。。。
发表于 2007-3-30 16:07:50 | 显示全部楼层
软件测试工程师就业班马上开班
现在用这些工具的人挺多的    borland的不错
发表于 2007-4-6 15:10:35 | 显示全部楼层
发表于 2008-4-23 18:28:47 | 显示全部楼层
软件测试工程师就业班马上开班
多谢.
发表于 2010-9-4 01:26:58 | 显示全部楼层
不知道该说什么,总之顶下吧,继续
发表于 2013-5-21 15:28:48 | 显示全部楼层
先顶后看~~












百度 搜狗竞价开户:博彩  文凭 兼职 贷款 保健品 成人用品 棋牌开户 百度高危开户 百度高返点开户  百度低价开户  搜狗高危开户 QQ:458808923

本版积分规则

Archiver|手机版|小黑屋|领测软件测试网 ( 京ICP备10010545号-5 )

GMT+8, 2020-1-26 00:54 , Processed in 0.356597 second(s), 11 queries , Xcache On.

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表