delphi连接数据库代码

以前没有接触过delphi，这次公司让维护3DMES，前辈用delphi写的东东，没办法，只好啃了。

先说写简单点的，也是最基本的，连接数据库

1.delphi连接SQL2005

　　先拖一个ado连接，这个是最基本的了，然后就在页面建立的时候添加代码

 

ADO.Connected:=false;
ADO.ConnectionString:='Provider=SQLOLEDB.1;Password=..;Persist Security Info=True;User ID=sa;Initial Catalog=..;Data Source=..;';  //数据库连接字串
try
    ADO.Connected:=true;
except
    ADO.Connected:=false;
    memo1.Text :='SQL DataBase Connected failed...!';  //显示错误信息
    memo1.Font.Color := clRed;                     //字体显示为红色
    exit;
end;

 

 

2.delphi连接access

　　一样，先拖一个ado

 

ADO.Connected:=false;
ADO.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";DataSource=db1.mdb;Persist Security Info=True';
try
   ADO.Connected:=true
except
   ADO.Connected:=false;
   MessageBOx(Handle,PChar('DataBase Connectfalse!'),'ERROR',MB_ICONWARNING+MB_OK);
   exit;
end;

 

 

暂时先放两个，其他的以后碰上了再补充