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());
}
