Dim COMMAND As String = ("SELECT TabPrikazMzdyAZmetky.DatPorizeni,VPrikazMzdyAZmetkyKmenZbozi.RegCis,VPrikazMzdyAZmetkyPostup.nazev,TabPrikazMzdyAZmetky.kusy_odv,TabPrikazMzdyAZmetky_EXT._EPocetLidi,TabPrikazMzdyAZmetky.Sk_cas,TabPrikazMzdyAZmetky.Nor_cas_Obsluhy,VPrikazMzdyAZmetkyZamestnanec.Prijmeni,VPrikazMzdyAZmetkyZamestnanec.Jmeno,(CASE WHEN ISNULL(TabPrikazMzdyAZmetky.Sk_cas_Obsluhy, 0) = 0 OR ISNULL(TabPrikazMzdyAZmetky.Nor_cas_Obsluhy, 0) = 0 THEN 100 ELSE 100 * TabPrikazMzdyAZmetky.Nor_cas_obsluhy / TabPrikazMzdyAZmetky.Sk_cas_obsluhy END) AS _plneni_normy_o, rtrim(VMzdyAZmetkyCZavad.kod) + ' - ' + rtrim(VMzdyAZmetkyCZavad.nazev) AS _kod_nazev, VPrikazMzdyAZmetkyPostup.TAC_J, VPrikazMzdyAZmetkyPostup.TAC_Obsluhy_J, (Select TOP 1 TabPrPostup.BarCode FROM TabPrPostup WHERE TabPrPostup.IDPrikaz = VPrikazMzdyAZmetkyPrikaz.ID) AS _KodOperaceMontaz, VPrikazMzdyAZmetkyPrikaz.Prikaz FROM TabPrikazMzdyAZmetky WITH(NOLOCK) LEFT OUTER JOIN TabPrikaz VPrikazMzdyAZmetkyPrikaz WITH(NOLOCK) ON VPrikazMzdyAZmetkyPrikaz.ID = TabPrikazMzdyAZmetky.IDPrikaz LEFT OUTER JOIN TabCZavad VMzdyAZmetkyCZavad WITH(NOLOCK) ON VMzdyAZmetkyCZavad.ID = TabPrikazMzdyAZmetky.IDZavady LEFT OUTER JOIN TabKmenZbozi VPrikazMzdyAZmetkyKmenZbozi WITH(NOLOCK) ON TabPrikazMzdyAZmetky.IDTabKmen = VPrikazMzdyAZmetkyKmenZbozi.ID LEFT OUTER JOIN TabPrPostup VPrikazMzdyAZmetkyPostup WITH(NOLOCK) ON TabPrikazMzdyAZmetky.IDPrikaz = VPrikazMzdyAZmetkyPostup.IDPrikaz AND TabPrikazMzdyAZmetky.DokladPrPostup = VPrikazMzdyAZmetkyPostup.Doklad AND TabPrikazMzdyAZmetky.AltPrPostup = VPrikazMzdyAZmetkyPostup.Alt AND VPrikazMzdyAZmetkyPostup.IDOdchylkyDo IS NULL LEFT OUTER JOIN TabCisZam VPrikazMzdyAZmetkyZamestnanec WITH(NOLOCK) ON TabPrikazMzdyAZmetky.Zamestnanec = VPrikazMzdyAZmetkyZamestnanec.ID LEFT OUTER JOIN TabPrikazMzdyAZmetky_EXT WITH(NOLOCK) ON TabPrikazMzdyAZmetky_EXT.ID = TabPrikazMzdyAZmetky.ID WHERE ((TabPrikazMzdyAZmetky.TypMzdy <> 2)AND(((Select TOP 1 TabPrPostup.BarCode FROM TabPrPostup WHERE TabPrPostup.IDPrikaz = VPrikazMzdyAZmetkyPrikaz.ID)) LIKE N'" + TextBox1.Text + "'))AND((rtrim(VMzdyAZmetkyCZavad.kod) + ' - ' + rtrim(VMzdyAZmetkyCZavad.nazev)) IS NULL)") Dim CMD As New SqlCommand(COMMAND, CONNECTION) Dim DA As New SqlDataAdapter(CMD) Dim TABLE As New DataTable DA.Fill(TABLE) DataGridView1.DataSource = TABLE
SELECT TabPrikazMzdyAZmetky.DatPorizeni AS [Date], ...
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)