facebookegypt

netsh wlan start hostednetwork

facebookegypt

netsh wlan set hostednetwork mode=allow ssid=WiFiHotSpot key=123456789

facebookegypt

'Example vb.net Using COM JRO.JetEngine Liberary
'That works fine with Microsoft access 2000-2003 MDB file
Module Module1
    Sub Main()
        Dim jro As JRO.JetEngine
        jro = New JRO.JetEngine()
        jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")
        MsgBox("Finished Compacting Database!")
    End Sub

facebookegypt

'How to dynamically load Crystal Report in VB 2010
'Using protected MS-Access 2003/2007/2010 with Password
'adonetaccess2003.blogspot.com

Private Sub Report1_Load(ByVal sender As System.Object, _
                         ByVal e As System.EventArgs) _
                         Handles MyBase.Load
      Dim dt As DataTable = New DataTable()
      Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM [TABLE_Name]", OleDBConnection)
      DataAdapter1.Fill(dt)

facebookegypt

'This code won't work with Protected MS-Access Database with Password
'VB 2010 Crystal Report MS-Access 2003/2007/2010
'adonetaccess2003.blogspot.com

Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Report1

   Private Sub CrystalReportViewer1_Load(sender As Object, e As System.EventArgs) Handles CrystalReportViewer1.Load

facebookegypt

Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.OleDb
Imports CrystalDecisions.Shared

Public Class CrystalForm
    Dim cryRpt As New ReportDocument
    Dim crtableLogoninfos As New TableLogOnInfos
    Dim crtableLogoninfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    Dim CrTables As Tables

facebookegypt

<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
  <!-- If you are using (for example: .Net framework 4.6.2), use : -->
  <!-- <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/> -->
</startup>

facebookegypt

'Visual Basic Online Course
'VB 2010 Make sure a file exists

   Function AppExists() As Boolean
      Dim AppPath As String = ("C:\folder\sample\app.exe")
      If IO.File.Exists(AppPath) = True Then
         Return True
      Else
         Return False
      End If

facebookegypt

'Visual Basic Online Course
'VB 2010 Get list of all running applications

Function GetAllRunningApps(ilst As ListBox) As String
      'For every process which is running on the computer
      For Each p As Process In Process.GetProcesses
         'If it doesn't have a title
         If p.MainWindowTitle <> String.Empty Then
            ilst.Items.Add(p.ProcessName)
         End If

facebookegypt

'Visual Basic Online Course
'VB 2010 Make sure application is installed

Imports Microsoft.Win32
Public Class Form1

   Private Sub Form1_Load(sender As System.Object, _
   e As System.EventArgs) Handles MyBase.Load
      GetInstalledApps(ListBox1)
   End Sub