Visual Basic

Private Sub printRemovableDrivesList()

        Dim Count As Integer
        Dim aDrive As System.IO.DriveInfo
        Debug.WriteLine("Removable Drives:")
        For Each aDrive In My.Computer.FileSystem.Drives
            If aDrive.DriveType = System.IO.DriveType.Removable Then
                Debug.WriteLine("Drive: " & aDrive.RootDirectory.ToString)
                Count += 1
            End If
        Next
        Debug.WriteLine(Count.ToString + " Drives Found.")
    End Sub

Removable Drives:
Drive: E:\
1 Drives Found.

JayKhatri wrote:

One more point Is it a problem of begin, commit of transactions.

JayKhatri wrote:

My question is if Microsoft Jet oledb insert can be done from sql server why it is not being from vb front end.

I are Troll

JayKhatri wrote:

Secondly, It is true the access don't have triggers, so do I go for another sql server db instead of ms-access.

I think finally I must leave try with MS Jet.

JayKhatri wrote:

I tried all the combinations of commit tran and begin all got failed.

I are Troll

JayKhatri wrote:

Is there still any Ray of Light as I have spoken to my senior who is less interested to select another sql db.

I are Troll

MA Awan wrote:

Rich Text Box

Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Drawing

Public Class ScrollInterceptor
    Inherits NativeWindow

    Private Const WM_HSCROLL As Integer = 276
    Private Const WM_VSCROLL As Integer = 277
    Private Const SIF_TRACKPOS As Integer = &H10
    Private Const SIF_RANGE As Integer = &H1
    Private Const SIF_POS As Integer = &H4
    Private Const SIF_PAGE As Integer = &H2
    Private Const SIF_ALL As Integer = SIF_PAGE Or SIF_POS Or SIF_RANGE Or SIF_TRACKPOS
    Private myLabel As Label
    Private myTextBox As RichTextBox


    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetScrollInfo(ByVal hWnd As IntPtr, ByVal n As Integer, ByRef lpScrollInfo As ScrollInfoStruct) As Integer
    End Function

    Private Structure ScrollInfoStruct
        Public cbSize As Integer
        Public fMask As Integer
        Public nMin As Integer
        Public nMax As Integer
        Public nPage As Integer
        Public nPos As Integer
        Public nTrackPos As Integer
    End Structure

    Public Sub New(ByRef callingRichTextBox As RichTextBox, ByRef LabelToUpdateTo As Label)
        Me.AssignHandle(callingRichTextBox.Handle)
        myLabel = LabelToUpdateTo
        myTextBox = callingRichTextBox
    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)

        Select Case m.Msg
            Case WM_HSCROLL, WM_VSCROLL
                Dim sInfo As New ScrollInfoStruct
                sInfo.fMask = SIF_ALL
                sInfo.cbSize = Len(sInfo)
                GetScrollInfo(m.HWnd, 1, sInfo)
                myLabel.Text = "nPos = " & sInfo.nPos & vbNewLine &
                               "char = " & myTextBox.GetCharFromPosition(New Point(1, sInfo.nPos)) & vbNewLine & _
                               "line = " & myTextBox.GetLineFromCharIndex(myTextBox.GetCharIndexFromPosition(New Point(1, sInfo.nPos)))

        End Select
    End Sub