Anonymní profil Krpik – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Krpik – Programujte.comAnonymní profil Krpik – Programujte.com

 

Příspěvky odeslané z IP adresy 46.174.58.–

MySQL › Selectovat názvy a částku ja…
11. 12. 2020   #387041

#2 Kit
To si nemyslím , že pomůže inner join změnit na LEFT JOIN.

Někde se musí dát podmínka asi když id položky se nenajde ve platbách tak on vypíše název té položky ale do řádku castka napíše 0.

Teď ještě koukám že tam mělo být  

select po.nazev, sum(pl.castka)....
MySQL › Selectovat názvy a částku ja…
11. 12. 2020   #387039

Zdravím,

Potřebuji vyselektovat prodej položek a částku.

Využiji script

select po.nazev,pl.castka from polozky po inner join platby pl on po.id = pl.idpolozka

where pl.datum = '2020-11-10' order by po.nazev

což mě vypíše např.

nazev    castka

Kniha      300

Hrnek      400

Ale ja mam více položek , u kterých není za ten den prodej a potřeboval bych je taky vypsat aby se jako castka napsala 0  nebo null

Vysledek by měl být

Nazev       Castka

Kniha          300

Hrnek          400

Mydlo           0

Potah           0

Prostěradlo  0

Děkuji

Visual Basic › Program mi nečte další selec…
5. 6. 2020   #386184

#8 MilanL
No jako script mohu upravit ale nevím asi mohu upravit ale nějak mě nenapadá jak to vyčítat z jednoho selectu hotovost a bezhotovost do dvou labelu.Navíc tam budu stejně řešit další select k vůli výpočtu DPH

Visual Basic › Program mi nečte další selec…
4. 6. 2020   #386180

#6 gna
Forma uhrady je správně v aplikaci mam tlačítko hotově nebo bezhotovostně.

Hotovost udělá insert... a hotovost dá 1 . a druhý dá zase bezhotovost 1.

nebudu popisovat tabulku kde jsou natukané jednotlivé položky a z čeho se dělá výpočet to s tímto nesouvisí.

Ještě mě napadlo tam dát že pokud ten select nic nenajde tak se napíše do Label "0". 

If IsNothing(i) Then
Visual Basic › Program mi nečte další selec…
4. 6. 2020   #386177

#4 gna
tohle je dobře ono se stane že v jednom dni tam neni třžba v hotovosti ale jen bezhotovostně takže on projede za daný den scripty první select hotovost tam nenajde nic tak už mi neprojede další select a to nevím proč . ukončené to mam myslím dobře takže pokud on nic nenajde tak by label měl byt prázdný ukončit se  a potom jede script ,který hledá částku bezhotovosti. 

Ale pokud v daném dní mam hotovost tak ji spočte a potom udělá i script bezhostovost správně

Visual Basic › Program mi nečte další selec…
4. 6. 2020   #386175

#2 Jerry
Na dotazy mam Heidi. O C# uvažuji ale už se mi to nechce psát znova když už to mám téměř hotové

Visual Basic › Program mi nečte další selec…
3. 6. 2020   #386171

Zdravím 

Udělal jsem si nový Form a kde jsem si dal Labely kde chci vypisovat výpočty částek různých plateb a následně si udělat tisk.

První select mě vypočte platby hotovosti a druhý platby bezhotovostně

Pokud první select za dané období nesečte žádnou částku (nebyla platba v hotovosti) tak druhý select mě nic také nespočítá i když platby tam byly.

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Try
            Call conecDB()


            Form1.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
            Form1.DateTimePicker1.Format = DateTimePickerFormat.Custom
            Form1.DateTimePicker2.CustomFormat = "yyyy-MM-dd"
            Form1.DateTimePicker2.Format = DateTimePickerFormat.Custom

            Dim cmd As New MySqlCommand("select sum(ROUND(s.celkovacena,2)) from platby  where hotovost = 1 and bezhotovost = 0 and placeno = 1 and storno = 0 and cas BETWEEN '" & Form1.DateTimePicker1.Text & "' AND '" & Form1.DateTimePicker2.Text & "' ", connDB)
            cmd.ExecuteNonQuery()

            Dim i As MySqlDataReader = cmd.ExecuteReader()
            While i.Read()
            Label3.Text = i("sum(ROUND(s.celkovacena,2))")


            End While
            i.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)

        End Try
        Try


            Dim cmm As New MySqlCommand("select sum(ROUND(s.celkovacena,2)) from platby  where hotovost = 0 and bezhotovost = 1 and placeno = 1 and storno = 0 and cas BETWEEN '" & Form1.DateTimePicker1.Text & "' AND '" & Form1.DateTimePicker2.Text & "' ", connDB)

            Dim y As MySqlDataReader = cmm.ExecuteReader()

            While y.Read
                Label5.Text = y("sum(ROUND(s.celkovacena,2))")

            End While
            y.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
      connDB.Close()
            connDB.Dispose()

        End Try

    End Sub

Děkuji za pomoc

PHP › PHP české měsíce
23. 2. 2020   #385535

#6 gna
opraveno tedy

 <?php
// set the month array
$MonthArray = array(
                    "1" => "Leden", "2" => "Unor", "3" => "Brezen", "4" => "Duben",
                    "5" => "Kveten", "6" => "Cerven", "7" => "Cervenec", "8" => "Srpen",
                    "9" => "Zari", "10" => "Rijen", "11" => "Listopad", "12" => "Prosinec",
                );
?>

<select name="month">
    <option value="">Vyber mesic</option>
    <?php
  foreach ($MonthArray as $monthNum=>$month) {
$selected = (isset($getMonth) && $getMonth == $monthNum) ? 'selected' : '';
//Uncomment line below if you want to prefix the month number with leading 0 'Zero'
//$monthNum = str_pad($monthNum, 2, "0", STR_PAD_LEFT);
echo '<option ' . $selected . ' value="' . $monthNum . '">' . $month . '</option>';
    }
    ?>
</select>

ještě opravit výpis vybraného měsíce do češtiny ale to asi dělá ta funkce

("F", mktime(null, null, null, $_POST['month']))

PHP › PHP české měsíce
21. 2. 2020   #385531

#3 krpik
Neee to ne zkoušel jsem to a array není řešení.

$mesice ('january => Leden ,,,,);

vyselektují mounth mysql takže se to propíše v angličtině a otázka zda to půjde přepsat do češtiny měsíce

PHP › PHP české měsíce
21. 2. 2020   #385529

#2 gna
no to asi nezapnu tuto funkci si myslím tedy.

Tak mě napadlo

$Nazev_mesice = array('Leden', 'Únor', 'Březen', 'Duben', 'Květen', 'Červen', 'Červenec', 'Srpen', 'Září', 'Říjen', 'Listopad', 'Prosinec'); 

A potom to echem nechat vypsat z názvu do mouth 

echo($Nazev_mesice[$month]);

.

.

$month = date('F', mktime(0, 0, 0, $i));
Visual Basic › VB ODBC načíst do comboboxu
21. 2. 2020   #385528

#14 gna
Pravda 

 Private Sub nacti_nazev_odbc()

tady mam načítání názvu z ODBC a na konci mám  

ComboBox1.Items.Add(Nazev)

a potom

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
        nacti_nazev_odbc()

Visual Basic › VB ODBC načíst do comboboxu
21. 2. 2020   #385524

#12 MilanL
ano chybí ale to je jen pojmenování funkce ja jsem něco tam zkoušel a zapomněl jsem ten název opravit 

Visual Basic › VB ODBC načíst do comboboxu
21. 2. 2020   #385522

#10 gna 

    Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
        Dim dsnNames As New List(Of String)
        Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
        reg = reg.OpenSubKey("ODBC")
        reg = reg.OpenSubKey("ODBC.INI")
        reg = reg.OpenSubKey(ODBCName)
        Return reg.GetValue(ValueName)

        For Each dsn As String In reg.GetSubKeyNames
            dsnNames.Add(dsn)
        Next
        For Each Name As String In dsnNames
            ComboBox1.Items.Add(Name)
        Next Name

    End Function

ale jo propíše se 

upravil jsem ještě connectstring u buttonu a jede to si myslím tak jak má snad

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



        Dim connString As String = String.Format("Database='{0}';Data Source='{1}';PWD='{2}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"), GetODBCValu(ComboBox1.SelectedItem, "PWD"))
        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()
PHP › PHP české měsíce
21. 2. 2020   #385521

Zdravím, 

Mam vytvořenou stránku a tabulku ,kde se mi selectují data a potřeboval bych je filtrovat dle měsíce

vytvořil jsem na to program

historie.php

	
            <?php
            
        $i = date('j.n.Y', strtotime(StrFTime('%Y-%m-%d')));

echo $i;
							for ($i = 1; $i <= 12; $i++){


$month = date('F', mktime(0, 0, 0, $i));

						?>
								<option value="<?php echo $i; ?>"><?php echo $month; ?></option>
						<?php
							}  
						?>
					</select>
					<label>Rok: </label>
					<select name="year" class="form-control">
						<?php
							for ($i = date('Y'); $i >= 1965; $i--){
						?>
							<option value="<?php echo $i; ?>"><?php echo $i; ?></option>
						<?php
							}
						?>
					</select>
					<button class="btn btn-primary" name="search">Hledat</button>
				</div>
			</form>
			<h4>Hledali jste: <span class="text-primary"><?php if(ISSET($_POST['search'])){echo date("F", mktime(null, null, null, $_POST['month']));}?></span> <span class="text-primary"><?php if(ISSET($_POST['search'])){echo $_POST['year'];}?></span></h4>
			<table class="table table-bordered">
				<thead class="alert-info">
					<tr>

search.php

require'conn.php';
	
	if(ISSET($_POST['search'])){
		$month=$_POST['month'];
 	$year=$_POST['year'];

 		$query=mysqli_query($conn, "SELECT * FROM `databaze` WHERE  month(cas)='$month' AND year(cas)='$year'") or die(mysqli_error());
		while($fetch=mysqli_fetch_array($query)){
			echo "<tr><td>".$fetch['cas']."</td><td>".$fetch['popis']."</td><td>".$fetch['poznamka']."</td></tr>";
		}

 Vytvoří se mi combobox , kde se mi vypíšou názvy měsíce ale vypíši se mi anglicky,

nedopisuji ji celé kody ale to snad nebude důležité

Potřeboval bych to převést do českého jazyka ty měsíce,

Lze to vůbec?

Děkuji

Visual Basic › VB ODBC načíst do comboboxu
20. 2. 2020   #385519

#8 MilanL
děkuji za radu

ja jsem to pokusil se upravit

Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
        Dim dsnNames As New List(Of String)
        Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
        reg = reg.OpenSubKey("ODBC")
        reg = reg.OpenSubKey("ODBC.INI")
        reg = reg.OpenSubKey(ODBCName)
        Return reg.GetValue(ValueName)

        For Each dsn As String In reg.GetSubKeyNames
            dsnNames.Add(dsn)
        Next
        For Each Name As String In dsnNames
            ComboBox1.Items.Add(Name)
        Next Name

    End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



        Dim connString As String = String.Format("Database='{0}';Data Source='{1}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"))
        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()

To mě napadlo že pokud vyberu databázi v comboboxu tak si to šáhné do ODBC a do connString do dle příkazu doplní server a název databáze

Pak mě to ale ve výsledku píše Index je mimo rozsah,Index musí být nezáporný a musí být menší než velikost kolekce.Název Parametru: index

No ještě tam bude nějaká chyba

Visual Basic › VB ODBC načíst do comboboxu
18. 2. 2020   #385501

#4 MilanL
mě napadlo spíše to nechat vyčíst z registru ODBC tam je vlastně všechno napsáno.

napsat aby mě vlezl do registru a přidal do comboboxu

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        nacistodbc()

Private Sub nacistodbc() 

combobox1.Items.Clear()

Dim odbcnazev=Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", False).GetValueNames() 

For Each item As Object In odbcnazev 
combobox1.Items.Add(item) 

Next

Nenašel jsem o tom nějaké informace co nejlépe použít

Visual Basic › VB ODBC načíst do comboboxu
17. 2. 2020   #385491

Zdravím,

chtěl bych se zeptat zda by šlo načíst databáze do comboboxu.

Mam v ODBC uložené databáze MYSQL 5.2a

V nyní mám hotové 3 aplikace které jsou napojené na každou databázi zvlášt

pomoci :

  Dim connString As String = "Database=DATA_SKLAD1;Data Source=IP_ADRESA;" _
       & "User Id=root;Password="

        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()

        Try
            Call conecDB()
            dt = New DataTable '
            Dim con As New SqlConnection

což je nepraktické 

Stačí mě abych měl jednu aplikace ale tam bych potřeboval mít combobox ,který mě vyčte názvy z ODBC.

Pokud vyberu název databáze tak se mě připojí aplikace k dané databázi a už pracuji

Mohl bych to vyřešit v kódu že bych přes chatbox si zapnul tu danou databázi ale mám více stanic které se připojují zase k jiným databázím a univerzalní řešení pro mě je aby se ty názvy načetli do comboboxu

Napadlo mě využít ODBC.ini z registru kde se vlastně zapisují Názvy databázi a další údaje ale nevím přesně jak na to.

Nemáte nějaký typ ?

Děkuji

Delphi › Vytvořit v Excelu více sešit…
11. 12. 2019   #385020

Zdravím.

Nevím zda tohle vůbec půjde.

Mam program v Delphi vyroben program , který má 5 buttonu a je připojen na mysql databázy .

Každý button obsahuje select a export do csv tedy po stisknutí se vyčte select a hodnoty se mi uloží do CSV.

A potřebuji vyselectovat pět různých údajů proto tam mam 5 tlačítek ale udělá mě to 5x CSV.

A moje otázka zní zda bych mohl mít jen 1 button, který mě projede těch 5 selectu s databáze a hodnoty uloží do jednoho souboru , kde bude pět sešitů?

Děkuji

MySQL › Mysql opačná hodnota při upd…
3. 11. 2019   #384510

Zdravím

Mam příkaz

update Tabulka1 join tabulka2

 on tabulka2.id = Tabulka1.t2_id  - porovnávám tabulky podle stejných hodnot

set

Tabulka1.A= Tabulka2.B potřebuji hodnoty z Tabulka2.B se přesunuly do Tabulka1.A

where Tabulka2.B= 1  - podmínka hledat pouze kde je hodnota 1

Příkaz mě porovná idčka tabulek mezi sebou a vyhledá Tabulka2.B hodnoty 1 a ty mě přepíše do  Tabulka1.A jako hodnotu 1. 

tady bych potřeboval aby mi to nepřepsalo jako 1 ale jako 0

Nevíte prosím co použít?

Visual Basic › Smazat text s listboxu ,kter…
26. 9. 2019   #384334

Děkuji moc za pomoc

vybral jsem první řešení ,které si upravuji a přidal jsem ji ještě další smazání

tedy nyní by se mi měli vyhledat a nepřidávat do listboxu věty které začínají /** a končí */

dále pak <!-- a končí -->

dále pak se mi z listboxu smažou řádky kde je //

problém je u <!-- --> nezapíše se mi text který začne <!-- a dále ale když to končí --> tak to se zapíše a to by ale nemělo

takže pokud mam

<!-- věta věta věta

věta věta věta

věta -->

tak aplikace mi do listboxu zapíše 

věta --> ' tohle by tu už nemělo být

dále u listboxu se bojím, že pokud bude text např.

věta která se nemaže /** smazat pouze toto */ - tak to smázné celý řádek

Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.php)|*.php"}
        If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
            For Each line As String In File.ReadAllLines(openfile.FileName)

            Next
        End If
        dim komentar as boolean

        komentar = False

        For Each line As String In File.ReadAllLines(openfile.FileName)

            If Not line.IndexOf("<!-") = -1 Then
                komentar = True
            End If

            If komentar Then
                If Not line.IndexOf("-->") = -1 Then
                    komentar = False
                End If
            End If
            If Not line.IndexOf("/**") = -1 Then
                komentar = True
            End If

            If komentar Then
                If Not line.IndexOf("*/") = -1 Then
                    komentar = False
                End If
            Else
                ListBox1.Items.Add(line)
            End If

        Next

        Dim ValueToSearchFor As String = "//"

        For I As Integer = ListBox1.Items.Count - 1 To 0 Step -1



            If ListBox1.Items(I).ToString.Trim.Length = 0 Then


                ListBox1.Items.RemoveAt(I)

            Else

                If CheckBox3.Checked Then

                    If ListBox1.Items(I).ToString.IndexOf(ValueToSearchFor) <> -1 Then
                        ListBox1.Items.RemoveAt(I)
                    End If
                End If
            End If
        Next
Visual Basic › Smazat text s listboxu ,kter…
10. 9. 2019   #384244

#7 MilanL
děkuji za odpověd

možná mě napadlo že by ty html komentaře mohl už mazat ve visualku přes Find Replace ale pokud je to na více řadu

<!-- koment

koment

koment -->

tak je to to stejné

Visual Basic › Smazat text s listboxu ,kter…
10. 9. 2019   #384238

#4 gna
no napadlo mě že to bude lepší když si tlačítkem načtu text do listobu ,dalším tlačítkem uložím upraveny text v listoboxu a třetí tlačítko nechám na upravu textu

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.php)|*.php"}
        If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
            For Each line As String In File.ReadAllLines(openfile.FileName)
                ListBox1.Items.Add(line)
            Next
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' SAVE DIALOG
        Dim SaveFileDialog1 As New SaveFileDialog
        SaveFileDialog1.FileName = ""
        SaveFileDialog1.Filter = "Text Files (*.php)|*.php|All Files (*.*)|*.*"

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim sb As New System.Text.StringBuilder()

            For Each o As Object In ListBox1.Items
                sb.AppendLine(o)
            Next

            System.IO.File.WriteAllText(SaveFileDialog1.FileName, sb.ToString())
        End If
    End Sub

------------------------------

tak a třetí button který v listboxu smazné ty danné texty co obsahuji znaky

a bud to udělam s pomoci Regexu což ale není účinné pro více řádku

  Dim IndexInteger As Integer = ListBox1.SelectedIndex
        Dim Results =
            (
                From T In ListBox1.Items
                Select System.Text.RegularExpressions.Regex.Replace(CStr(T), "<!--(.|\s)*?-->", "")
            ).ToArray

        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(Results)

        If IndexInteger <> -1 Then
            ListBox1.SelectedIndex = IndexInteger
        End If

nebo

přes indexy ale to nevím jak na to
int start = input.IndexOf("<--");

int end = input.IndexOf("-->");
 

Visual Basic › Smazat text s listboxu ,kter…
9. 9. 2019   #384233

Napadlo mě na button

For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim Text As String = Convert.ToString(ListBox1.Items(i))
            Text = Regex.Replace(ListBox1.Items(i), "<!--[^\-]+-->", "")

            ListBox1.Items(i) = Text

Požit Regex ale tohle mě vymaže pouze řádek

pokud bude text

<!-- aaaaa

aaaa

aaaa --> 

tak ho už nesmaže pouze první řádek

Visual Basic › Smazat text s listboxu ,kter…
9. 9. 2019   #384231

Zdravím

potřebuji aplikaci která smaže věty s listboxu které začínají <!-- a končí -->

např.

<!-- komentář k podmínce

komentař pokračuje

komentař končí -- >

aplikace vyhledá a smaže tedy všechny tři řádky

můj kod co mam zatím

Dim items As New List(Of String)
        Dim nalezslovo As Boolean

        Dim A As String() = {"<!--"}
        Dim B As String() = {"-->"}

        For i As Integer = 0 To ListBox1.Items.Count - 1


            For Each slovo As String In A

(zde nevím jak dostadit aby aplikace vyhledala také znaky pod B)


                nalezslovo = False

                If ListBox1.Items(i).ToString.Contains(slovo) Then
                    nalezslovo = True
                    Exit For
                End If

            Next

            If nalezslovo = False Then items.Add(ListBox1.Items(i))

        Next


        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(items.ToArray)

aplikace nyní dělá že vyhledá pouze <!-- a smaže jen první větu,potřeboval bych dosadit podmíku pro --> aby aplikace vyhledala větu začinajíci <!-- a končíci -->

Děkuji za odpovědi

Inzerce › Hledám programátora C++,C#
8. 9. 2019   #384229

#6 milkomaxx
to je jedno.Měla by to být aplikace

Spustím aplikaci 

otevřu si soubor s textem,

program vyhledá texty ktere začínájí <!-- a končí --> a vymaže je

a tlačítko na uložení

a jak jsem psal text může být na více řádku

<!-- text text text

text text

text text text -->

další funkce nejsou potřeba

.NET › C# Diakritika v listboxu
7. 9. 2019   #384227

#2 gna
děkuji pomohlo

.NET › C# Diakritika v listboxu
7. 9. 2019   #384222

Zdravím

napsal jsem si kod kterým si po kliknutí na button otevřu soubor většinou PHP

kod jen pro info:

public Form1()

        {

            InitializeComponent();

        }

        private void button1_Click(object sender, EventArgs e)

        {

            if (openFileDialog1.ShowDialog() != DialogResult.Cancel)

            {

                string[] lines = File.ReadAllLines(openFileDialog1.FileName);

                listBox1.DataSource = lines;

            }

        }

když se mi načte do listboxu tak zde místo písmen s diakritikou je �

nevíte prosím jak to napravit aby tam byly písmena s diakritikou?

děkuji

Inzerce › Hledám programátora C++,C#
6. 9. 2019   #384220

#4 Jerry
Tak původní požadavek jsem začal dělat takže tohle již nepotřebuji.

mam ale jinak nový požadavek  jestli by byl zájem.

Jedná se o program který načte soubor s textem ten může vypsat do listboxu ale není to podmínka

text obsahuje php kod který má poznámky

před poznamkou a za poznamkou jsou znaky <!-- a -->

program by měl vyhledat tyto znaky a smazat je i z poznámkou .

příklad

kod
kod
<!-- zde bude poznamka
druhý řádek
třetí řádek -->
kod
kod
kod
<!-- zde bude poznamka
druhý řádek
třetí řádek -->

po kliknutí na button

kod
kod

kod
kod
kod

---------

a samozdřejme upraveny text opět uložit

Visual Basic › Více delete pro button
26. 7. 2019   #384037

Zravím,

Prosím o radu jak udělat kod abych buttonem smazal data z několika tabulek v mysql databazi

 dt = New DataTable 'data
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        DateTimePicker1.CustomFormat = "yyyy-MM-dd"
        DateTimePicker1.Format = DateTimePickerFormat.Custom
   
        Dim dt As String = ("Delete from tabulka1 where radek2 < '" & DateTimePicker1.Text & "'")

      // zde přidat kod aby mi to asi ukončilo script a načetlo druhy
       
        Dim dt As String = ("DELETE FROM tabulka 2 WHERE radek1 and closed  < '" & DateTimePicker1.Text & "'")

pod buttonem bude více delete takže každy delete se bude muset asi ukončit aby se načetl potom další řadek

máte někdo zkušenost?

Visual Basic › ukončení načteného scriptu
21. 7. 2019   #384019

Zdravím 

Mam program napojen na mysql databázi.

udělal jsem si nový Form kde mam na button script 

 da = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT data1,data2,data3,data4 FROM Adata inner join Bdata  where data1 = '" & TextBox1.Text & "' and data2 bETWEEN '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'", connDB)
            comDB.Parameters.AddWithValue("@STARTDATE", DateTimePicker1.Visible)
            comDB.Parameters.AddWithValue("@ENDDATE", DateTimePicker2.Visible)

jen pro představu 

Pokud zadám název do textu editu a nastavim si datum v DatetimePicker tak mě to vypíše co potřebuji

ale pokud chci zadat opět nový název a datum tak už mě to ukáže že tam je nadefinováno @Startdate

prosím o radu jakým příkazem ukončit načtený script abych ho mohl opět použít

Inzerce › Hledám programátora C++,C#
18. 7. 2019   #384016

#2 Jerry
Je mi to jasné že to nebude za 100 kč. Nepočítám ale práci na hodně hodin. Jedna se jen o aplikaci která bude mít Menu kde se vybere daná funkce a  buttonem se vyselektuje daným scriptem a do viewgrindu se vypíše výsledek prakticky nic víc ani vzhled se nebude řešit nebude to aplikace k dalšímu prodeji nebo tak

Inzerce › Hledám programátora C++,C#
17. 7. 2019   #384014

Zdravím,

Sháním programatora na jednorazovou akci.

Potřebuji vyrobit aplikaci,ktéra se bude připojovat na mysql 5.2a databázi lokalní,

Aplikace bude mít Menu které bude obsahovat funkce.

Daná funkce bude mít prvky na kterých se domluvíme. Ke všemu dám scripty ty bude potřeba upravit aby je přečetlo C++. Dále dodám databázi

Domluvit se můžeme na krpi1141@seznam.cz

Delphi › Rozdělení mysql příkazu
14. 1. 2019   #382794

#14 MilanL
Děkuji již jsem dneska dopoledne na to ještě mrknul a našel odpověd

  adoQuery2.SQL.Text :='CREATE or Replace view view_platby_karty ' + - dal jsem za každý řádek pro spojení scriptu

                    ' as select DATE_FORMAT

dále jsem si tam přidal ADOQuery2.ExecSQL(); a jede to 

asi to není nejlepší řešení přestal mi fungovat IF ELSE kdyby mi to nic nenačetlo tak abych věděl

     if AdoQuery2.IsEmpty then
     ShowMessage('Nic nenalezeno')

              else
     ShowMessage('Načteno');

to už je ale jiný příběh 

Děkuji všem za pomoc

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382780

#9 jerry
Ja jedu na počítači na mysql 5 , to bude vadit ne?

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382778

#7 Kit
jsou to dva jeden vytvoří tabulku ze selectem a druhy mi z ní vypíše hodnoty

CREATE or Replace view `view_platby_karty`
 as select
 DATE_FORMAT(s.closed,"%d.%m.%Y") datum, sum(case when s.storno=1 then 0 else CelkovaCena end) as trzba_celkem, 
SUM(case when s.storno=1 then 0 ELSE s.CelkovaCena/(100+s.SAZBA)*100 END) as zaklad_DPH, 
SUM(CASE WHEN COALESCE(s.SAZBA,0)=0 THEN s.CelkovaCena/((100+s.SAZBA)/100) ELSE 0 END )as bez_DPH, 
SUM(CASE WHEN s.SAZBA=21 THEN (s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as dph21, SUM(CASE WHEN s.SAZBA=15 
THEN (s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as dph15, SUM(CASE WHEN s.SAZBA=10 THEN (s.CelkovaCena/1.10)*(s.SAZBA/100) 
ELSE 0 END )as dph10, SUM(CASE WHEN s.SAZBA=21 THEN s.CelkovaCena-(s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph21,
SUM(CASE WHEN s.SAZBA=15 THEN s.CelkovaCena-(s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph15, 
SUM(CASE WHEN s.SAZBA=10 THEN s.CelkovaCena-(s.CelkovaCena/1.10)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph10 
from platby P inner join p_polozky s where p.id_ucty= s.id_ucty

and p.druh_platby_id =  '6'
and s.closed<>"0000-00-00%" AND s.storno<>1 AND DATE_FORMAT(s.closed,"%Y-%m-%d %H:%i") BETWEEN '2018-01-01'  AND  '2018-12-12'
 GROUP BY YEAR(s.closed), MONTH(s.closed),DAY(s.closed),s.id_ucty ;

píšu to jako

adoQuery2.SQL.text :='CREATE or Replace view `view_trzba_karty`';
               adoQuery2.SQL.text := adoQuery2.SQL.text + ' as select';

atd.

----------------

Teď dalším selectem dělám už sumy u DPH a vypíšu

 napsal bych to pod další button 

zde bych potom doplnil

Var
  i: integer;
  strT: string;
  slst: TStringList;

adoQuery1.SQL.Clear;
  adoQuery1.SQL.Add('select....

.slst:= TStringList.Create;
Try
  With DBGrid1.DataSource.DataSet Do
  begin
          First;
    while not Eof do
    begin
      strT:= ';'+Fields[0].AsString+';';
      for i:= 1 to FieldCount-1 do
        strT:= strT+';'+Fields[i].AsString+';';
      slst.Add(strT);
      Next;
    end;
          First;
  end;
  slst.SaveToFile('C:\data\test.xls');
Finally
  slst.Free;
End;

ale i když nechám ten první script pod jedním buttonem tak mě to nevytvoří tabulku a i když ten script by měl být správný

Delphi › Rozdělení mysql příkazu
13. 1. 2019   #382775

#5 MilanL
Děkuji tohle mi pomohl.

A náhodou nevíš jak tam napsat CREATE or Replace view `view_trzba_karty` ?

Pořád se mi to nedaří 

Mam zde dva selecty

CREATE or Replace view `view_trzba_karty` 

as select --- a teď mam select , který mi vyčte do tabulky view_trzba_karty vypočet DPH

za tím mám druhý select ,který vyčte z tabulky view_trzba_karty datum a  DPHačka na dvě desetina místa

Nechávám si to vyčíst celé do mema abych věděl jak to čte program to si zkopíruji do heidisql a tam mi script funguje

Delphi › Rozdělení mysql příkazu
11. 1. 2019   #382739

#2 jerry
Děkuji

Touhle cestou už bych asi nechtěl jít

program mam už hotový tohle je poslední příkaz co mi tam chybí. Mam to jen pro moje malé podnikání

Dlouhý příkaz co mam je potom rozdělení DPH pro  účetní

zaklad a daň z 15 a 21 % DPH, to mi krásně rozepíše a pak bych k tomu přidal uložení do CSV nebo txt 

Delphi › Rozdělení mysql příkazu
11. 1. 2019   #382737

Zdravím

Mam vytvořen script Select , který je ale dlouhý protože si potřebuji vypsat hodně tabulek a porovnat

Delphi mi nevezme tak velký příkaz do jednoho řádku

procedure TForm1.Button7Click(Sender: TObject);
begin
 with adoQuery1 do
  begin
  Active:=False;
      sql.clear;
     adoQuery1.SQL.Add  -- a zde bude dlouhý příkaz

Jak mohu příkaz rozdělit na více řádku aby se mi načetl jako jeden celý

děkuji

MySQL › SELECT_Vypsat_částky_dle_dph
9. 1. 2019   #382729

Zdravím

Mam program s databází 

V sql mam tabulky které teď potřebují porovnat a vypsat jak  potřebuji

tabulka prodej , platební_metoda,celkovy_prodej

V prodeji mám co si u mě zakoupí

JAKO Příklad

id 100 cd verbatin  množství 1ks  částka 10 kč DPH 15 

id 100 CD Karel Gott množství 1ks částka 200 kč DPH 15 

teď např něco z 21 % DPH

id 100 Pivo množství 1ks částka 10 kč DPH 21 

Platební metody mam id 1 to je hotově , id 2 to je kartou

celkovy_prodej 

zde mam celkovou částku tedy finální za ten nákup položek

tedy příklad

ID 1 , ID_prodej 100 Celkova castka 220 typ_platby 2

Zajímá mě co jsem celkově prodal v kartě a mít to rozepsáno jako částka v 15% DPH a 21% DPH

ve finále by to mělo být

částka     DPH

210            15

10              21

Je to jen příklad jde mi o script zda by jste někdo nevěděl 

Děkuji předem

Delphi › Více příkazu DELETE pro jede…
2. 12. 2018   #382507

#3 gna
No ale pomohl jsi mi tím slovem multi-statement :-D vygooglil jsem to a našel

Už jsem nevěděl jak to hledat

Za každý příkaz dat ExecSQL;  SQL.Clear; a je to

Děkuji

Delphi › Více příkazu DELETE pro jede…
2. 12. 2018   #382504

Zdravím, 

Mám aplikaci pro jednoduchý sklad a prodej

Používám k tomu mysql databázi

Zde bych chtěl udělat program , který mi smaže data ke dni

takže jsem si udělal nový program kde mam button a textedit

Do textedit zadávám datum např. 2018-01-01

Button mi projede příkazy

procedure TForm1.Button2Click(Sender: TObject);

begin


with adoQuery1 do
  begin

    Active:=False;
      sql.clear;

 adoQuery1.SQL.Add('Delete from prodej where Cas < '+ QuotedStr(Edit1.Text));

adoQuery1.SQL.Add('DELETE FROM inventura WHERE  timestamp  < '+ QuotedStr(Edit1.Text)); ;

   adoQuery1.SQL.Add('DELETE FROM prodej_polozek WHERE Cas < '+ QuotedStr(Edit1.Text));

tedy bude to vypadat jako 

 adoQuery1.SQL.Add('Delete from prodej where Cas < ' '2018-01-01'));

Problém je že mi to smaže jen data z jedné tabulky

můžete mi poradit co zde přidat aby mi button smazal všechny tři tabulky?

Krpik
C / C++ › C+ doplnění do labelu
13. 9. 2016   #212676

Dobrý den

Mám tři text boxy a jeden LABEL

Program by měl fungovat:
Label bude mít v sobě číslo 0.V textboxu 1,2 se zapíše 0.Pokud do Textboxu 1 nebo 2 napíší číslo 1 změní se číslo v labelu na 1.
třetí text box bude mít napsán číslo 1 .Nesmí se ale změnit label na 1 ten bude pořád 0.Pokud třetí textbox změním na číslo 0, Číslo v Labelu se změní na 1.

vždy se bude bude měnit pouze jeden textbox .Buttonem se vráti vše do původní podoby tedy Textbox 1,2 bude mít číslo 0.Textbox 3 bude mít číslo 1 a label číslo 0

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý