Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Pobieranie danych z bazy MySQL


Rekomendowane odpowiedzi

Opublikowano

Witam. Czy w ogóle w Visual Basic jest możliwość aby program pobierał wszelkie teksty, linki itp. z bazy danych?

Dam przykład na tym co ja chcę wymodzić. Mam 3 Label'e, PictureBox'a, 1 Button oraz ListBox
No i teraz co z czym się je. Chciałbym aby link do zdjęcia, tekst labeli oraz kod buttona zmieniał się po wybraniu danej pozycji z listbox.

Co ważne, listbox ma wyświetlać tabele jakie są w bazie a na podstawie danych jakie tam są odpowiednio zmieniać w programie

Przyłóżmy - mam bazę a w niej tabela "Wybór 1" a tam dane np. cena, nazwa, opis, link do zdjęcia oraz link do pobrania

To jest przykład na czystym spontanie. I teraz chciałbym aby tekst w Label'ach, link do pobrania(w buttonie) oraz link do zdjęciazmieniały się odpowiednio na te z bazy.

Jak to zrobić wiem, problem mam z tym aby to było brane z bazy danych.

Tak. Nic tu nie ma.

Opublikowano
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim AuthString As String = "Server=192.168.1.105;User ID=root;Password=123;Database=account;Convert Zero Datetime=True"
    Dim SQLconntections As MySqlConnection = New MySqlConnection

    Public Function Query(ByVal CMD As String) As String()
        Dim comm As MySqlCommand = New MySqlCommand

        With comm
            .CommandText = CMD
            .CommandType = CommandType.Text
            .Connection = SQLconntections
            .ExecuteNonQuery()
        End With
        comm.Dispose()
        Return comm.ExecuteScalar
    End Function

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Try
            Dim wartosci() As String = Query("SELECT * FROM tabela WHERE id=" & ListBox1.SelectedIndex)
            Label1.Text = wartosci(0)
            Label2.Text = wartosci(1)
            Label3.Text = wartosci(2)
            PictureBox1.BackgroundImage = Image.FromFile(wartosci(3))
            Button1.Text = wartosci(4)
        Catch ex As Exception

        End Try
    End Sub
End Class

Mash

7j66.png
Opublikowano

Nie spodziewałem się gotowca. Zaraz wszystko sobie ogarnę. Masz ode mnie Like. Jak wszystko będzie działać to masz ode mnie limit Like ;)

Tak. Nic tu nie ma.

Opublikowano

No niestety nie poszło idealnie, w tym miejscu wywala mi error - http://scr.hu/0uo9/zwv02

Wypluwa, że 'SQLConnections' nie jest deklarowane (coś w ten deseń)
//Cholera.. I się zapomniałem i post pod postem. No to czekam teraz na warna :/

Tak. Nic tu nie ma.

Opublikowano

No i obecnie nie sprawdzę ponieważ gdy uruchomię program wywala mi w kodzie błąd "Unable to connect to any of the specified MySQL hosts.". Co oczywiście nie może się połączyć z bazą pomimo, że dane są dobre. Macie jakiś darmowy serwer gdzie mnie połączy?

Tak. Nic tu nie ma.

Opublikowano

No niestety, nadal pomimo bazy danych, którą podał Maciek to tak czy siak mam ten sam błąd. Kombinowałem i niestety nic nie wymyśliłem. Jakieś propozcyje? Może pomysły? Ja już nie mam...

Tak. Nic tu nie ma.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...