شفرة لعل الله يبارك بها

1:  void CADOMFC1View::OnOdbcSimple() 
2:  { 
3:    RETCODE retcode;
4:    HENV henviron; 
5:    HDBC hdbconn; 
6:    HSTMT hstmt;
7:    char szCustFirstName[50]; 
8:    SDWORD sdOutputDataLen;
9:    unsigned char connStrOut[256];
10:
11:    retcode = ::SQLAllocEnv(&henviron);
12:    if (retcode == SQL_SUCCESS)
13:    {
14:      retcode = ::SQLAllocConnect(henviron, &hdbconn);
15:      if (retcode == SQL_SUCCESS)
16:      {
17:        retcode = ::SQLDriverConnect(hdbconn, 0,
18:          (unsigned char *)"DSN=OrdersDb",
19:          SQL_NTS, connStrOut, 256, NULL,
20:          SQL_DRIVER_NOPROMPT);
21:        if (retcode == SQL_SUCCESS)
22:        {
23:          retcode = ::SQLAllocStmt(hdbconn, &hstmt);
24:          if (retcode == SQL_SUCCESS)
25:          {
26:            retcode = ::SQLExecDirect(hstmt,
27:              (unsigned char *)
28:              "SELECT CustFirstName FROM Customers",
29:              SQL_NTS);
30:
31:            for (retcode = ::SQLFetch(hstmt);
32:              retcode == SQL_SUCCESS;
33:              retcode = SQLFetch(hstmt))
34:            {
35:              ::SQLGetData(hstmt, 1, SQL_C_CHAR,
36:                szCustFirstName, 50,
37:                &sdOutputDataLen);
38:              ::MessageBox(NULL, szCustFirstName,
39:                "Simple ODBC", MB_OK);
40:            }
41:            ::SQLFreeStmt(hstmt, SQL_DROP);
42:          }
43:          ::SQLDisconnect(hdbconn);
44:        }
45:        ::SQLFreeConnect(hdbconn);
46:      }
47:      ::SQLFreeEnv(henviron);
48:    }
49:  }

[عدلت بواسطة هاني الأتاسي ت:28-05-2001 س: 02:41 PM]