Visual Basic

Private Sub SplashForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PFCdbconnection = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source =F:\Device Files\MFC\Common\Shared\Printer Control\PFC.mdb;jet OLEDB:Database Password=password;")
        PFCdbconnection.Open()
        printerscommand(0) = New OleDbCommand("SELECT Printer,IPAddress,OffLine,Online FROM PrinterInfo ORDER by ID", PFCdbconnection)
        printersAdapter(0) = New OleDbDataAdapter()
        printersAdapter(0).SelectCommand = printerscommand(0)
        PrintersTable(0) = New DataTable
        printersAdapter(0).Fill(PrintersTable(0))
        PrintersManager(0) = DirectCast(Me.BindingContext(PrintersTable(0)), CurrencyManager)



        Dim MaxRow As Integer
        MaxRow = PrintersTable(0).Rows.Count

        Dim RPosition As Integer = 0
        Do Until RPosition = MaxRow
            PrintersTable(0).DefaultView.Sort = "Printer"

            PrintersManager(0).Position = RPosition
            PrinterIPTextBox.DataBindings.Add("Text", PrintersTable(0), "printer")
            If My.Computer.Network.Ping(PrinterIPTextBox.Text) Then

                OnlineRadioButton.Checked = True
            Else
                OfflineRadioButton.Checked = True
            End If
            PrintersManager(0).EndCurrentEdit()
            Dim CurrentInfoData As DataRow = PrintersTable(0).Rows(PrintersTable(0).Rows.Count - 1)
            If RPosition = -1 Then
                CurrentInfoData.Item("Online") = OnlineRadioButton.Checked
                CurrentInfoData.Item("offline") = OfflineRadioButton.Checked
                Dim PrinterInfoCom As New OleDbCommandBuilder(printersAdapter(0))
                printersAdapter(0).Update(PrintersTable(0))
            End If
            PrinterIPTextBox.DataBindings.Clear()
            RPosition = RPosition + 1
        Loop


    End Sub

Function
Prototype
BOOL CDECL NvCplGetThermalSettings
(IN UINT nWindowsMonitorNumber,
OUT DWORD* pdwCoreTemp,
OUT DWORD* pdwAmbientTemp,
OUT DWORD* pdwUpperLimit);
Parameters In UINT nWindowsMonitorNumber -- The display number shown on
the Windows Display Properties->Settings page.
A value of 0 indicates the current primary Windows display device.
DWORD* must be a valid pointer --
pdwCoreTemp -- GPU temperature in degrees Celsius.
pdwAmbientTemp -- Ambient temperature in degrees Celsius.
pdwUpperLimit -- Upper limit of the GPU temperature specification.
Return Values True on success.
False on failure.

<DllImport("nvcpl.dll", CallingConvention:=CallingConvention.Cdecl)>
Private Shared Function NvCplGetThermalSettings(ByVal nWindowsMonitorNumber As ULong, ByRef pdwCoreTemp As UInt32, ByRef pdwAmbientTemp As UInt32, ByRef pdwUpperLimit As UInt32) As Boolean
End Function

Public Function Temperature(ByVal monitornumber As Long) As UInt32
Dim core As UInt32
Dim ambient As UInt32
Dim upperlimit As UInt32
If NvCplGetThermalSettings(monitornumber, core, ambient, upperlimit) Then
Return core
Else
Return 0
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Temperature(0))
End Sub

Dim conn2 As New OleDbConnection()
conn2.ConnectionString = m_sExcelConnection
conn2.Open()
Dim cmd As New OleDbCommand()

cmd.Connection = conn2
cmd.CommandText = "CREATE TABLE Detail (Invoice_No char(255),CheckIn char(255),CheckOut char(255),"
cmd.CommandText += "RNum integer,Guest_Name char(255),Base_Room_Charge Decimal,Service_Charge Decimal,"
cmd.CommandText += "HEBERGEMENT Decimal,TPS Decimal,TVQ Decimal,Total_Taxes Decimal,Total_Charges Decimal,"
cmd.CommandText += "Total_Deposit Decimal)"

Try
    cmd.ExecuteNonQuery()
    conn2.Close()
Catch ex As Exception
    conn2.Close()
End Try