ADO在VC里怎么用？！

[flywhc]

我快疯了，MSDN里的ADO例子直接贴到 VS里就编译出错。
当然，能成功的编译例子还是有的，可我不知道都是怎么做到的。

就下面这句：
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename ("EOF", "adoEOF")

放到控制台或者对话框编译这样简单的工程里就立刻报错。

而用ODBC也是出错，很简单的一个查询就提示未绑定字段什么的。

VC里数据库编程不会这么复杂吧，我只需要打开一个DSN，做个查询，执行条SQL这样简单的事情而已，MSDN里的例子竟然要派生出一个复杂的类。 :(

[flywhc]

补充一下：
我就是把下面这句从例子（编译没错）里PASTE到一个控制台或对话框程序里，
#import "c:\program files\common files\system\ado\msado15.dll"no_namespace rename("EOF","adoEOF")

无论贴到哪个文件里都会出错, 比如stdafx.h的末尾，错误提示：
c:\myprogram\adovc\debug\msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned
c:\myprogram\adovc\debug\msado15.tlh(1306) : error C2629: unexpected 'short ('
c:\myprogram\adovc\debug\msado15.tlh(1306) : error C2238: unexpected token(s) preceding ';'

最好能给我个简单的例子，能查询就可以了

[flyspirit]

看一下你的msado15.dll是否在上述路径下。你的编译器是否vc++6.0?

[flywhc]

我自己已经解决了
把1306行删除就好了，真奇怪，那可是VC6自动生成的。

微软的MSDN的例子真是次，都用那么复杂的方法，还有点错误。
我也不白贴，给大家看我自己的程序吧：
void dump_com_error(_com_error &e)
{
CString s,s1;
s.Format("\a\tCode meaning = %s", e.ErrorMessage());
::MessageBox(NULL,s,"Error",MB_OK);
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
s1.Format("\a\tSource = %s\n\a\tDescription = %s\n", (LPCSTR) bstrSource, (LPCSTR) bstrDescription);
::MessageBox(NULL,s1,"error",MB_OK);

}

BOOL CADOVCDlg::OnInitDialog()
{
CDialog::OnInitDialog();

// Add "About..." menu item to system menu.

// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
CString strAboutMenu;
strAboutMenu.LoadString(IDS_ABOUTBOX);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
}

// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon

// TODO: Add extra initialization here
HRESULT hr;
// IADORecordBinding *picRs = NULL;

::CoInitialize(NULL);

_ConnectionPtr pConn;
pConn.CreateInstance((__uuidof(Connection)));
char *dsn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\MyProgram\\ADOVC\\data.mdb";
try{
pConn->Open(dsn,"","makeway",-1);
_RecordsetPtr pRs;
pRs.CreateInstance(__uuidof(Recordset));
pRs->Open("select * from flist", pConn.GetInterfacePtr(),
adOpenStatic, adLockOptimistic, adCmdUnknown);
_variant_t Holder;
Holder = pRs->GetCollect("UserName");
if(Holder.vt!=VT_NULL)
m_edit1.SetWindowText( (char*)_bstr_t(Holder));

Holder = pRs->GetCollect("UIN");
// if(Holder.vt!=VT_NULL)
CString s;
s.Format("%i",Holder.intVal);
m_edit2.SetWindowText(s);
}catch(_com_error &e){
dump_com_error(e);
}

// if (picRs)
// picRs->Release();

CoUninitialize();


return TRUE; // return TRUE unless you set the focus to a control
}

[土豆]

是你自己搞错了吧，用了这么久，我很少碰到VC出错的，VC非常稳定健壮的。