5,935
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lyhoo163 2014-10-12
- 打赏
- 举报
关注。。。。
wh1965 2014-10-09
- 打赏
- 举报
楼主 问 的 是 “连接池” 的用法，回答的 都是怎么连接
lynmison2012 2014-09-24
- 打赏
- 举报
我做了层简单封装，跟ado差不多，如下：
type
TSMDBParam=record
dbType : TDbType;
server : string;
account : string;
password: string;
dbName : string;
port : integer;
end;
function TSMUniDriver.Conntect(): boolean;
begin
Disconnect();
case FDBParam.dbType of
dtMySQL : FConnection.ProviderName := 'MySQL';
dtMSSQL : FConnection.ProviderName := 'SQL Server';
dtSqlite: FConnection.ProviderName := 'SQLite';
end;
FConnection.SpecificOptions.Values['UseUnicode'] := 'true';
FConnection.SpecificOptions.Values['Direct'] := 'false';
FConnection.Username := FDBParam.account;
FConnection.Password := FDBParam.password;
FConnection.Database := FDBParam.dbName;
FConnection.Server := FDBParam.server;
FConnection.Port := FDBParam.port;
try
FConnection.Connect;
result := FConnection.Connected;
except
result := false;
end;
end;
Liyp92 2014-09-12
- 打赏
- 举报
用法和ADO一样的吧
What23456jp 2014-09-12
- 打赏
- 举报
Database属性里输入数据库路径加上数据库文件名即可，同时需要Query和DataSource
