您所在位置：主题：一段简单的自动分辨数据库类型的代码（ACCESS+SQL）
punkrocker
[专家分：720] 发布于 2007-07-21 12:04:00
if DBType='Access' then
ADOConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="'+Password+'";Data Source='''+DBName+''';Persist Security Info=True'
else if DBType='SqlServer' then
ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;'+ 'User ID='+user+';Initial Catalog=' + DBName + ';Data Source=' + dataSource;
ADOConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="'+Password+'";Data Source='''+DBName+''';Persist Security Info=True'
else if DBType='SqlServer' then
ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;'+ 'User ID='+user+';Initial Catalog=' + DBName + ';Data Source=' + dataSource;