如何通过代码连接数据库？

Question

因为一个程序需要一个简单的数据库支持，
procedure TEnter_Form.FormCreate(Sender: TObject);
var
  DLYB_Q:TQuery;
begin
  DataPath:=ExtractFilePath(Application.ExeName)+'Data';
  DLYB_Q:=TQuery.Create(nil);
  DLYB_Q.DatabaseName:=DataPath;
  DLYB_Q.SQL.Clear;
  DLYB_Q.SQL.Add('Select Name From DLYB');可是运行了提示路径无效，有没有什么办法不用ODBC数据源或者BDE注册就实现以上代码功能的啊？

Answer 1

楼主用的是什么数据库？
Access吗？还是其它？不过建议放弃使用BDE，因为Borland已经不再对BDE技术提供升级了所以如果是在MS平台上，建议还是使用ADO

Answer 2

楼主连数据库的方式也太简单了吧？呵呵
两个建议：
1：用ado连
2：没有必要自己创建，放在窗体上就是了

Answer 3

这段话自己都不知道回了几十次了：
var constr:string;
    constr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
    constr:=constr+Edit1.text;//此处写登陆用户名
    constr:=constr+';PASSWORD=';
    constr:=constr+Edit2.text;//此处写登陆密码
    constr:=constr+';Initial Catalog=';
    constr:=constr+Edit3.text;//此处写要进入的数据库 如：tempdb
    constr:=constr+';Data Source='+Edit4.text;//此处写数据源 可以写机器名，也可以是ip地址
    ADOConnection1.Connected:=false;
    ADOConnection1.LoginPrompt:=false;
    ADOConnection1.ConnectionString:=constr;
    ADOQuery1.Connection:=ADOConnection1;
    ADOQuery1.SQL.Add('Select Name From DLYB');
    ADOQuery1.open;

Answer 4

其实是一个棋的游戏，数据库最后就是用来统计一个哪个用户赢多少输多少，因为非常简单，所以不想用ADO，VC里面可以使用DAO直接将数据库加载在资源文件里，DELPHI有没有类似的方法啊？我的意思是数据库实现越简单越好，能简单的用WHERE语句就可以了，最好能不用别的DBMS，请大家帮帮忙，谢了。