MysqlDataReader VB.NET 2010

Mysql data reader adalah class yang disediakan oleh mysql untuk mengakses data dari database mysql
dengan mysql data reader anda dapat menampilkan data yang diinginkan melalui queri yang selanjutnya data tersebut di pasing ke dalam mysqldatareader berikut ini adalah contoh kode vb.net untuk implementasi pengambilan data melalui mysqldatareader.

Imports MySql.Data
Imports MySql.Data.MySqlClient

private sub_coba() 

Dim connect As New MySqlConnection("server=localhost;uid=root;database=ticketing_system;pwd=;")
dim dr as mysqldataadapter
connect.Open()

Dim sqlcmd As New MySqlCommand("SELECT * complaint WHERE tran_no='" & lbltranno.Text & "'")

dr = sqlcmd.ExecuteReader()
dr.read()

 txdata.text=dr(0)

 
dr.close
connect.Close()

end sub


jika data yang di tampilkan lebih dari satu baris maka tinggal tambahkan looping seperti berikut


while dr.read
listbox1.item.add dr(0)

end while

data tersebut akan ditampilkan pada listbox


demikian terimakasih semoga bermanfaat

Menghitung Umur dengan vb.net 2010

Jika ingin menghitung umur dengan rincian tahun,bulan,dan hari misal
saya lahir pada tahun 24-09-1989 dan sekarang adalah tahun 29-09-2014 maka umur saya adalah:
 "25 tahun 0 bulan 5 hari".

Iklan

berikut ini adalah kode vb.net 2010 :


 Public Function hit_tanggal(ByVal awal As Date, ByVal akhir As Date, ByRef hasil As String)
        Dim tahun, bulan

        tahun = akhir.Year - awal.Year
        bulan = akhir.Month - awal.Month

        If System.Math.Sign(bulan) <= 0 Then

            bulan = 12 - System.Math.Abs(bulan)

            tahun = tahun - 1

        End If
        hasil = tahun & " Tahun " & bulan & " Bulan"
    End Function

Cetak struk dengan printer Mini Kasir (Epson TMU220,Eppos,MiniPos) dengan vb.net 2010

Halo
Assalamualaikum
Bismillah hirohmanirohim 
allah memberkati kita semua

pada kesempatan ini sy ingin share gmana print struk di printer kasir macam Epson Tmu 220 agar kertas tidak menggulung (panjang kertas Pas dengan data yg di cetak).
berikut ini adalah contoh kode vb.net 2010:

buat class

'---------
Imports System.IO
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices

Public Class RawPrinterHelper

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Structure DOCINFOW
        <MarshalAs(UnmanagedType.LPWStr)> Public pDocName As String
        <MarshalAs(UnmanagedType.LPWStr)> Public pOutputFile As String
        <MarshalAs(UnmanagedType.LPWStr)> Public pDataType As String
    End Structure

    <DllImport("winspool.Drv", EntryPoint:="OpenPrinterW", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function OpenPrinter(ByVal src As String, ByRef hPrinter As IntPtr, ByVal pd As Long) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="ClosePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function ClosePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="StartDocPrinterW", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function StartDocPrinter(ByVal hPrinter As IntPtr, ByVal level As Int32, ByRef pDI As DOCINFOW) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="EndDocPrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function EndDocPrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="StartPagePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function StartPagePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="EndPagePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function EndPagePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="WritePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function WritePrinter(ByVal hPrinter As IntPtr, ByVal pBytes As IntPtr, ByVal dwCount As Int32, ByRef dwWritten As Int32) As Boolean
    End Function

    Public Shared Function SendBytesToPrinter(ByVal szPrinterName As String, ByVal pBytes As IntPtr, ByVal dwCount As Int32) As Boolean
        Dim hPrinter As IntPtr
        Dim dwError As Int32
        Dim di As DOCINFOW
        Dim dwWritten As Int32
        Dim bSuccess As Boolean


        With di
            .pDocName = "Toko Komputer"
            .pDataType = "RAW"
        End With

        bSuccess = False
        If OpenPrinter(szPrinterName, hPrinter, 0) Then
            If StartDocPrinter(hPrinter, 1, di) Then
                If StartPagePrinter(hPrinter) Then

                    bSuccess = WritePrinter(hPrinter, pBytes, dwCount, dwWritten)
                    EndPagePrinter(hPrinter)
                End If
                EndDocPrinter(hPrinter)
            End If
            ClosePrinter(hPrinter)
        End If
        If bSuccess = False Then
            dwError = Marshal.GetLastWin32Error()
        End If
        Return bSuccess
    End Function


    Public Shared Function SendFileToPrinter(ByVal szPrinterName As String, ByVal szFileName As String) As Boolean
        Dim fs As New FileStream(szFileName, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim bytes(fs.Length) As Byte
        Dim bSuccess As Boolean
        Dim pUnmanagedBytes As IntPtr


        bytes = br.ReadBytes(fs.Length)

        pUnmanagedBytes = Marshal.AllocCoTaskMem(fs.Length)

        Marshal.Copy(bytes, 0, pUnmanagedBytes, fs.Length)

        bSuccess = SendBytesToPrinter(szPrinterName, pUnmanagedBytes, fs.Length)

        Marshal.FreeCoTaskMem(pUnmanagedBytes)
        Return bSuccess
    End Function

   
    Public Shared Function SendStringToPrinter(ByVal szPrinterName As String, ByVal szString As String)
        Dim pBytes As IntPtr
        Dim dwCount As Int32

        dwCount = szString.Length()
   
        pBytes = Marshal.StringToCoTaskMemAnsi(szString)

        SendBytesToPrinter(szPrinterName, pBytes, dwCount)
        Marshal.FreeCoTaskMem(pBytes)
    End Function
End Class

'--------------------

kemudian ini untuk mencetak

'----------------

Imports System.Drawing.Printing
    Sub cetak_struk()
  
        Dim s As String
        Const sLN As String = ControlChars.CrLf
        'Const tabx As String = ControlChars.Tab
        Dim pd As New PrintDialog
        Dim oPS As New System.Drawing.Printing.PrinterSettings
        'Dim sps As String

        s &= "            Toko Brownis Fortuna" & sLN
        s &= "Otlate   :  " & sLN
        s &= "Kasir    :" & sLN
        s &= "No struk :" & sLN
        s &= "tanggal  :  " & TimeOfDay & " " & sLN
        s &= "__________________________________________" & sLN
       'untuk mencetak item
 For x As Integer = 0 To dgvjual.RowCount - 1
            s &= " item  " & x & "   & " " & sLN
  
        Next
        s &= "                                           " & sLN
        s &= "                                           " & sLN
        s &= "                       ____________________" & sLN
        s &= "                        Subtotal :  101.000" & sLN
        s &= "                        Cash     :  101.000" & sLN
        s &= "                        Kembali  :  101.000" & sLN
        s &= "                                           " & sLN
        s &= "                                           " & sLN
        s &= "                                           " & sLN
        s &= "******Terima Kasih atas kunjungan anda*****" & sLN


        pd.PrinterSettings = New PrinterSettings
        'Dim prname As String
        RawPrinterHelper.SendStringToPrinter(oPS.PrinterName, s)
    End Sub


demikian silahkan di coba semoga bermanfaat.