那位高手能举一个数据库调用的例子

fish_yy

那位高手能举一个数据库调用的例子，如已经建立了一个ｏｄｂｃ数据源名为test（access),如何建立连接，执行ｓｑｌ语句，返回结果，谢谢。

fish_yy

请问该种情况应该选中那种协议，我如果仅选择了ｗｅｂ／ｈｔｔｐ协议，提示说vuser_init.c (9): undeclared identifier `InitInfo'
vuser_init.c (9): type error in argument 1 to `lrdfnc_init'; found `pointer to int' expected `const pointer to struct LRD_INIT_INFO'
vuser_init.c (9): undeclared identifier `DBTypeVersion'等等，请帮忙解答一下

happypeach

/* -------------------------------------------------------------------------------
        Script Title       : ODBC Script Example
        Script Description :
                        
                        
        Recorder Version   : 1008
   ------------------------------------------------------------------------------- */

vuser_init()
{
//1        init
        lrd_init(&InitInfo, DBTypeVersion);

//2        open context ：ctx2       
        lrd_open_context(&Ctx2, LRD_DBTYPE_ODBC, 0, 0, 0);
        lrd_db_option(Ctx2, OT_ODBC_OV_ODBC3, 0, 0);


//3         Allocates a connection structure：con2
        lrd_alloc_connection(&Con2, LRD_DBTYPE_ODBC, Ctx2, 0 /*Unused*/, 0);

//4        db option
        lrd_db_option(Con2, OT_ODBC_LOGIN_TIMEOUT, (void FAR const *)15, 0);
        lrd_db_option(Con2, OT_ODBC_SS_QUOTED_IDENT, "OFF", 0);
        lrd_db_option(Con2, OT_ODBC_SQL_PACKET_SIZE, (void FAR const *)4096, 0);
        lrd_db_option(Con2, OT_ODBC_SS_ANSI_NPW, "ON", 0);

//4        open_connection con2.
        lrd_open_connection(&Con2, LRD_DBTYPE_ODBC, "", lr_decrypt("439bcec4e"), "", lr_decrypt("439bcec47d1a6c4f5cb1a621ba48147321e9d548ffd0593b"
        "1ba1c5097e22f8bec49be99e63rrb76f20f5d7a8692187020d432b8e"
        "ed83601279b6ab6bff5233550fec251642bea0eeba743be1a2d3d0e1ca4e"
        "7beb2521f0790f2bf3789af6de1302a15a51d488bf2b4a282f4586f47fa1"
        "af1315c837"), Ctx2, 1, 0);

//5        open_cursor csr2
        lrd_open_cursor(&Csr2, Con2, 0);
       

        lrd_db_option(Csr2, OT_ODBC_CURSOR_UNBOUNDCOLS, 0, 0);
//6        db set. If you open “sql query”, query will set default.Sometimes it will influence the test result.  
        lrd_stmt(Csr2, "set nocount off\r\nset arithabort off\r\nset "
        "concat_null_yields_null off\r\nset ansi_nulls off\r\nset "
        "cursor_close_on_commit off\r\nset ansi_null_dflt_on off\r\n"
        "set implicit_transactions off\r\nset ansi_padding off\r\n"
        "set ansi_warnings off\r\nset quoted_identifier off\r\n", -1, 1 /*Direct exec*/, 0 /*None*/, 0);

/*all above script is to open and connect db.
next script is operation */       

        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
//7        DB: pubs
        lrd_stmt(Csr2, "use pubs\r\n", -1, 1 /*Direct exec*/, 0 /*None*/, 0);
        lrd_db_option(Csr2, OT_ODBC_CURSOR_UNBOUNDCOLS, 0, 0);
        lrd_result_set(Csr2, 0, 0, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);

/*select query
        You can get the transaction "query" time as the  sql execute time.And you can get the transaction
        "getData" time as the  sql data transmission time between db and aplication server.*/

        lr_start_transaction("query");

        lrd_stmt(Csr2, "select * from dbo.authors\r\n", -1, 1 /*Direct exec*/, 0 /*None*/, 0);
        lrd_bind_cols(Csr2, BCInfo_D37, 0);
        lr_end_transaction("query", LR_AUTO);

        lr_start_transaction("getData");

        lrd_fetch(Csr2, -23, 1, 0, PrintRow18, 0);
        GRID(18);
        lr_end_transaction("getData", LR_AUTO);

        lrd_db_option(Csr2, OT_ODBC_CURSOR_UNBOUNDCOLS, 0, 0);
        lrd_result_set(Csr2, 0, 0, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);

//        exec procedure
        lrd_stmt(Csr2, "exec dbo.byroyalty 100\r\n", -1, 1 /*Direct exec*/, 0 /*None*/, 0);
        lrd_bind_cols(Csr2, BCInfo_D39, 0);


        lrd_fetch(Csr2, -10, 1, 0, PrintRow20, 0);
        GRID(20);
       

        lrd_db_option(Csr2, OT_ODBC_CURSOR_UNBOUNDCOLS, 0, 0);
        lrd_result_set(Csr2, 0, 0, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_cancel(0, Csr2, 0 /*Unused*/, 0);
        lrd_result_set(Csr2, 0, 0, 0);
        lrd_db_option(Csr2, OT_ODBC_CURSOR_CLOSE, 0, 0);
        lrd_db_option(Csr2, OT_ODBC_CURSOR_UNBOUNDCOLS, 0, 0);
       
// script end . close cusor、connectio、context       
        lrd_close_cursor(&Csr2, 0);
        lrd_close_connection(&Con2, 0, 0);
        lrd_free_connection(&Con2, 0 /*Unused*/, 0);
        lrd_close_context(&Ctx2, 0, 0);
       
        return 0;

fish_yy

版主帮帮忙啊，查不到相应的资料，求助同行们，呵呵