listview   zodpovězená otázka

VB.NET, Komponenty, Databáze

Dobrý den, jak z objektu ListView, ve kterém mám dva sloupce, ve kterých jsou načteny data z databáze(v prvním název sloupce a v druhém datový typ), vypíšu hodnoty do textBoxu. Píše to chybu, že to nelze převést na string.

Předem děkuji

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Verze: Visual Basic 2005 express edition

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Upřesněte prosím dotaz. Nevím jakým způsobem vypisujete data, jakým je čtete, co máte za tabulky a ani neuvádíte kód, který nefunguje. Takto vám nikdo nemůže odpovědět - myslete prosím na to, že diskuzní fórum není jen pro vás ale i pro ostatní uživatele, kteří budou v budoucnu hledat odpovědi. Zkuste tedy i vybrat vhodný název diskuzního tématu pro lepší vyhledatelnost. A navíc přispíváte do fóra "Visual Basic 6" místo "Visual Basic .NET", proto ho přesunuji správně. Uvědomte si, že ostatní raději odpovídají lidem, co si dají s popsáním problému práci - žádáte je totiž nejen o znalosti, ale i o jejich čas.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Ok, omlouvám se, nejsem žádnej profik.

Do prvku listview načítám data takto:

Do While dataReader.Read
            If dataReader("is_primary_key") = 1 Then
                With Me.LstvColumns.Items.Add(dataReader("Name"), 0)
                    .SubItems.Add(dataReader("data_type"))
                End With
            Loop

Dále bych potřeboval z této tabulky vypsat do textBoxu trigger, ve kterém potřebuji hodnoty z listview z prvního sloupce, chtěl jsem to udělat takto:

TextBox.Text = "CREATE TRIGGER [nazev] ON [tabulka] FOR insert" & Environment.NewLine & "AS" & Environment.NewLine & "INSERT INTO Changes (AppCode,  BatchNumber, CommandType, TableVersion, DateChange, TableName, RowData)" & Environment.NewLine & "(SELECT 'PIG', NULL, 'I',2, CURRENT_TIMESTAMP, '" & LstTables.SelectedItem & "',"

        For i = 0 To k
           TextBox6.Text = TextBox6.Text & Environment.NewLine & " CASE WHEN d." '''__Listview.Items.Item(i)__'''
        Next

ten trigger by měl vypadat takto:

CREATE TRIGGER [nazev] ON [tabulka] FOR insert

AS

INSERT INTO Changes (AppCode, BatchNumber, CommandType, TableVersion, DateChange, TableName, RowData)

(SELECT 'PIG', NULL, 'I',2, CURRENT_TIMESTAMP, 'Barns',

CASE WHEN d.BreederID

CASE WHEN ...

poslední tučné slovo by se mělo načítat z položky listview a tu vzniká problém, jelikož to tam nemohu dostat.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Co takhle:

TextBox6.Text = "CREATE TRIGGER [nazev] ON [tabulka] FOR insert" & Environment.NewLine & "AS" & Environment.NewLine & "INSERT INTO Changes (AppCode,  BatchNumber, CommandType, TableVersion, DateChange, TableName, RowData)" & Environment.NewLine & "(SELECT 'PIG', NULL, 'I',2, CURRENT_TIMESTAMP, '" & LstTables.SelectedItem & "',"

        For i = 0 To k
           TextBox6.Text = TextBox6.Text & Environment.NewLine & " CASE WHEN d." & Listview.Items.Item(i).Text
        Next
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Super chodí to. Děkuji

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback