急！高分求救数据库连接！！

[AndyFunction]

小妹第一次用C++写连接数据库的程序，一时不知怎么入手，请各位大哥赐教！！
具体我想写的是用ODBC与ORACLE数据库连接，那位大哥能给我一个数据库连接的类，或那里有下载的！！谢谢各位！！

[铖邑]

用BDE或者ADO连接，都有现成的控件啊，还用什么其它的类库吗？

[laisf]

用ADO啊。比如:
TADOConnection * ADOConnection1 = new TADOConnection(NULL);
sConnectString = "Provider=OraOLEDB.Oracle.1";
sConnectString += ";Password="+密码+";Persist Security Info=True;User ID="+数据库用户+";Data Source="+数据库别名;
ADOConnection1->ConnectionString = sConnectString;
try
{
ADOConnection1->Open();
}
catch(...)
{
ShowMessage("无法连接数据库");
delete ADOConnection1;
ADOConnection1=NULL;
return;
}

[krakan]

用ADOConnection

[frankchangzi]

cb有现成的控件了

[特招]

用ADOConnection
添加一个TADOConnection控件(在ADO标签页)
在ADOConnection1的属性页点击ConnectionString右边的 ...
然后弹出窗体 点Build...
弹出另一个窗体
在"提供程序"标签页选Microsoft OLE DB Provider for Oracle
"连接"标签页 输入服务器名 用户名 密码 要连接的数据库
点击 测试连接 按钮
如果连接成功会给出提示
成功后 一路回车即可
最后要将 ADOConnection1的Connected属性设置为true
就可以了

[stonewater]

用TADOConnection ，你最好找本书看看

[xrdsheng]

(ODBC连接可用上的类）TDatabase\TQuery\TDataSource\TTable

[hanaichun]

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;DSN=TestDatabase", "sa", "", -1
Dim i As Long
Dim id As Long
Dim value As Single
Dim rst As New Recordset
Set rst = New Recordset
rst.Open "select * from 模拟量变化历史表", db, adOpenDynamic, adLockOptimistic
rst.MoveFirst
For i = 0 To rst.RecordCount - 1
id = rst.Fields("ID")
value=rst.Fields(“VALUE”)
rst.MoveNext
Next i
rst.Close
Set rst = Nothing
db.Close

[yiminggw]

k,还是女生贴比较热

[落伍的小农]

用ADO和BDE就行了，具体的你看下就知道了！