Visual Basic

<br />
#Region " waveInOpen "<br />
    'opens input for recording<br />
    'had to take entry tag out please note<br />
    DllImport("winmm.dll", EntryPoint:="waveInOpen", _<br />
    CallingConvention:=CallingConvention.StdCall)> _<br />
    Public Shared Function waveInOpen(ByRef lphWaveIn As IntPtr, ByVal uDeviceID As Integer, _<br />
    ByRef lpFormat As WAVEFORMAT, ByVal dwCallback As Integer, ByVal dwInstance As Integer, _<br />
    ByVal dwFlags As Integer) As Integer<br />
<br />
    End Function<br />
<br />
    'used to describe format of wave data<br />
<br />
    <StructLayout(LayoutKind.Sequential)> _<br />
    Structure WAVEFORMAT<br />
        Public wFormat As Short<br />
        Public nChannels As Short<br />
        Public nSamplesPerSec As Integer<br />
        Public nAvgBytesPerSec As Integer<br />
        Public nBlockAlign As Short<br />
    End Structure<br />
<br />
    Private Const WAVE_MAPPER As Integer = -1&<br />
    Private Const WAVE_FORMAT_DIRECT As Integer = &H8<br />
    Private Const CALLBACK_NULL As Integer = &H0<br />
    Private Const WAVE_FORMAT_PCM As Integer = 1<br />
    Private structWaveInputVars As WAVEFORMAT<br />

<br />
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim l As Long<br />
        l = waveInGetDevCaps(0, structWave, Marshal.SizeOf(structWave))<br />
        With structWaveInputVars<br />
            .wFormat = WAVE_FORMAT_PCM<br />
            .nChannels = 2<br />
            .nSamplesPerSec = 11025<br />
            .nAvgBytesPerSec = .nSamplesPerSec * .nBlockAlign<br />
            .nBlockAlign = 4<br />
<br />
        End With<br />
        Dim hDevice As IntPtr<br />
<br />
<br />
        l = waveInOpen(hDevice, 0, structWaveInputVars, 0, 0, CALLBACK_NULL)<br />
<br />
    End Sub<br />
<br />

<br />
'opens input for recording<br />
    <DllImport("winmm.dll", EntryPoint:="waveInOpen", _<br />
    CallingConvention:=CallingConvention.StdCall)> _<br />
    Public Shared Function waveInOpen(<Out()> ByRef lphWaveIn As IntPtr, ByVal uDeviceID As Integer, _<br />
    ByRef lpFormat As WAVEFORMATEX, ByVal dwCallback As Integer, ByVal dwInstance As Integer, _<br />
    ByVal dwFlags As Integer) As Integer<br />
<br />
    End Function<br />
<br />
    'used to describe format of wave data<br />
<br />
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _<br />
    Structure WAVEFORMATEX<br />
        Public wFormat As Short<br />
        Public nChannels As Short<br />
        Public nSamplesPerSec As Integer<br />
        Public nAvgBytesPerSec As Integer<br />
        Public nBlockAlign As Short<br />
        Public wBitsPerSample As Short<br />
        Public cbSize As Short<br />
<br />
    End Structure<br />
<br />
    Private Const WAVE_FORMAT_QUERY As Long = &H1<br />
    Private Const WAVE_MAPPER As Integer = -1&<br />
    Private Const WAVE_FORMAT_DIRECT As Integer = &H8<br />
    Private Const CALLBACK_NULL As Integer = &H0<br />
    Private Const WAVE_FORMAT_PCM As Integer = 1<br />
    Private structWaveInputVars As WAVEFORMATEX<br />
<br />
<br />
#End Region<br />

<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim l As Long<br />
        With structWaveInputVars<br />
            .wFormat = WAVE_FORMAT_PCM<br />
            .nChannels = 2<br />
            .nSamplesPerSec = 11025<br />
            .nAvgBytesPerSec = 176400 'no longer calculated<br />
            .nBlockAlign = 4<br />
            .wBitsPerSample = 8<br />
            .cbSize = 0<br />
        End With<br />
<br />
        hDevice = Marshal.AllocHGlobal(4)<br />
        <br />
<br />
<br />
        l = waveInOpen(hDevice, 0, structWaveInputVars, 0, 0, CALLBACK_NULL)<br />
<br />
    End Sub<br />

TRUNCATE TABLE <table-name>

Dim query as string = "TRUNCATE TABLE DAP"<br />
'or if you need to log the action - but truncate will be faster<br />
'Dim query as String = "DELETE FROM DAP"<br />
Dim OLEConn = New OleDb.OleDbConnection("connection string goes here")<br />
dim cmd as OleDbCommand = New OleDb.OleDbCommand(query, OLEConn) <br />
cmd.ExecuteNonQuery