private void ConstructBody() { string className = datatable.TableName; string instanceName = ProperVarName.Get(datatable.TableName.ToLower()); this.Statements.Add("Dim dt As DataTable = table.DbAccess.GetDataTable(sqlCommand)"); this.Statements.Add($"Dim list As List(Of {className}) = New List(Of {className})()"); VBBlock forEachBlock = new VBBlock(VBBlockStatement.ForEach, "For Each dataRow As DataRow In dt.Rows"); forEachBlock.Statements.Add($"Dim {instanceName} As {className} = New {className}()"); foreach (DataColumn clm in datatable.Columns) { string clmName = ProperVarName.Get(clm.ColumnName, false); string propName = ProperVarName.Get(clm.ColumnName, true); if (clm.AllowDBNull) { forEachBlock.Statements.Add($"{instanceName}.{propName} = CType(If(dataRow({Quotes}{clmName}{Quotes}) Is DBNull.Value, Nothing, dataRow({Quotes}{clmName}{Quotes})), {ProperVBTypeName.Get(clm)})"); } else { forEachBlock.Statements.Add($"{instanceName}.{propName} = CType(dataRow({Quotes}{clmName}{Quotes}), {ProperVBTypeName.Get(clm)})"); } } forEachBlock.Statements.Add($"list.Add({instanceName})"); this.Statements.Add(forEachBlock.ToString()); this.Statements.Add("Return list"); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlInsertBuilder.CreateInsertSql(datatable)} SELECT SCOPE_IDENTITY() AS INT;{Quotes}"; string parameterName = string.Empty; string propertyName = string.Empty; string parameterValue = string.Empty; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); foreach (DataColumn clm in datatable.Columns) { if (clm.AutoIncrement) { continue; } parameterName = $"{Quotes}@{clm.ColumnName.Replace(" ", "")}{Quotes}"; propertyName = ProperVarName.Get(clm.ColumnName); parameterValue = $"{ProperVarName.Get(datatable.TableName.ToLower())}.{propertyName}"; if (clm.AllowDBNull) { parameterValue = $"If({parameterValue}, CType(DBNull.Value, Object))"; } usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); } usingBlock.Statements.Add($"table.DbAccess.Commands.Add(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); usingBlock.Statements.Add($"sqlCommand.CommandText = {Quotes}SELECT COUNT(*) FROM [{datatable.TableName}];{Quotes}"); usingBlock.Statements.Add($"Return Convert.ToInt32(table.DbAccess.ExecuteScalar(sqlCommand))"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlSelectBuilder.CreateSelectAll(datatable)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); usingBlock.Statements.Add($"Return ToList(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlSelectBuilder.CreateSelectCountByKeyword(datatable)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); usingBlock.Statements.Add($"{NewLine}sqlCommand.Parameters.AddWithValue({$"{Quotes}@Keyword{Quotes}"}, keyword)"); usingBlock.Statements.Add($"Return Convert.ToInt32(table.DbAccess.ExecuteScalar(sqlCommand))"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlUpdateBuilder.UpdateByPrimaryKey(datatable)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); usingBlock.Statements.Add($"SetSqlCommandParameter(sqlCommand, {ProperVarName.Get(datatable.TableName.ToLower())})"); usingBlock.Statements.Add($"table.DbAccess.Commands.Add(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"${Quotes}{SqlSelectBuilder.CreateSelectByKeyword(datatable)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString} "); usingBlock.Statements.Add($"{NewLine}sqlCommand.Parameters.AddWithValue({$"{Quotes}@Keyword{Quotes}"}, keyword)"); usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({Quotes}@Start{Quotes}, start)"); usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({Quotes}@End{Quotes}, _end)"); usingBlock.Statements.Add($"Return ToList(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string parameterName = $"{Quotes}@{datacolumn.ColumnName.Replace(" ","")}{Quotes}"; string parameterValue = ProperVarName.Get(datacolumn.ColumnName.ToLower()); string columnName = datacolumn.ColumnName.Contains(" ") ? $"[{datacolumn.ColumnName}]" : datacolumn.ColumnName; string sqlString = $"{Quotes}{SqlSelectBuilder.CreateSelectAllWhere(datatable, $"{columnName} = @{datacolumn.ColumnName.Replace(" ", "")}")}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); usingBlock.Statements.Add($"Return ToList(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlDeleteBuilder.DeleteByColumn(datatable, datacolumn)}{Quotes}"; string parameterName = $"{Quotes}@{datacolumn.ColumnName.Replace(" ", "")}{Quotes}"; string parameterValue = ProperVarName.Get(datacolumn.ColumnName.ToLower()); usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); if (datacolumn.AllowDBNull) { parameterValue = $"If({parameterValue}, CType(DBNull.Value, Object))"; } usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); usingBlock.Statements.Add($"table.DbAccess.Commands.Add(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlDeleteBuilder.DeleteByPrimaryKey(datatable)}{Quotes}"; string parameterName = string.Empty; string parameterValue = string.Empty; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); foreach (DataColumn clm in this.datatable.PrimaryKey) { parameterName = $"{Quotes}@{clm.ColumnName}{Quotes}"; parameterValue = GetParameterValue(clm); usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); } usingBlock.Statements.Add($"table.DbAccess.Commands.Add(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlUpdateBuilder.UpdateColumnByPrimaryKey(datatable, datacolumn)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); #region Updated Column string parameterName = $"{Quotes}@{datacolumn.ColumnName.Replace(" ","")}{Quotes}"; string parameterValue = ProperVarName.Get(datacolumn.ColumnName.ToLower().Replace(" ", "")); if (datacolumn.AllowDBNull) { parameterValue = $"If({parameterValue}, CType(DBNull.Value, Object))"; } usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); #endregion #region Primary Key Column string keyParameterName = string.Empty; string keyParameterValue = string.Empty; foreach (DataColumn clm in this.datatable.PrimaryKey) { keyParameterName = $"{Quotes}@{clm.ColumnName.Replace(" ", "")}{Quotes}"; keyParameterValue = ProperVarName.Get(clm.ColumnName.ToLower()); if (clm.AllowDBNull) { keyParameterValue += " ?? (object)DBNull.Value"; } usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({keyParameterName}, {keyParameterValue})"); } #endregion usingBlock.Statements.Add($"table.DbAccess.Commands.Add(sqlCommand)"); this.Statements.Add(usingBlock.ToString()); }
private void ConstructBody() { VBBlock usingBlock = new VBBlock(VBBlockStatement.Using, "Using sqlCommand As New SqlCommand()"); string sqlString = $"{Quotes}{SqlSelectBuilder.SelectByPrimaryKey(datatable)}{Quotes}"; usingBlock.Statements.Add($"sqlCommand.CommandText = {sqlString}"); foreach (DataColumn clm in datatable.PrimaryKey) { string parameterName = $"{Quotes}@{clm.ColumnName}{Quotes}"; string parameterValue = clm.ColumnName.ToLower(); usingBlock.Statements.Add($"sqlCommand.Parameters.AddWithValue({parameterName}, {parameterValue})"); } usingBlock.Statements.Add($"Dim list As List(Of {datatable.TableName}) = ToList(sqlCommand)"); var ifBlock = new VBBlock(VBBlockStatement.If, "If list.Count > 0 Then"); ifBlock.Statements.Add("Return list(0)"); usingBlock.Statements.Add(ifBlock.ToString()); usingBlock.Statements.Add($"Return Nothing"); this.Statements.Add(usingBlock.ToString()); }