using Apewer.Internals; #if NETFRAMEWORK using System; using System.Collections.Generic; using System.Data; using System.Data.OleDb; using System.IO; using System.Text; using static Apewer.Source.SourceUtility; #endif namespace Apewer.Source { /// 连接 Access 数据库的客户端。 public abstract partial class Access { /// 尝试解析 Access 文件的密码。 /// 当操作系统启用随机化内存分配时,此方法可能会产生异常。 public static string[] ParsePassword(string path) => AccessHelper.GetPassword(path); /// 数据库文件路径。 public virtual string Path { get; protected set; } } #if NETFRAMEWORK public abstract partial class Access : DbClient { #region 连接 OleDbConnection _conn = null; string _connstr = null; /// 构造函数。 internal Access(string connectrionString, Timeout timeout = null) : base(timeout) { _connstr = connectrionString; } /// 使用连接字符串创建数据库连接实例。 /// /// public Access(IDbConnection connection, Timeout timeout = null) : base(timeout) { if (connection == null) throw new ArgumentNullException(nameof(connection), "指定的连接无效。"); var conn = connection as OleDbConnection; if (conn == null) throw new ArgumentException(nameof(connection), "指定的连接不是支持的类型。"); _conn = conn; _connstr = conn.ConnectionString; } #endregion #region public /// public override string[] ColumnNames(string tableName) { if (_conn == null) _conn = new OleDbConnection(_connstr); // OleDbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" }); var table = _conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, new object[] { null, null, tableName.ToString(), null }); using (var query = new Query(table)) { var names = new ArrayBuilder(); for (var i = 0; i < query.Rows; i++) { names.Add(query.Text(i, "COLUMN_NAME")); } return names.Export(); } } /// public override string[] StoreNames() => throw new InvalidOperationException(); /// public override string[] TableNames() { // QueryStrings("select name from msysobjects where type=1 and flags = 0"); Connect(); var schema = _conn.GetSchema("Tables"); using (var query = new Query(schema)) { var json = query.ToJson(); var names = new List(); for (var i = 0; i < query.Rows; i++) { var type = query.Text(i, "TABLE_TYPE"); var name = query.Text(i, "TABLE_NAME"); switch (type) { case "ACCESS TABLE": case "SYSTEM TABLE": break; case "TABLE": names.Add(name); break; } } names.Sort(); return names.ToArray(); } } /// public override string Insert(object record, string table = null, bool adjust = true) { if (record == null) return "参数无效。"; if (adjust) FixProperties(record); var structure = TableStructure.Parse(record.GetType()); if (structure == null) return "无法解析记录模型。"; if (string.IsNullOrEmpty(table)) table = structure.TableName; if (string.IsNullOrEmpty(table)) return "表名称无效。"; // 排除字段。 var excluded = new List(); foreach (var ca in structure.Columns) { // 排除不使用 ORM 的属性。 if (ca.Independent || ca.Incremental) excluded.Add(ca.Field); } var ps = structure.CreateParameters(record, Parameter, excluded); var psc = ps.Length; if (psc < 1) return "数据模型不包含字段。"; var names = new List(psc); var values = new List(psc); foreach (var column in ps) { //names.Add(TextGenerator.Merge("[", column, "]")); names.Add(TextUtility.Merge(column)); values.Add("@" + column); } var sb = new StringBuilder(); sb.Append("insert into ", table, "(", string.Join(", ", names.ToArray()), ") "); sb.Append("values(", string.Join(", ", values.ToArray()), "); "); var sql = sb.ToString(); var execute = Execute(sql, ps, false); if (execute.Success) return TextUtility.Empty; return execute.Message; } /// public override string Update(IRecord record, string table = null, bool adjust = true) { if (record == null) return "参数无效。"; if (adjust) { FixProperties(record); SetUpdated(record); } var structure = TableStructure.Parse(record.GetType()); if (structure == null) return "无法解析记录模型。"; if (structure.Independent) return "无法更新带有 Independent 特性的模型。"; if (string.IsNullOrEmpty(table)) table = structure.TableName; if (string.IsNullOrEmpty(table)) return "表名称无效。"; // 排除字段。 var excluded = new List(); if (structure.Key != null) excluded.Add(structure.Key.Field); foreach (var ca in structure.Columns) { // 排除不使用 ORM 的属性、自增属性和主键属性。 if (ca.Independent || ca.Incremental || ca.PrimaryKey || ca.NoUpdate) excluded.Add(ca.Field); } var ps = structure.CreateParameters(record, Parameter, excluded); var psc = ps.Length; if (psc < 1) return "数据模型不包含字段。"; var items = new List(); foreach (var p in ps) { var pn = p.ParameterName; items.Add(TextUtility.Merge("[", pn, "] = @", pn)); } var key = record.Key.SafeKey(); var sql = $"update {table} set {string.Join(", ", items.ToArray())} where [{structure.Key.Field}]='{key}'"; var execute = Execute(sql, ps, false); if (execute.Success) return TextUtility.Empty; return execute.Message; } #endregion #region protected /// public override string ConnectionString { get => _connstr; } /// protected override IDbConnection GetConnection() { if (_conn == null) _conn = new OleDbConnection(_connstr); return _conn; } /// protected override IDataAdapter CreateDataAdapter(IDbCommand command) => new OleDbDataAdapter((OleDbCommand)command); /// protected override IDataParameter CreateParameter() => new OleDbParameter(); /// protected override string Initialize(TableStructure structure, string table) { var model = structure.Model; if (table.IsEmpty()) table = structure.TableName; // 检查现存表。 var exists = false; var tables = TableNames(); if (tables.Length > 0) { var lower = table.ToLower(); foreach (var tn in tables) { if (TextUtility.IsEmpty(tn)) continue; if (tn.ToLower() == lower) { exists = true; break; } } } if (exists) { // 获取已存在的列名。 var columns = ColumnNames(table); if (columns.Length > 0) { var lower = new List(); foreach (var column in columns) { if (TextUtility.IsBlank(column)) continue; lower.Add(column.ToLower()); } columns = lower.ToArray(); } // 增加列。 foreach (var column in structure.Columns) { // 检查 Independent 特性。 if (structure.Independent && column.Independent) continue; // 去重。 var lower = column.Field.ToLower(); if (columns.Contains(lower)) continue; var type = Declaration(column); if (string.IsNullOrEmpty(type)) return TextUtility.Merge("类型 ", column.Type.ToString(), " 不受支持。"); var sql = TextUtility.Merge("alter table [", table, "] add ", type, "; "); var execute = Execute(sql, null, false); if (execute.Success == false) return execute.Message; } return TextUtility.Empty; } else { var sqlcolumns = new List(); foreach (var column in structure.Columns) { // 检查 Independent 特性。 if (structure.Independent && column.Independent) continue; var type = Declaration(column); if (!column.Independent) { if (column.PrimaryKey) type = type + " primary key"; if (column.Incremental) type += " identity"; } if (string.IsNullOrEmpty(type)) return TextUtility.Merge("类型 ", column.Type.ToString(), " 不受支持。"); sqlcolumns.Add(type); } if (sqlcolumns.Count < 1) return $"无法对类型 {model.FullName} 创建表:没有定义任何字段。"; var sql = TextUtility.Merge("create table [", table, "](", string.Join(", ", sqlcolumns.ToArray()), "); "); var execute = Execute(sql, null, false); if (execute.Success) return TextUtility.Empty; return execute.Message; } } /// protected override string Keys(string tableName, string keyField, string flagField, long flagValue) { if (flagValue == 0) return $"select [{keyField}] from [{tableName}]"; else return $"select [{keyField}] from [{tableName}] where [{flagField}] = {flagValue}"; } /// protected override string Get(string tableName, string keyField, string keyValue, string flagField, long flagValue) { if (flagValue == 0) return $"select top 1 * from [{tableName}] where [{keyField}] = '{keyValue}'"; else return $"select top 1 * from [{tableName}] where [{keyField}] = '{keyValue}' and [{flagField}] = {flagValue}"; } /// protected override string List(string tableName, string flagField, long flagValue) { if (flagValue == 0) return $"select * from [{tableName}]"; else return $"select * from [{tableName}] where [{flagField}] = {flagValue}"; } #endregion #region Parameter /// 创建参数。 /// /// static OleDbParameter Parameter(Parameter parameter) { if (parameter == null) throw new InvalidOperationException("参数无效。"); return Parameter(parameter.Name, parameter.Type, parameter.Size, parameter.Value); } /// 创建参数。 public static OleDbParameter Parameter(string name, ColumnType type, int size, object value) { var vname = TextUtility.Trim(name); if (TextUtility.IsBlank(vname)) return null; var vtype = OleDbType.BigInt; switch (type) { case ColumnType.Boolean: vtype = OleDbType.Boolean; break; case ColumnType.Bytes: vtype = OleDbType.LongVarBinary; break; case ColumnType.Integer: vtype = OleDbType.Integer; break; case ColumnType.Float: vtype = OleDbType.Double; break; case ColumnType.DateTime: vtype = OleDbType.Date; break; case ColumnType.VarChar: case ColumnType.VarChar191: case ColumnType.VarCharMax: vtype = OleDbType.VarChar; break; case ColumnType.NVarChar: case ColumnType.NVarChar191: case ColumnType.NVarCharMax: vtype = OleDbType.VarWChar; break; case ColumnType.Text: vtype = OleDbType.LongVarChar; break; case ColumnType.NText: vtype = OleDbType.LongVarWChar; break; default: throw new InvalidOperationException(TextUtility.Merge("类型 ", type.ToString(), " 不受支持。")); } var vsize = size; switch (type) { case ColumnType.VarChar: vsize = NumberUtility.Restrict(vsize, 0, 8000); break; case ColumnType.NVarChar: vsize = NumberUtility.Restrict(vsize, 0, 4000); break; case ColumnType.VarChar191: case ColumnType.NVarChar191: vsize = NumberUtility.Restrict(vsize, 0, 191); break; default: vsize = 0; break; } var vvalue = value; if (vvalue is string && vvalue != null && vsize > 0) { vvalue = TextUtility.Left((string)vvalue, vsize); } var parameter = new OleDbParameter(); parameter.ParameterName = vname; parameter.OleDbType = vtype; parameter.Value = vvalue; if (vsize > 0) parameter.Size = vsize; return parameter; } /// 创建参数。 public static IDbDataParameter CreateParameter(String field, DbType type, Int32 size, Object value) { var p = new OleDbParameter(); p.ParameterName = field; p.DbType = type; p.Size = size; p.Value = value; return p; } /// 创建参数。 public static IDbDataParameter CreateParameter(String field, DbType type, Object value) { var p = new OleDbParameter(); p.ParameterName = field; p.DbType = type; p.Value = value; return p; } #endregion #region protected /// 获取或设置连接字符串。 /// internal protected static string GenerateCS(string provider, string path, string pass, string jo) { if (!File.Exists(path)) throw new FileNotFoundException("文件不存在。", path); var sb = new StringBuilder(); sb.Append("provider=", provider, "; "); if (!string.IsNullOrEmpty(path)) sb.Append("data source=", path, "; "); if (string.IsNullOrEmpty(pass)) sb.Append("persist security info=false; "); else sb.Append("jet oledb:database password=\"", pass, "\"; "); // Microsoft Access Workgroup Information if (!string.IsNullOrEmpty(jo)) sb.Append("jet oledb:system database=", jo, "; "); return sb.ToString(); } #endregion #region static static string Declaration(ColumnAttribute column) { var type = TextUtility.Empty; var vcolumn = column; var length = Math.Max(0, vcolumn.Length); switch (vcolumn.Type) { case ColumnType.Boolean: type = "bit"; break; case ColumnType.Integer: type = "money"; break; case ColumnType.Float: type = "float"; break; case ColumnType.Bytes: type = "binary"; break; case ColumnType.DateTime: type = "datetime"; break; case ColumnType.VarChar: type = TextUtility.Merge("varchar(", Math.Min(8000, length).ToString(), ")"); break; case ColumnType.VarChar191: type = TextUtility.Merge("varchar(191)"); break; case ColumnType.VarCharMax: type = TextUtility.Merge("varchar(max)"); break; case ColumnType.Text: type = TextUtility.Merge("text"); break; case ColumnType.NVarChar: type = TextUtility.Merge("nvarchar(", Math.Min(4000, length).ToString(), ")"); break; case ColumnType.NVarChar191: type = TextUtility.Merge("nvarchar(191)"); break; case ColumnType.NVarCharMax: type = TextUtility.Merge("nvarchar(max)"); break; case ColumnType.NText: type = TextUtility.Merge("ntext"); break; default: return TextUtility.Empty; } return TextUtility.Merge("[", vcolumn.Field, "] ", type); } #endregion } /// 使用 Microsoft.Jet.OLEDB.4.0 访问 Access 97 - 2003 数据库文件。 public class AccessJet4 : Access { const string JetOleDB4 = "microsoft.jet.oledb.4.0"; /// 创建 Access 类的新实例。 /// public AccessJet4(string path, string pass = null, string jo = null, Timeout timeout = null) : base(GenerateCS(JetOleDB4, path, pass, jo), timeout) { Path = path; } /// 使用连接字符串创建数据库连接实例。 /// /// public AccessJet4(IDbConnection connection, Timeout timeout = null) : base(connection, timeout) { Path = (connection as Access)?.Path; } } /// 使用 Microsoft.ACE.OLEDB.12.0 访问 Access 2007 数据库文件。 public class AccessAce12 : Access { const string AceOleDB12 = "microsoft.ace.oledb.12.0"; /// 创建 Access 类的新实例。 /// public AccessAce12(string path, string pass = null, string jo = null, Timeout timeout = null) : base(GenerateCS(AceOleDB12, path, pass, jo), timeout) { Path = path; } /// 使用连接字符串创建数据库连接实例。 /// /// public AccessAce12(IDbConnection connection, Timeout timeout = null) : base(connection, timeout) { Path = (connection as Access)?.Path; } } #endif }