Keresés
Hírlevél
 
Kiemelt témák
»Hogy viszonyul ehhez a család?
»Legjobb metodika emberi relációk tárolására
»A programozó hibája, hogy törik a programját?
»Jogosultság kezelés mezőszinten
Állás/munka
»Wordpress szakértőt keresünk
»Kamu álláshirdetők listája
»Front-end fejlesztő / Sitebuilder
»DataStore Developer
»PHP programozó, webfejlesztő munkát keres
» több téma
Tudástár
?HTML-ben a Flash átméretezés torzul
√Eredeti mezőnevek lekérdezése
?Input mezőből visszakapott adat probléma
√Oldalon keresés 8x írja ki az eredményt
?XML-ből sok szövegmező
√TinyMCE és az ékezetek
?Rengeteg hasonló kép betöltése gyorsan (PHP)
√Ékezetes kar. nem minden táblában jól
?Shelltreeview gond
√Grafikon rajzolás probléma
?Onclick= php függvény
?Egyenes megrajzolása
?Access-ből adott xml fájl kinyerése
√Listázás időpont szerint
√Exportálás változó könyvtárba
» több téma
Társalgó
»A programozásból jól meg lehet élni?
»MFC tanulás
»Könyvet adok-veszek
»Hogy viszonyul ehhez a család?
»Nintendo wii
»Letölthető az új Rad Studio XE és Delphi XE
»Weblap véleményezés
»Játékmotor elmélet
»Informatikai bulvárlap
»Delphi-ről C++-ra váltás
» több téma
ASP  |  C#  |  C++  |  CSS  |  Delphi  |  Flash  |  HTML  |  Java  |  JavaScript  |  Pascal  |  Perl  |  PHP  |  Python  |  Visual Basic  |  Visual C++  |    »    

Tudástár

»

VB 2005 + MySQL lekérdezés

»

VB 2005 + MySQL lekérdezés

nyitotta: rikike007, idő: 2010.03.14., moderátor: Árnyék
  Értesítés változás esetén Felvétel kedvencekhez Küldés emailben Nyomtatható verzió

Kategóriák:Adatbázisok » MySQL
Programozási nyelvek » Visual Basic

Sorrend:
Időzóna:
Blokkméret:
Oszd meg másokkal is!iWiWWindows LiveGoogle BookmarksBlogtérLinktérStartlapUrlguruDiggDeliciousTumblrStumbleUponYahoo!NetVibes
Üdv mindenkinek megint!
Az előző kérdésemre kaptam ugyan választ de nem találtam meg benne amit szerettem volna. A kérdés a következő:
Hogyan lehet megoldani azt mint
például php-ben a


while ($adat=mysql_fetch_array($lekerdezes))
{
echo $adat["szoveg"];

}

vagy pedig egy sima lekérdezést. Ez egy chat programhoz kell. Van egy messages táblám amibe minden gond nélkül felküldi az adatokat a button de a lekérés egy problémát okoz és nem találok hozzá megoldást.
Azért én a helyedben menézném még1x alaposan az előző témádban kapott linken lévő oldalt, hátha mégis levan írva ott az, amit szeretnél! Kulcsszó, amire az oldalon rá kell keresned: reader.

De miért nem veszel egy VB2005-ös könyvet vagy legalább nézel át egy VB2005-ös db tutorial-t? Az utóbbiból kismilliót találsz a neten...
hát igazából most olvastam ki a Tanuljuk meg a visual basic 2005...-öt és az adatbázisokról nem sokat ejtenek meg benne. igen találok de nekem még nagyon új az sql része és minél többet szeretnék megtudni róla de nem találtam eddíg olyat ami érthetően, a kezdők szintjén magyarázza el
Az sql-t külön kell megtanulnod, nem egy VB2005-ről szóló könyvben fogják neked elmagyarázni. Amit meg kell értened és használnod, azok a VB 2005-ben lévő adatelérési komponensek. Mert gyakorlatilag vagy azokat, vagy egy hasonló felépítésű mysql.net-es komponenst fogsz hasznlni. Ehhez pedig minden le van azon a linken írva, különösen, ha az oldal alján lévő hozzászólásokat is nézed!
na megtaláltam a kódot amit szerettem volna csak egy baj van vele. nem tudom hogy hogy kell átalakítani ugy hogy textboxban is működjön. cbo-ba simán működik csak átalakítani nem tudom. segítenél?

 SQL = "SELECT s.kuldo, s.uzenet " _
                & "FROM vb.messages s "


        conn.ConnectionString = "server=***; user id=****; password=*****; database=vb;"

Try
                                myCommand.Connection = conn
                                myCommand.CommandText = SQL

                                myAdapter.SelectCommand = myCommand
                                myAdapter.Fill(myData)

                                cboMessage.DataSource = myData
                                cboMessage.DisplayMember = "message" '<---- ezt kéne egy messages.text-re vagy valami ilyesmire
                                cboMessage.ValueMember = "message_id"
                        Catch myerror As MySqlException
                                MsgBox("There was an error reading from the database: " & myerror.Message)
                        End Try
100%-ig biztos vagyok abban, hogy ez le van írva a könyvedben...
igen megtaláltam köszi. és még vmi. Hogy lehet azt hogy kilistázza az összeset ami van?

 Dim SQLConn As New MySqlConnection() 'The SQL Connection
        Dim SQLCmd As New MySqlCommand() 'The SQL Command
        Dim SQLdr As mySqlDataReader        'The Local Data Store

        SQLConn.ConnectionString = "server=; user id=; password=; database=vb;" 'Set the Connection String
        SQLConn.Open() 'Open the connection

        SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
        SQLCmd.CommandText = SQLStr 'Sets the SQL String
        SQLdr = SQLCmd.ExecuteReader 'Gets Data

        While SQLdr.Read() 'While Data is Present       
            messages.Text = " " & SQLdr("kuldo") & " : " & SQLdr("uzenet") & " "     'Show data in a Message Box
        End While

        While SQLdr.NextResult() 'Move to the Next Record
            SQLdr.Close() 'Close the SQLDataReader       

            SQLConn.Close() 'Close the connection
        End While
na tud valaki ebbe segíteni?
Segít a NagyTestvér, ha elolvasod..(SqlDataReader Class)

Provides a way of reading a forward-only stream of rows from a SQL Server database.

ROWS - Többesszám, igaz?

Private Sub ReadOrderData(ByVal connectionString As String)
    Dim queryString As String = _
        "SELECT OrderID, CustomerID FROM dbo.Orders;"

    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(queryString, connection)
        connection.Open()

        Dim reader As SqlDataReader = command.ExecuteReader()

        ' Call Read before accessing data.
        While reader.Read()
            Console.WriteLine(String.Format("{0}, {1}", _
                reader(0), reader(1)))
        End While ' MINDEN sort beolvas ami megfelel a queryString-nek!

        ' Call Close when done reading.
        reader.Close()
    End Using
End Sub
és hogy kell szabályozni hogy mennyit listázzon ki??

 Exit While
-al kilépsz a ciklusból ha a többit már nem akarod listázni..
és hogy tudom ugy kiíratni hogy van egy messages nevá textboxom és abba szeretném egymás alá kiíratni. bocsi hogy itt értetlenkedek de ez még új nekem. télleg bocsi
1. Tiszteld meg a fórum olvasóit azzal, hogy a gondolataid megjelenítése legalább azt a minőséget érje el, mint amit elvárhatsz a válaszok során.
2. Van egy ilyen sorod a kódodban:
 messages.Text = " " & SQLdr("kuldo") & " : " & SQLdr("uzenet") & " "     'Show data in a Message Box
Add hozzá a sorvég jelet (VBcrlf)
 messages.Text = " " & SQLdr("kuldo") & " : " & SQLdr("uzenet") & VBCrLf     'Show data in a Message Box
A textbox-od tulajdonságainál jelöld a több sor-t:

messages.multiline = true
nem tudom miért de nekem továbbra is 1 sort jelenít meg az 50-ből :S


  messages.Multiline = True
        Dim SQLStr As String
        Dim ConnString As String


        SQLStr = "SELECT * FROM messages"
        'Read from SQL

        Dim SQLConn As New MySqlConnection() 'The SQL Connection
        Dim SQLCmd As New MySqlCommand() 'The SQL Command
        Dim SQLdr As MySqlDataReader        'The Local Data Store

        SQLConn.ConnectionString = "server=; user id=; password=; database=;" 'Set the Connection String
        SQLConn.Open() 'Open the connection

        SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
        SQLCmd.CommandText = SQLStr 'Sets the SQL String
        SQLdr = SQLCmd.ExecuteReader 'Gets Data

        While SQLdr.Read() 'While Data is Present       
            messages.Text = " " & SQLdr("kuldo") & " : " & SQLdr("uzenet") & vbCrLf     'Show data in a Message Box
        End While

        While SQLdr.NextResult() 'Move to the Next Record
            SQLdr.Close() 'Close the SQLDataReader       

            SQLConn.Close() 'Close the connection
        End While
nem tudom miért de nekem továbbra is 1 sort jelenít meg az 50-ből :S
Melyiket, az elsőt, vagy az utolsót?
utolsót
Bocsi, de lemaradt..(+)

 messages.Text += " " & SQLdr("kuldo") & " : " & SQLdr("uzenet") & vbCrLf
köszönöm szépen a segítséget. Ezzel most sokat léptem előre a visual basic-ben
Oszd meg másokkal is!iWiWWindows LiveGoogle BookmarksBlogtérLinktérStartlapUrlguruDiggDeliciousTumblrStumbleUponYahoo!NetVibes
Belépés
E-mail cím:
Jelszó:

RSS források
-Hírek
-Cikkek
-Fórumok
-Állás/munka
Top pontgyűjtők
»Micu1.030
»Interlock280
»mezofi150
»Pitta_100
»Frostech0100
»szbzs.2100
»Hack100
»Riha60
»Akhiles50
»mrchandra50
Top wikieditorok
»Sting
»Doi
»FlamingClaw
»Argathron
»Csaboka2
»Vodka
»Joexy
»Ivn
»Balucinho
»Kelemzol
» ugrás a wikire
A nap kifejezései
»Algoritmus
»Hogyan kezdjem el
»Perl
» ugrás a wikire
Hírek
»Megérkezett a PostgreSQL 9.0 kiadásra jelölt változata
»Letölthető az új Rad Studio XE és Delphi XE
»Function-X digitális művészeti találkozó és demoscene party
»Webfejlesztőknek szóló közösségi oldalt indított a Microsoft
»Letölthető a hardvergyorsított Chrome 7 első fejlesztői kiadása
» több hír
PC Fórum hírek
»Itt az első kép az AMD nyolcmagos processzoráról
»"Szuperdizájnos" érintő-egeret mutatott be a Microsoft
»Szabadalmaztatta a számítógép kikapcsolását a Microsoft
»Vírusriadót váltott ki a webezőknél a Google
»Ingyen iWiW-ezhetnek mobiljaikról a T-Mobile-osok
»Automatikusan kiválogatja legfontosabb leveleink a Google
»OOo4Kids - ingyenes Office csomag gyerekeknek
»Új, gyorsabb Core i3 és Pentium processzorokat jelentett be az Intel
Tagi blogok
»PSP
»Első Programozó
»USB
»PHP, mint sablonmotor egyszerűen
Copyright (C) 2001-2005 DevWorxEszköztár  |  RSS hírek  |  A használat feltételei  |  GY.I.K  |  Impresszum  |  Médiaajánlat