dotNETportal.cz

Článek s tímto názvem mi moc pomohl, jen bych rád věděl jestli je možné podobným způsobem vytvořit i Windows aplikaci. Předpokládám, že ano, ale nedaří se.

Přidávám kod, který zatím nechodí a nedokážu vymyslet proč.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ConnectionString As String = "Server=localhost\SQLEXPRESS;Initial Catalog=pokus;Trusted_Connection=yes;"

        Dim sqlCommand As String = ("SELECT [den],[mes],[rok],[udal] FROM [projekt]") ' vytvoření dotazu a předání připojení

        sqlConnection.Open() ' pomocí dat z ConnectionStringu spojení otevřeme
        Dim dataReader As DataTableReader = sqlCommand.ExecuteReader() ' spuštění dotazu a vytvoření objektu na čtení řádků

        ' smyčka na čtení záznamů
        Do While dataReader.Read ' posun na další řádky, dokud jsou k dispozici
            TextBox1.Text = (String.Format("Záznam: {0} {1}  {2}  {3}", dataReader("den"), dataReader("mes"), dataReader("rok"), dataReader("udal"))) ' zobrazí záznam
        Loop

        Console.ReadKey()

        dataReader.Close() ' nejdříve uzavřeme aktuální dotaz
        sqlConnection.Close() ' a pak i spojení
    End Sub
End Class

"Kód nechodí" je docela široký pojem, mohl byste napsat, co přesně tam nejde? Jestli se dobře koukám, něco vám tam asi bude chybět, ale možná jste na to jen zapomněl.

Udělal jste tam pár chyb. Takhle by to mělo chodit:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ConnectionString As String = "Server=localhost\SQLEXPRESS;Initial Catalog=pokus;Trusted_Connection=yes;"

        Dim sqlCommand As String = ("SELECT [den],[mes],[rok],[udal] FROM [projekt]") ' vytvoření dotazu a předání připojení

        sqlConnection.Open() ' pomocí dat z ConnectionStringu spojení otevřeme
        Dim dataReader As SqlDataReader = sqlCommand.ExecuteReader() ' spuštění dotazu a vytvoření objektu na čtení řádků
	' << objekt se jmenuje SqlDataReader

        ' smyčka na čtení záznamů
        Do While dataReader.Read ' posun na další řádky, dokud jsou k dispozici
            TextBox1.Text &= (String.Format("Záznam: {0} {1}  {2}  {3}", dataReader("den"), dataReader("mes"), dataReader("rok"), dataReader("udal"))) & vbCrLf ' zobrazí záznam
	    ' << správné čtení do textboxu
        Loop

        ' Console.ReadKey() << tohle je zbytečné ve formulářové aplikaci

        dataReader.Close() ' nejdříve uzavřeme aktuální dotaz
        sqlConnection.Close() ' a pak i spojení
    End Sub
End Class

Ještě tam toho chybí víc (používáte objekty SqlConnection a SqlCommand, ale nemáte je nadeklarované).

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ConnectionString As String = "Server=localhost\SQLEXPRESS;Initial Catalog=pokus;Trusted_Connection=yes;"

        ' <<< objekt spojení musíte deklarovat a vytvořit
        Dim sqlConnection As New SqlConnection(ConnectionString)

        ' <<< tady musíte vytvořit objekt SqlCommand, ne jen proměnnou typu String. Samotný příkaz předáváte jako argument v kontstruktoru, přečtěte si pořádně článek pro začátečníky
        Dim sqlCommand As New SqlCommand("SELECT [den],[mes],[rok],[udal] FROM [projekt]", sqlConnection) ' vytvoření dotazu a předání připojení

        sqlConnection.Open() ' pomocí dat z ConnectionStringu spojení otevřeme
        Dim dataReader As SqlDataReader = sqlCommand.ExecuteReader() ' spuštění dotazu a vytvoření objektu na čtení řádků
	' << objekt se jmenuje SqlDataReader

        ' smyčka na čtení záznamů
        Do While dataReader.Read ' posun na další řádky, dokud jsou k dispozici
            TextBox1.Text &= (String.Format("Záznam: {0} {1}  {2}  {3}", dataReader("den"), dataReader("mes"), dataReader("rok"), dataReader("udal"))) & vbCrLf ' zobrazí záznam
	    ' << správné čtení do textboxu
        Loop

        ' Console.ReadKey() << tohle je zbytečné ve formulářové aplikaci

        dataReader.Close() ' nejdříve uzavřeme aktuální dotaz
        sqlConnection.Close() ' a pak i spojení
    End Sub
End Class

A ještě něco - obecně nebývá dobré pojmenovávat proměnné stejně jako jejich datové typy, to funguje v jazyce C#, ale VB.NET na to není stavěný. Zkuste nepojmenovávat proměnné sqlConnection a sqlCommand, ale třeba con a com. Je to kratěí a název není stejný jako datový typ SqlConnection a SqlCommand. VB.NET nerozlišuje mezi velkými a malými písmeny!

Od toho je to klíčové slovo "Shadows", nebo se mýlím??

Shadows dělá něco jiného, souvisí to s objekty a dědičností, ale je to hodně pokoričlá věc.

Usoudil jsem to podle toho, že mě

Dim Image As Image = ...

upozorní, že dojde k výjimce, ale po úpravě:

Shadows Image As Image = ...

bylo vše OK. Tak se těším až si od tebe o tom něco přečtu.

Jo, tak tady je to slovo Shadows proto, že Image je název vlastnosti formuláře nebo komponenty. Pokud chcete použít proměnnou stejného názvu, musíte použít Shadows, abyste překryl tuto vlastnost.

Každopádně doporučuji proměnné pojmenovávat jinak, třeba img, možností je vždycky dost.