delphi5就麻烦了，给你看一些东东巴，你看看，应该有用
要先uses ComOBJ;
const{ 一些常量声明，详细请参见adovbs.inc }
{ ---- CommandType的常量说明 ---- }
adCmdUnknown = 0008;//未知,需要系统来判断,速度慢,为缺省值
adCmdText = 0001;//命令语句如SQL语句
adCmdTable = 0002;//数据表名称
adCmdStoredProc = 0004;//存储过程名称
{ ---- CursorType的常量说明 ---- }
adOpenForwardOnly = 0;//只能由前向后单向访问,为缺省值
adOpenKeyset = 1;//可见其他用户对数据的修改, 但对其它用户的增加和删除不可见
adOpenDynamic = 2;//其他用户对数据的增加修改和删除均可见
adOpenStatic = 3;//其他用户对数据的增加修改和删除均不可见
{---- LockType的常量说明 ---}
adLockReadOnly = 1;//只读,为缺省值
adLockPessimistic = 2;//在修改时,按单个记录锁定
adLockOptimistic = 3;//在修改后更新时,按单个记录锁定
adLockBatchOptimistic = 4;//在成批更新时记录锁定
var
Form1: TForm1;
AConnection, ARecordSet : variant;
h_node,cur_node: TTreeNode;
下面是我访问一个access数据库并把用户账号生成一个treeview
h_node:= TreeView1.Items.Add(nil, '用户账号');
h_node.ImageIndex:= 0;
h_node.SelectedIndex:= 0;
{创建一个临时的ODBC数据源,
指向一个MsAccess数据库,
并利用此DSN建立一个数据库连接}
AConnection := CreateOleObject('ADODB.Connection');
AConnection.Open('Driver={Microsoft Access Driver (*.mdb)};DBQ='+appPath+'accounts');
ARecordSet := CreateOleObject('ADODB.RecordSet');
ARecordSet.Open('accinfo',AConnection,adOpenStatic,adLockOptimistic,adCmdTable);
if ARecordSet.RecordCount= 0 then
exit;
while not ARecordSet.EOF do
begin
cur_node:= TreeView1.Items.AddChild(h_node, ARecordSet.Fields[0].Value);
cur_node.ImageIndex:= 1;
cur_node.SelectedIndex:= 1;
ARecordSet.MoveNext
end;
