.NET (Core and Framework)

Public Sub CreateInsertActivityStoredProcedure()

  Dim Name As String = "InsertActivityRow"
  If mMyDatabase.StoredProcedures.Contains(Name) Then
    mMyDatabase.StoredProcedures(Name).Drop()
  End If

  Dim An_SP As New StoredProcedure(mMyDatabase, Name, "dbo")

  'An_SP.TextHeader = "???"
  An_SP.TextMode = False
  An_SP.AnsiNullsStatus = False
  An_SP.QuotedIdentifierStatus = False

  'these are the input paramters
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@UserFK", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@MachineFK", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@ActivityDate", DataType.DateTime))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@Activity", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@TableAffected", DataType.Int))
  An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@RowAffected", DataType.Int))

  'this is the output parameter
  Dim An_OutputParameter As StoredProcedureParameter = New StoredProcedureParameter(An_SP, "@NewPK", DataType.Int)
  An_OutputParameter.IsOutputParameter = True
  An_SP.Parameters.Add(An_OutputParameter)

  'start the string (the rest use += )
  An_SP.TextBody = ""

  An_SP.TextBody += "CREATE PROCEDURE InsertActivityRow"
  An_SP.TextBody += " @UserFK int,"
  An_SP.TextBody += " @MachineFK int,"
  An_SP.TextBody += " @ActivityDate datetime,"
  An_SP.TextBody += " @Activity int,"
  An_SP.TextBody += " @TableAffected int,"
  An_SP.TextBody += " @RowAffected int,"
  An_SP.TextBody += " @NewPK int OUT"
  An_SP.TextBody += " AS"
  An_SP.TextBody += " BEGIN"
  An_SP.TextBody += " SET NOCOUNT ON"
  An_SP.TextBody += " INSERT INTO ADV4SQL.dbo.ADVActivities"
  An_SP.TextBody += " ("
  An_SP.TextBody += " AcUserFK,"
  An_SP.TextBody += " AcMachineFK,"
  An_SP.TextBody += " AcDate,"
  An_SP.TextBody += " AcActivity,"
  An_SP.TextBody += " AcTableAffected,"
  An_SP.TextBody += " AcRowAffected"
  An_SP.TextBody += " )"
  An_SP.TextBody += " VALUES"
  An_SP.TextBody += " ("
  An_SP.TextBody += " @UserFK,"
  An_SP.TextBody += " @MachineFK,"
  An_SP.TextBody += " @ActivityDate,"
  An_SP.TextBody += " @Activity,"
  An_SP.TextBody += " @TableAffected,"
  An_SP.TextBody += " @RowAffected"
  An_SP.TextBody += " )"
  An_SP.TextBody += " SET @NewPK = SCOPE_IDENTITY() "
  An_SP.TextBody += " END"

  An_SP.Create()

End Sub

Dim An_SP As New StoredProcedure(mMyDatabase, Name, "dbo")

An_SP.Parameters.Add(New StoredProcedureParameter(An_SP, "@UserFK", DataType.Int))

An_SP.TextBody += "CREATE PROCEDURE InsertActivityRow"
An_SP.TextBody += " @UserFK int,"
An_SP.TextBody += " @MachineFK int,"
An_SP.TextBody += " @ActivityDate datetime,"
An_SP.TextBody += " @Activity int,"
An_SP.TextBody += " @TableAffected int,"
An_SP.TextBody += " @RowAffected int,"
An_SP.TextBody += " @NewPK int OUT"
An_SP.TextBody += " AS"
An_SP.TextBody += " BEGIN"

An_SP.TextBody += " END"

Dim geneSeq As String = "ATTATCGATGATATTATTGGTCTTATTTGT"
Dim splitseq() As Char

splitseq = geneSeq.ToCharArray()

' Display the splitseq array
For Each ch As Char In splitseq
    Console.WriteLine(ch)
Next

private int myRegisterActiveObject(object pUnk)
{
    string sDelim = "!";
    string sProgID = "MyNamespace.ClassName";

    IBindCtx bc;
    Ole32.CreateBindCtx(0, out bc);

    IMoniker moniker;
    Ole32.CreateItemMoniker(sDelim,sProgID, out moniker);

    IRunningObjectTable rot;
    bc.GetRunningObjectTable(out rot);

    int register = rot.Register((ROTFLAGS_REGISTRATIONKEEPSALIVE | ROTFLAGS_ALLOWANYCLIENT), pUnk, moniker);

    return register;
}

[HKEY_CLASSES_ROOT\APPID\myApp.exe]
"APPID"="{guid}"