So, I kept refactoring my Sage300 API wrapper - I wanted the client code to feel just like using Entity Framework - this is the closest I got to it:
using (var context = new SageContext(/*redacted credentials*/))
{
context.Open();
var header = context.PurchaseOrderHeaders.Single(po => ...
I've got a powershell/vbscript script that will run the msaccess-vcs code on a build server to "decompile" all of the access stuff, and push the changes back into a git branch. The big one takes 8 hours to run.
public virtual TEntity Find(int id)
{
var result = new TEntity();
var table = result.TableMapping;
var sql = $"select * from mrp.[{table}] where [Id]=@id";
using (var connection = new SqlConnection(Properties.Settings.Default.SageExtDb))
{
connection.Open();
using (var command = new SqlCommand(sql))
{
command.Parameters.AddWithValue("@id", id);
using (var reader = command.ExecuteReader())
Auto mapping. I'm using it to convert between 2 class implementations.
For example:
public class JavelinBudget : ConvertableClass<Budget>
{
[Column(Name = "GLID")]
public uint GlId { get; set; }
[Column(Name = "FISCYR")]
public int FiscalYear { get; set; }
[Column(Name = "FISCPR")]
public int FiscalPeriod { get; set; }
public DateTime Date => new DateTime(FiscalYear, FiscalPeriod, 1);
[Column(Name = "BDGAMT")]
public decimal Amount { get; set; }
public BudgetType Type => BudgetType.ToDate;
public sealed class JulianDate : ConvertedDateField<int>
{
private const int JulianDateOffset = -1721426;
public JulianDate() { }
public JulianDate(int value) : base(value)
{
Value = new DateTime().AddDays(value + JulianDateOffset);
}
}
If I declare a property as a JulianDate and map it to an integer field, it will automagically convert it.
I was finding that about 75% of the code I was writing was silly stuff like field transformations of some sort or another. So... I dapper up a query to give me a list of ConvertableClass<T> (the T is the type I'm converting to), then it runs through this...
public virtual TClass Converted
{
get
{
var type = GetType();
var converted = Activator.CreateInstance<TClass>();
foreach (var property in Properties)
{
var matching = type.GetProperty(property.Name);
if (matching?.GetValue(this) == null)
{
continue;
}
property.SetValue(converted,
matching.PropertyType == property.PropertyType
? matching.GetValue(this)
...which instantiates the class that I really want.
@MathieuGuindon is the easiest answer. You can run under a non-admin account per-user if you don't choose to elevate, but VB6 itself hates running as non-admin
@Comintern yes, and Carlos documented some registry hacks to make it useful, but suspect very few people run that way.
Yes, I used a pre-release build and installed under all users and it loads now. Thank you! https://twitter.com/rubberduckvba/status/1044612354720354304
I don't. I just got in shoulder deep with a refactoring. My mistake for not saving periodically and turning off the BeforeSave event. Like I said I got lucky and didn't have to redo 3 hours. :whew:
but seriously, before i got into the habit of snapshotting in access (well its a custom thing where it closes everything and then saves a copy of the file for me) every so often, i lost like 6 hours of work
and left it on over hte weekend, computer wouldnt let me log in
it just did the spinning circle thing
had to hold hte power button shutdown the computer
i was sad because it totally corrupted the file and i hadnt made any snapshots of it yet and had to start from scratch
The database is most likely corrupt because someone keeps insisting on mucking around with it while it's open by an unknown user instead of leaving it alone and figuring out who has it open instead. Access is not designed to have people replacing it's databases while they're open by someone else, especially by overwriting them improperly. Fix the problem instead of making things worse by futzing around doing things you shouldn't be doing. Someone has this file open, so let me overwrite it at the same time. Hmmm... I wonder why it keeps getting corrupted? — Ken White4 mins ago
Public Sub Foo()
If x Then y: z
End Sub
Function x() As Boolean
x = False
End Function
Sub y()
Debug.Print "y executes"
End Sub
Sub z()
Debug.Print "z executes"
End Sub
^ Does nothing.
This however... If x Then y: End If: z
I'm considering a "Use of : operator" inspection at this point.
So, I kept refactoring my Sage300 API wrapper - I wanted the client code to feel just like using Entity Framework - this is the closest I got to it:
using (var context = new SageContext(/*redacted credentials*/))
{
context.Open();
var header = context.PurchaseOrderHeaders.Single(po => ...
VBA Rubberducking
VBA Rubberducking