tst

tst

Code:

---

Imports System
Imports System.IO
Imports System.Environment

Public Class Log
    'Logger til fil. Default blir logging lagt til i "toppen" av filen
    Private sFileName As String
    Private sFileContent As String
    Private lMaxNumLines As Long
    Private sLogData As String
    Private bUseTimestamp As Boolean = True
    Private bAddToTopOfLogFile As Boolean = True
    Public Sub New()
        sFileName = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.AssemblyName & ".log"
    End Sub

---

[VBCODE]
Imports System
Imports System.IO
Imports System.Environment

Public Class Log
'Logger til fil. Default blir logging lagt til i "toppen" av filen
Private sFileName As String
Private sFileContent As String
Private lMaxNumLines As Long
Private sLogData As String
Private bUseTimestamp As Boolean = True
Private bAddToTopOfLogFile As Boolean = True
Public Sub New()
sFileName = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.AssemblyName & ".log"
End Sub[/VBCODE]

VB Code:

Imports System
Imports System.IO
Imports System.Environment
 
Public Class Log
    'Logger til fil. Default blir logging lagt til i "toppen" av filen
    Private sFileName As String
    Private sFileContent As String
    Private lMaxNumLines As Long
    Private sLogData As String
    Private bUseTimestamp As Boolean = True
    Private bAddToTopOfLogFile As Boolean = True
    Public Sub New()
        sFileName = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.AssemblyName & ".log"
    End Sub

ah :)

SQL Code:

SELECT Consumer.ConsumID
FROM Consumer LEFT JOIN Table1 ON Consumer.ConsumID = Table1.ConsumerID
WHERE (((Table1.ConsumerID) Is Null))

VBNET Code:

Imports System
Imports System.IO
Imports System.Environment
 
Public Class Log
    'Logger til fil. Default blir logging lagt til i "toppen" av filen
    Private sFileName As String
    Private sFileContent As String
    Private lMaxNumLines As Long
    Private sLogData As String
    Private bUseTimestamp As Boolean = True
    Private bAddToTopOfLogFile As Boolean = True
    Public Sub New()
        sFileName = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.AssemblyName & ".log"
    End Sub