November 9, 2022

Add files to Visual Studio Publish that arent in project (VUE Scripts)

By default .dist.js files wont be copied as they are not included in the solution but are generated from webpack. Need to do the following:

To publish folder which are not “included” in the VS-Solution do:

right click the solution -> unload project
right click -> edit csproj file
add following code

<Content Include="Script\*">
    <Visible>false</Visible>
</Content>

<Visible>false</Visible>

</Content>

June 7, 2020

Post file to web api

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Net
Imports System.Net.Http
Imports System.Threading.Tasks
Imports System.Web
Imports System.Web.Http

Namespace CrystalReportIn_Webapi.Controllers
    <RoutePrefix("api/Upload")>
    Public Class UploadController
        Inherits ApiController

        <Route("user/PostUserImage")>
        <AllowAnonymous>
        Public Async Function PostUserImage() As Task(Of HttpResponseMessage)
            Dim dict As Dictionary(Of String, Object) = New Dictionary(Of String, Object)()

            Try
                Dim httpRequest = HttpContext.Current.Request

                For Each file As String In httpRequest.Files
                    Dim response As HttpResponseMessage = Request.CreateResponse(HttpStatusCode.Created)
                    Dim postedFile = httpRequest.Files(file)

                    If postedFile IsNot Nothing AndAlso postedFile.ContentLength > 0 Then
                        Dim MaxContentLength As Integer = 1024 * 1024 * 1
                        Dim AllowedFileExtensions As IList(Of String) = New List(Of String) From {
                            ".jpg",
                            ".gif",
                            ".png"
                        }
                        Dim ext = postedFile.FileName.Substring(postedFile.FileName.LastIndexOf("."c))
                        Dim extension = ext.ToLower()

                        If Not AllowedFileExtensions.Contains(extension) Then
                            Dim message = String.Format("Please Upload image of type .jpg,.gif,.png.")
                            dict.Add("error", message)
                            Return Request.CreateResponse(HttpStatusCode.BadRequest, dict)
                        ElseIf postedFile.ContentLength > MaxContentLength Then
                            Dim message = String.Format("Please Upload a file upto 1 mb.")
                            dict.Add("error", message)
                            Return Request.CreateResponse(HttpStatusCode.BadRequest, dict)
                        Else
                            Dim filePath = HttpContext.Current.Server.MapPath("~/Userimage/" & postedFile.FileName & extension)
                            postedFile.SaveAs(filePath)
                        End If
                    End If

                    Dim message1 = String.Format("Image Updated Successfully.")
                    Return Request.CreateErrorResponse(HttpStatusCode.Created, message1)
                Next

                Dim res = String.Format("Please Upload a image.")
                dict.Add("error", res)
                Return Request.CreateResponse(HttpStatusCode.NotFound, dict)
            Catch ex As Exception
                Dim res = String.Format("some Message")
                dict.Add("error", res)
                Return Request.CreateResponse(HttpStatusCode.NotFound, dict)
            End Try
        End Function
    End Class
End Namespace

Imports System

Imports System.Collections.Generic

Imports System.Linq

Imports System.Net

Imports System.Net.Http

Imports System.Threading.Tasks

Imports System.Web

Imports System.Web.Http

Namespace CrystalReportIn_Webapi.Controllers

<RoutePrefix("api/Upload")>

Public Class UploadController

Inherits ApiController

<Route("user/PostUserImage")>

Public Async Function PostUserImage() As Task(Of HttpResponseMessage)

Dim dict As Dictionary(Of String, Object) = New Dictionary(Of String, Object)()

Try

Dim httpRequest = HttpContext.Current.Request

For Each file As String In httpRequest.Files

Dim response As HttpResponseMessage = Request.CreateResponse(HttpStatusCode.Created)

Dim postedFile = httpRequest.Files(file)

If postedFile IsNot Nothing AndAlso postedFile.ContentLength > 0 Then

Dim MaxContentLength As Integer = 1024 * 1024 * 1

Dim AllowedFileExtensions As IList(Of String) = New List(Of String) From {

".jpg",

".gif",

".png"

}

Dim ext = postedFile.FileName.Substring(postedFile.FileName.LastIndexOf("."c))

Dim extension = ext.ToLower()

If Not AllowedFileExtensions.Contains(extension) Then

Dim message = String.Format("Please Upload image of type .jpg,.gif,.png.")

dict.Add("error", message)

Return Request.CreateResponse(HttpStatusCode.BadRequest, dict)

ElseIf postedFile.ContentLength > MaxContentLength Then

Dim message = String.Format("Please Upload a file upto 1 mb.")

dict.Add("error", message)

Return Request.CreateResponse(HttpStatusCode.BadRequest, dict)

Else

Dim filePath = HttpContext.Current.Server.MapPath("~/Userimage/" & postedFile.FileName & extension)

postedFile.SaveAs(filePath)

End If

Dim message1 = String.Format("Image Updated Successfully.")

Return Request.CreateErrorResponse(HttpStatusCode.Created, message1)

Dim res = String.Format("Please Upload a image.")

dict.Add("error", res)

Return Request.CreateResponse(HttpStatusCode.NotFound, dict)

Catch ex As Exception

Dim res = String.Format("some Message")

dict.Add("error", res)

Return Request.CreateResponse(HttpStatusCode.NotFound, dict)

End Try

End Function

End Class

End Namespace

May 12, 2020

Export VM to a tab delimited file

        Dim saveFileDialog As New Microsoft.Win32.SaveFileDialog

            saveFileDialog.DefaultExt = "txt"
            Dim reportFileName As String = "ClientGroupExport_" & System.DateTime.Now.ToString("yyyyMMdd")
            Dim currExt = IO.Path.GetExtension(reportFileName)

            saveFileDialog.FileName = reportFileName
            Try
                If saveFileDialog.ShowDialog() Then
                    'SavedFileName = saveFileDialog.FileName
                    Using fileStream As System.IO.Stream = saveFileDialog.OpenFile()
                        Using sw As New System.IO.StreamWriter(fileStream)
                            'Me.FilteredClientGroups.CopyTo(fileStream)
                            Dim str As String = String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}\newLN", "ClientType", "SimpleName", "SingleLineAddress", "Phone", "Fax", "Email", "Mobile", "Owner", "ClientSourceType").Replace("\t", vbTab).Replace("\newLN", vbNewLine)
                            str = str & String.Join(Environment.NewLine, FilteredClientGroupMembers.Select(Of String)(Function(x) String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}", x.ClientType, x.SimpleName, x.SingleLineAddress, x.Phone, x.Fax, x.Email, x.Mobile, x.Owner, x.ClientSourceType))).Replace("\t", vbTab)
                            sw.WriteLine(str)
                            sw.Flush()
                            sw.Close()
                        End Using
                    End Using

                    If IO.File.Exists(saveFileDialog.FileName) Then
                        If Windows.MessageBox.Show("Do you wish to open the saved file now?", "Open File?", Windows.MessageBoxButton.YesNo, Windows.MessageBoxImage.Question, Windows.MessageBoxResult.No) = Windows.MessageBoxResult.Yes Then
                            'Open the file in the default viewer
                            Try
                                System.Diagnostics.Process.Start(saveFileDialog.FileName)
                            Catch ex As Exception
                                Windows.MessageBox.Show(String.Format("An error occurred trying to open the file '{0}'", saveFileDialog.FileName), "File Error", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
                                RollbarClientSync.SendExceptionAsync(ex, Controller.CurrentIdentity)
                            End Try
                        End If
                    End If
                End If
            Catch ioEx As System.IO.IOException
                Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}{2}Check to see if the file is already in use, and that you have permissions to write to the requested file path.", saveFileDialog.FileName, ioEx.GetBaseException.Message, Environment.NewLine), "Failed To Save Report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
            Catch fileEx As Exception
                Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}", saveFileDialog.FileName, fileEx.GetBaseException.Message), "Failed To Save Client Group report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
                RollbarClientSync.SendExceptionAsync(fileEx, Controller.CurrentIdentity)
            End Try






''OR


            Dim saveFileDialog As New Microsoft.Win32.SaveFileDialog

            saveFileDialog.DefaultExt = "tab"
            Dim reportFileName As String = "ClientGroupExport_" & System.DateTime.Now.ToString("yyyyMMdd")
            Dim currExt = IO.Path.GetExtension(reportFileName)

            saveFileDialog.FileName = reportFileName
            Try
                If saveFileDialog.ShowDialog() Then
                    'SavedFileName = saveFileDialog.FileName
                    Using fileStream As System.IO.Stream = saveFileDialog.OpenFile()
                        Using sw As New System.IO.StreamWriter(fileStream)
                            'Me.FilteredClientGroups.CopyTo(fileStream)

                            Dim lines As New List(Of String)

                            Dim headers As New List(Of String)
                            headers.Add("ClientType")
                            headers.Add("SimpleName")
                            headers.Add("SingleLineAddress")
                            headers.Add("Phone")
                            headers.Add("Fax")
                            headers.Add("Email")
                            headers.Add("Mobile")
                            headers.Add("ContactName")
                            headers.Add("ContactEmail")
                            headers.Add("ContactPhone")
                            headers.Add("Owner")
                            headers.Add("ClientSourceType")

                            lines.Add(String.Join(vbTab, headers.ToArray))


                            For Each row In FilteredClientGroupMembers
                                Dim elements As New List(Of String)
                                elements.Add(row.ClientType)
                                elements.Add(row.SimpleName)
                                elements.Add(row.SingleLineAddress)
                                elements.Add(row.Phone)
                                elements.Add(row.Fax)
                                elements.Add(row.Email)
                                elements.Add(row.Mobile)
                                elements.Add(row.ContactName)
                                elements.Add(row.ContactEmail)
                                elements.Add(row.ContactPhone)
                                elements.Add(row.Owner)
                                elements.Add(row.ClientSourceType)

                                lines.Add(String.Join(vbTab, elements.ToArray))
                            Next
                            ''Dim str As String = String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}\newLN", "ClientType", "SimpleName", "SingleLineAddress", "Phone", "Fax", "Email", "Mobile", "Owner", "ClientSourceType").Replace("\t", vbTab).Replace("\newLN", vbNewLine)
                            'Str = str & String.Join(Environment.NewLine, FilteredClientGroupMembers.Select(Of String)(Function(x) String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}", x.ClientType, x.SimpleName, x.SingleLineAddress, x.Phone, x.Fax, x.Email, x.Mobile, x.Owner, x.ClientSourceType))).Replace("\t", vbTab)
                            Dim contents = String.Join(Environment.NewLine, lines.ToArray)
                            sw.WriteLine(contents)
                            sw.Flush()
                            sw.Close()
                        End Using
                    End Using

                    If IO.File.Exists(saveFileDialog.FileName) Then
                        If Windows.MessageBox.Show("Do you wish to open the saved file now?", "Open File?", Windows.MessageBoxButton.YesNo, Windows.MessageBoxImage.Question, Windows.MessageBoxResult.No) = Windows.MessageBoxResult.Yes Then
                            'Open the file in the default viewer
                            Try
                                System.Diagnostics.Process.Start(saveFileDialog.FileName)
                            Catch ex As Exception
                                Windows.MessageBox.Show(String.Format("An error occurred trying to open the file '{0}'", saveFileDialog.FileName), "File Error", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
                                RollbarClientSync.SendExceptionAsync(ex, Controller.CurrentIdentity)
                            End Try
                        End If
                    End If
                End If
            Catch ioEx As System.IO.IOException
                Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}{2}Check to see if the file is already in use, and that you have permissions to write to the requested file path.", saveFileDialog.FileName, ioEx.GetBaseException.Message, Environment.NewLine), "Failed To Save Report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
            Catch fileEx As Exception
                Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}", saveFileDialog.FileName, fileEx.GetBaseException.Message), "Failed To Save Client Group report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)
                RollbarClientSync.SendExceptionAsync(fileEx, Controller.CurrentIdentity)
            End Try

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

Dim saveFileDialog As New Microsoft.Win32.SaveFileDialog

saveFileDialog.DefaultExt = "txt"

Dim reportFileName As String = "ClientGroupExport_" & System.DateTime.Now.ToString("yyyyMMdd")

Dim currExt = IO.Path.GetExtension(reportFileName)

saveFileDialog.FileName = reportFileName

Try

If saveFileDialog.ShowDialog() Then

'SavedFileName = saveFileDialog.FileName

Using fileStream As System.IO.Stream = saveFileDialog.OpenFile()

Using sw As New System.IO.StreamWriter(fileStream)

'Me.FilteredClientGroups.CopyTo(fileStream)

Dim str As String = String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}\newLN", "ClientType", "SimpleName", "SingleLineAddress", "Phone", "Fax", "Email", "Mobile", "Owner", "ClientSourceType").Replace("\t", vbTab).Replace("\newLN", vbNewLine)

str = str & String.Join(Environment.NewLine, FilteredClientGroupMembers.Select(Of String)(Function(x) String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}", x.ClientType, x.SimpleName, x.SingleLineAddress, x.Phone, x.Fax, x.Email, x.Mobile, x.Owner, x.ClientSourceType))).Replace("\t", vbTab)

sw.WriteLine(str)

sw.Flush()

sw.Close()

End Using

If IO.File.Exists(saveFileDialog.FileName) Then

If Windows.MessageBox.Show("Do you wish to open the saved file now?", "Open File?", Windows.MessageBoxButton.YesNo, Windows.MessageBoxImage.Question, Windows.MessageBoxResult.No) = Windows.MessageBoxResult.Yes Then

'Open the file in the default viewer

Try

System.Diagnostics.Process.Start(saveFileDialog.FileName)

Catch ex As Exception

Windows.MessageBox.Show(String.Format("An error occurred trying to open the file '{0}'", saveFileDialog.FileName), "File Error", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)

RollbarClientSync.SendExceptionAsync(ex, Controller.CurrentIdentity)

End Try

End If

Catch ioEx As System.IO.IOException

Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}{2}Check to see if the file is already in use, and that you have permissions to write to the requested file path.", saveFileDialog.FileName, ioEx.GetBaseException.Message, Environment.NewLine), "Failed To Save Report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)

Catch fileEx As Exception

Windows.MessageBox.Show(String.Format("There was a problem saving the file to '{0}'. The error was: {1}", saveFileDialog.FileName, fileEx.GetBaseException.Message), "Failed To Save Client Group report", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)

RollbarClientSync.SendExceptionAsync(fileEx, Controller.CurrentIdentity)

End Try

''OR

Dim saveFileDialog As New Microsoft.Win32.SaveFileDialog

saveFileDialog.DefaultExt = "tab"

Dim reportFileName As String = "ClientGroupExport_" & System.DateTime.Now.ToString("yyyyMMdd")

Dim currExt = IO.Path.GetExtension(reportFileName)

saveFileDialog.FileName = reportFileName

Try

If saveFileDialog.ShowDialog() Then

'SavedFileName = saveFileDialog.FileName

Using fileStream As System.IO.Stream = saveFileDialog.OpenFile()

Using sw As New System.IO.StreamWriter(fileStream)

'Me.FilteredClientGroups.CopyTo(fileStream)

Dim lines As New List(Of String)

Dim headers As New List(Of String)

headers.Add("ClientType")

headers.Add("SimpleName")

headers.Add("SingleLineAddress")

headers.Add("Phone")

headers.Add("Fax")

headers.Add("Email")

headers.Add("Mobile")

headers.Add("ContactName")

headers.Add("ContactEmail")

headers.Add("ContactPhone")

headers.Add("Owner")

headers.Add("ClientSourceType")

lines.Add(String.Join(vbTab, headers.ToArray))

For Each row In FilteredClientGroupMembers

Dim elements As New List(Of String)

elements.Add(row.ClientType)

elements.Add(row.SimpleName)

elements.Add(row.SingleLineAddress)

elements.Add(row.Phone)

elements.Add(row.Fax)

elements.Add(row.Email)

elements.Add(row.Mobile)

elements.Add(row.ContactName)

elements.Add(row.ContactEmail)

elements.Add(row.ContactPhone)

elements.Add(row.Owner)

elements.Add(row.ClientSourceType)

lines.Add(String.Join(vbTab, elements.ToArray))

''Dim str As String = String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}\newLN", "ClientType", "SimpleName", "SingleLineAddress", "Phone", "Fax", "Email", "Mobile", "Owner", "ClientSourceType").Replace("\t", vbTab).Replace("\newLN", vbNewLine)

'Str = str & String.Join(Environment.NewLine, FilteredClientGroupMembers.Select(Of String)(Function(x) String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}\t{6}\t{7}\t{8}", x.ClientType, x.SimpleName, x.SingleLineAddress, x.Phone, x.Fax, x.Email, x.Mobile, x.Owner, x.ClientSourceType))).Replace("\t", vbTab)

Dim contents = String.Join(Environment.NewLine, lines.ToArray)

sw.WriteLine(contents)

sw.Flush()

sw.Close()

End Using

If IO.File.Exists(saveFileDialog.FileName) Then

'Open the file in the default viewer

Try

System.Diagnostics.Process.Start(saveFileDialog.FileName)

Catch ex As Exception

Windows.MessageBox.Show(String.Format("An error occurred trying to open the file '{0}'", saveFileDialog.FileName), "File Error", Windows.MessageBoxButton.OK, Windows.MessageBoxImage.Error)

RollbarClientSync.SendExceptionAsync(ex, Controller.CurrentIdentity)

End Try

End If

Catch ioEx As System.IO.IOException

Catch fileEx As Exception

RollbarClientSync.SendExceptionAsync(fileEx, Controller.CurrentIdentity)

End Try

November 7, 2019

Fix orphaned sql users

Creating-Updating DB

Then open query window and execute following stored procedure
- Transact-SQL
  
  EXEC sp_change_users_login 'AUTO_FIX','OrphanedUser'
  
  1
  
  EXEC sp_change_users_login 'AUTO_FIX','OrphanedUser'

SQL 2005 Full version

Transact-SQL

Exec sp_change_users_login 'Auto_Fix', 'OrphanedUser',null, 'orphaned'

1

Exec sp_change_users_login 'Auto_Fix', 'OrphanedUser',null, 'orphaned'

Useful script

CREATE LOGIN OrphanedUser

    WITH PASSWORD = 'orphaned',

    CHeck_Policy= OFF

CREATE LOGIN OrphanedUser

WITH PASSWORD = 'orphaned',

CHeck_Policy= OFF

Otherwise to associate user to login try the following:

CREATE USER OrphanedUser FOR LOGIN OrphanedUser

1	CREATE USER OrphanedUser FOR LOGIN OrphanedUser

October 29, 2019

Install SQL instance on domain controller

Installing SQL instance is not recommended and will usually fail (when starting the service section in the wizard). If this happens you can try the following:

This usually occurs when the master.mdf or the mastlog.ldf gets corrupt . In order to solve the issue go to the following path C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL , there you will find a folder ” Template Data ” , copy the master.mdf and mastlog.ldf and replace it in C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\Data folder . Thats it . Now start the MS SQL service and you are done

It will reset the sa password.

Default sa passwords.

SQL Server 2008/R2 Express
User: sa
Password: [blank password – leave field empty to connect]

SQL Server 201x Express
User: sa
Password: Password123

SQL Server 20xx Web or Standard
User: sa
Password: will be the same as your administrator or root user password at the time the VDS was provisioned.

GO
ALTER LOGIN [sa] WITH DEFAULT_DATABASE=[master]
GO
USE [master]
GO
ALTER LOGIN [sa] WITH PASSWORD=N'newpassword' 
GO

ALTER LOGIN [sa] WITH DEFAULT_DATABASE=[master]

USE [master]

ALTER LOGIN [sa] WITH PASSWORD=N'newpassword'

Otherwise you can you use the following link to do it properly.

How to Install Microsoft SQL on a Domain Controller

October 29, 2019

Run Visual Studio as admin (need to run this to execute ps/iis scripts within)

Rightklick devenv.exe and choose Troubleshoot compatibility. In the new window click at Troubleshoot programm, then check The programm requires additional permission.

This forces the settings to administrator rights only, without running in compatibility mode.

Otherwise with other programs you should be able to right click and hit properties. There should be a compatibility tab. If not need to enable the compatibility tab in win 10.

https://www.tenforums.com/tutorials/106509-add-remove-compatibility-tab-properties-page-windows.html

February 27, 2019

Operating system error 5(Access is denied.).

When creating backup need to set the permissions of the folder. Set the security permissions to allow ‘Authenticated Users’ to have read write permissions to the folder. Then run backup scripts again.

backup database <DATABASE NAME> to disk = <LOCATION>

1	backup database <DATABASE NAME> to disk = <LOCATION>

December 18, 2018

Get the Top 10 of each distinct column value

select Pub.Code, Pub.Name, WeekdayName = DateName(weekday,Cast(Cast(EditionDate as nvarchar) as datetime)), EditionDate 
from
(
   SELECT *,
         --adds a row number
         ROW_NUMBER() OVER (PARTITION BY lnkpublicationID ORDER BY EditionDate DESC) AS rn
   FROM src_PublicationEdition
   where EditionDate between 20140101 and 20180101
) a
Inner Join src_Publication PUB on PUB.IDPublication = a.lnkPublicationID
--we can then limit by row number
where rn <= 10


--- OR

;with MAIN As
(
select Pub.Code, Pub.Name, WeekdayName = DateName(weekday,Cast(Cast(EditionDate as nvarchar) as datetime)), EditionDate, rn 
from
(
   SELECT *,
         ROW_NUMBER() OVER (PARTITION BY lnkpublicationID ORDER BY EditionDate DESC) AS rn
   FROM src_PublicationEdition
   where EditionDate between 20140101 and 20180101
) a
Inner Join src_Publication PUB on PUB.IDPublication = a.lnkPublicationID
)
select * from MAIN
where rn < 10
order by Code

select Pub.Code, Pub.Name, WeekdayName = DateName(weekday,Cast(Cast(EditionDate as nvarchar) as datetime)), EditionDate

from

(

SELECT *,

--adds a row number

ROW_NUMBER() OVER (PARTITION BY lnkpublicationID ORDER BY EditionDate DESC) AS rn

FROM src_PublicationEdition

where EditionDate between 20140101 and 20180101

) a

Inner Join src_Publication PUB on PUB.IDPublication = a.lnkPublicationID

--we can then limit by row number

where rn <= 10

--- OR

;with MAIN As

(

select Pub.Code, Pub.Name, WeekdayName = DateName(weekday,Cast(Cast(EditionDate as nvarchar) as datetime)), EditionDate, rn

from

(

SELECT *,

ROW_NUMBER() OVER (PARTITION BY lnkpublicationID ORDER BY EditionDate DESC) AS rn

FROM src_PublicationEdition

where EditionDate between 20140101 and 20180101

) a

Inner Join src_Publication PUB on PUB.IDPublication = a.lnkPublicationID

)

select * from MAIN

where rn < 10

order by Code

November 21, 2018

Submit Post with error catch

$.post('balbal.html', json, function(data) {
    // ... my code ...
})
.fail(function(response) {
    alert('Error: ' + response.responseText);
});

$.post('balbal.html', json, function(data) {

// ... my code ...

})

.fail(function(response) {

alert('Error: ' + response.responseText);

});

November 21, 2018

Async Calls

    Private Sub get_data()
        Dim client = New RestClient()
        client.BaseUrl = "http://www.bing.com"

        Dim request = New RestRequest()
        request.Resource = "search?q=""widget+foo"""
        request.Method = Method.POST

        'Async call made with sub class
        client.ExecuteAsync(request, Sub(res)
                                         MessageBox.Show(res.Content) 'Show Data Content Here with Message Box
                                      End Sub)


     End Sub

Private Sub get_data()

Dim client = New RestClient()

client.BaseUrl = "http://www.bing.com"

Dim request = New RestRequest()

request.Resource = "search?q=""widget+foo"""

request.Method = Method.POST

'Async call made with sub class

client.ExecuteAsync(request, Sub(res)

MessageBox.Show(res.Content) 'Show Data Content Here with Message Box

End Sub)

End Sub

The Lazy Developer

So so lazy….

Add files to Visual Studio Publish that arent in project (VUE Scripts)

Post file to web api

Export VM to a tab delimited file

Fix orphaned sql users

Install SQL instance on domain controller

Run Visual Studio as admin (need to run this to execute ps/iis scripts within)

Operating system error 5(Access is denied.).

Get the Top 10 of each distinct column value

Submit Post with error catch

Async Calls