VC的ODBC连接

[freeclick]

谁有VC的ODBC连接SQLserver的代码。
不要用工程向导生成。

[yinx]

自己用向导生成一个，然后看看他的源代码，不就行了

[TigerHu]

SQLHENV henv;
SQLHDBC hdbc;
SQLHSTMT hstmt;
SQLRETURN retcode;

/*Allocate environment handle */
retcode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);

if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO) {
/* Set the ODBC version environment attribute */
retcode = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (void*)SQL_OV_ODBC3, 0);

if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO) {
/* Allocate connection handle */
retcode = SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc);

if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO) {
/* Set login timeout to 5 seconds. */
SQLSetConnectAttr(hdbc, (void*)SQL_LOGIN_TIMEOUT, 5, 0);

/* Connect to data source */
retcode = SQLConnect(hdbc, (SQLCHAR*) "Sales", SQL_NTS,
(SQLCHAR*) "JohnS", SQL_NTS,
(SQLCHAR*) "Sesame", SQL_NTS);

if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO){
/* Allocate statement handle */
retcode = SQLAllocHandle(SQL_HANDLE_STMT, hdbc, &hstmt);

if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO) {
/* Process data */
...;
...;
...;

SQLFreeHandle(SQL_HANDLE_STMT, hstmt);
}
SQLDisconnect(hdbc);
}
SQLFreeHandle(SQL_HANDLE_DBC, hdbc);
}
}
SQLFreeHandle(SQL_HANDLE_ENV, henv);

[freeclick]

这段程序为什么行不通

CDatabase myDatabase ;
if(myDatabase.Open("faq",false,false,"ODBC;UID=faq",true)==true)
{
MessageBox("database open ok");
}

CRecordset* myRt = new CRecordset(&myDatabase);

if(myRt->Open(AFX_DB_USE_DEFAULT_TYPE,
_T( "Select id from faqs" ) )==true)
{
MessageBox("record open ok");
}

[tribute]

我前一阵恰好封装了一个(ODBC API的)，给我你的Email，我发给你。

[hgw111]

我以前也一直在奇怪为什么当SQLserver在服务器上时，VC的ODBC的myDatabase.Open函数就是打不开，后来问了很多人还是不行，最后我找到了另一种方法，这样做：
1首先在ODBC数据源管理器上建立数据源，可以手动建立，也可以用代码（API)写，在建立时就指定到服务器上，下面时我写的注册函数,服务器名是pmc-b,系统是98，数据库名是produce，注册的数据源名也是produce
BOOL CIntoApp::Zhuce()
{
CString regkey1 = "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources";
CString regKey = "SOFTWARE\\ODBC\\ODBC.INI\\Produce";
HKEY keyID;
if(RegCreateKey(HKEY_LOCAL_MACHINE, regKey, &keyID)!=ERROR_SUCCESS)
return FALSE;
CString subKey = "Database";
char* aValue = "Produce";
if(RegSetValueEx(keyID, subKey, 0, REG_SZ,(BYTE*)aValue,strlen(aValue)+1)!=ERROR_SUCCESS)
{

return FALSE;
}
subKey = "Driver";
aValue = "C:\\WINDOWS\\SYSTEM\\sqlsrv32.dll";
if(RegSetValueEx(keyID, subKey, 0, REG_SZ,(BYTE*)aValue,strlen(aValue)+1)!=ERROR_SUCCESS)
return FALSE;
subKey = "LastUser";
aValue = "zhanglei";
if(RegSetValueEx(keyID, subKey, 0, REG_SZ,(BYTE*)aValue,strlen(aValue)+1)!=ERROR_SUCCESS)
return FALSE;
subKey = "Server";
aValue = "pmc-b";
if(RegSetValueEx(keyID, subKey, 0, REG_SZ,(BYTE*)aValue,strlen(aValue)+1)!=ERROR_SUCCESS)
return FALSE;
if(RegCreateKey(HKEY_LOCAL_MACHINE, regKey, &keyID)!=ERROR_SUCCESS)
return FALSE;
subKey = "Produce";
aValue = "SQL Server";
if(RegSetValueEx(keyID, subKey, 0, REG_SZ,(BYTE*)aValue,strlen(aValue)+1)!=ERROR_SUCCESS)
return FALSE;
return TRUE;
}
在初始化时运行这段代码就可以不用手动写数据源了。
2再用ODBC的OpenEx函数，不过参数这样写:
CDataBase m_db;
m_db.OpenEx("DSN=Produce;UID=zhanglei;PWD=zhanglei;",CDatabase::noOdbcDialog);
UID是用户名，PWD是密码，DSN是刚才注册的数据源名
这样就可以了，至于你那段代码为什么不行，我一直不懂，那位高手指点一下？

[freeclick]

to ： tribute(xie_xiao)　
我的EMAIL是 ： [e-mail] 谢谢。
TO ： hgw111(hg)　
我试试

[freeclick]

CDatabase myDatabase ;
if(myDatabase.Open("faq",false,false,"ODBC;UID=faq",true)==true)
{
MessageBox("database open ok");
}

CRecordset* myRt = new CRecordset(&myDatabase);

if(myRt->Open(AFX_DB_USE_DEFAULT_TYPE,
_T( "Select id from faqs" ) )==true)
{
MessageBox("record open ok");
}
在说明一下，这段代码的问题是， 数据库打开正常，记录集打开出错的。