Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Mysql VB.NET

larssy1 - 08/11/2008 16:28
MySQL beginner		Hoi mensen, ik ben bezig met mijn applicatie verbinding te laten maken met mijn datebase. Maar nu heb ik het probleem dat hij alle gebruikersweergeeft inplaats van weer te geven hoeveel gebruikers er zijn (mysql_num_rows) Maar hoe voeg ik de toepassing mysql_num_rows in VB.Net zodat hij alleen het aantal geregistreerde gebruikers weergeeft? Mvg Lars

25 antwoorden

Gesponsorde links

skillat2 - 08/11/2008 17:54
HTML beginner		sql code - Bekijk de code zonder highlighting - Klap code in SELECT COUNT() FROM tabel SELECT COUNT() FROM tabel

larssy1 - 08/11/2008 18:01 (laatste wijziging 08/11/2008 18:09)
MySQL beginner		die code werkt niet, dan krijg je deze foutmelding: You have specified an invalid column ordinal. mijn stukje code ervan: vbnet code - Bekijk de code zonder highlighting - Klap code in Dim query As String = "SELECT count() FROM leden WHERE geactiveerd ='1'" Dim query As String = "SELECT count() FROM leden WHERE geactiveerd ='1'" ---------- Heb hem nu zo aangepast, dat de code klopt.. maar als ik count(*) erin zet.. dan verbreekt de verbinding...

skillat2 - 08/11/2008 18:24
HTML beginner		geactiveerd ='1' vervangen naar geactiveerd = 1 (als het een integer is) En probeer dit eens, alleen connectie even veranderen. vbnet code - Bekijk de code zonder highlighting - Klap code in Dim Aantal As New OleDbCommand(query, connectie) Dim Aantal As New OleDbCommand(query, connectie)

larssy1 - 08/11/2008 19:45 (laatste wijziging 08/11/2008 20:23)

MySQL beginner

uhm, ik gebruik de code van de tutorials
dat is dit bovenste stukje

vbnet code - Bekijk de code zonder highlighting - Klap code in

                        Dim sqlConn As New MySqlConnection("Database=test; Data Source=localhost; User Id='root'; Password=''")
        Dim query As String = "SELECT COUNT(*) FROM leden"
        Dim resultaat As String = ""
        Dim myCommando As MySqlCommand = New MySqlCommand(query, sqlConn)
        Dim sqlReader As MySqlDataReader

            
Dim sqlConn As New MySqlConnection("Database=test; Data Source=localhost; User Id='root'; Password=''")
        Dim query As String = "SELECT COUNT(*) FROM leden"
        Dim resultaat As String = ""
        Dim myCommando As MySqlCommand = New MySqlCommand(query, sqlConn)
        Dim sqlReader As MySqlDataReader
 

En wat doe ik fout? de code hierboven wel.. maar zodra ik hierin verander niet meer :x

vbnet code - Bekijk de code zonder highlighting - Klap code in

                        Dim sqlConn As New MySqlConnection("Database=copa_database; Data Source=localhost; User Id='root'; Password=''")
        Dim query As String = "SELECT id, login, level, info, showonline, activated FROM [users]"

Dim sqlConn As New MySqlConnection("Database=copa_database; Data Source=localhost; User Id='root'; Password=''")
        Dim query As String = "SELECT id, login, level, info, showonline, activated FROM [users]"

Abbas - 08/11/2008 21:45

Crew .NET

Dit zou moeten werken:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim myConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...\database.mdb;")
Dim myCommand As New OleDb.OleDbCommand("SELECT COUNT(voornaam) FROM klanten", myConn)
Dim myReader As OleDb.OleDbDataReader

Try
    myConn.Open()
    myReader = myCommand.ExecuteReader()
    MessageBox.Show(myReader.GetValue(0).ToString())
Catch ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConn.Close()
End Try
            
Dim myConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...\database.mdb;")
Dim myCommand As New OleDb.OleDbCommand("SELECT COUNT(voornaam) FROM klanten", myConn)
Dim myReader As OleDb.OleDbDataReader
 
Try
    myConn.Open()
    myReader = myCommand.ExecuteReader()
    MessageBox.Show(myReader.GetValue(0).ToString())
Catch ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConn.Close()
End Try
 

Dit werkt bij mij in ieder geval..

larssy1 - 08/11/2008 21:46
MySQL beginner		dat is voor access database

Abbas - 08/11/2008 23:12
Crew .NET		En wat moet jij hebben? Als het MS SQL Server is moet je enkel je ConnectionString aanpassen en in plaats van OleDb gebruik je dan System.Data.SqlClient. En dan doe je SqlConnection, SqlCommand, Sql...

larssy1 - 08/11/2008 23:36
MySQL beginner		ik gebruik MySQL server van Xampp

Abbas - 09/11/2008 03:24
Crew .NET		Een beetje ZOEKEN kan nooit kwaad!

larssy1 - 09/11/2008 11:38
MySQL beginner		haha, ik heb joun tut ook gebruikt.. maar ik weet dus niet hoe je het aantal gebruikers laat weergeven.. inplaats van ALLE gegevens

henver - 09/11/2008 11:41
HTML gevorderde		Ken zelf niets van VB.NET, maar is het niet mogelijk een variabele aan te maken met als waarde 0 en voor elk record in de database deze variabele met 1 te verhogen? Wel redelijk omslachtig, maar zoals ik al zei: VB.NET is niet mijn sterkste kant.

nemesiskoen - 09/11/2008 11:42 (laatste wijziging 09/11/2008 11:43)
PHP expert		Of gewoon een count doen en ipv een oledb command zoals in titjes z'n post maak je daar een mysql command van. vbnet code - Bekijk de code zonder highlighting - Klap code in string query = "SELECT count(id) FROM leden"; MySqlCommand myCommando = new MySqlCommand(query, sqlConn); string query = "SELECT count(id) FROM leden"; MySqlCommand myCommando = new MySqlCommand(query, sqlConn);

larssy1 - 09/11/2008 14:33
MySQL beginner		Dat doet ie niet, hij verbreekt dan de verbinding met de database server.

nemesiskoen - 09/11/2008 14:48 (laatste wijziging 09/11/2008 14:48)
PHP expert		heb je wel sqlConn.Open() gedaan? Geef eens wat je nu hebt?

larssy1 - 09/11/2008 14:57 (laatste wijziging 09/11/2008 15:01)

MySQL beginner

vbnet code - Bekijk de code zonder highlighting - Klap code in

                 Dim sqlConn As New MySqlConnection("Database=----; Data Source=localhost; User Id='----'; Password='----'")
        Dim query As String = "SELECT signup,attack,defence,clicks,ster,rank,clan,cash,bank,type,level FROM `[users]` WHERE `activated`=1"
        Dim resultaat As String = ""
        Dim myCommando As MySqlCommand = New MySqlCommand(query, sqlConn)
        Dim sqlReader As MySqlDataReader

        Try
            sqlConn.Open()
            sqlReader = myCommando.ExecuteReader()

            While sqlReader.Read()
                resultaat += sqlReader.GetValue(0).ToString() + " " + sqlReader.GetString(1) + " " + sqlReader.GetInt32(2).ToString() + Environment.NewLine()
            End While

            lblUsers.Text = resultaat
            sqlReader.Close()

            If sqlConn.State = ConnectionState.Open Then
                LblServerOF.Text = "Online"
                lblGameOF.Text = "Online"
                PictureBox1.Visible = True
                PictureBox2.Visible = True
            End If
        Catch x As Exception
            LblServerOF.Text = "Offline"
            lblGameOF.Text = "Offline"
            PictureBox3.Visible = True
            PictureBox4.Visible = True
        End Try

        lblDate.Text = Date.Today.Year()
    End Sub

            
Dim sqlConn As New MySqlConnection("Database=----; Data Source=localhost; User Id='----'; Password='----'")
        Dim query As String = "SELECT signup,attack,defence,clicks,ster,rank,clan,cash,bank,type,level FROM `[users]` WHERE `activated`=1"
        Dim resultaat As String = ""
        Dim myCommando As MySqlCommand = New MySqlCommand(query, sqlConn)
        Dim sqlReader As MySqlDataReader
 
        Try
            sqlConn.Open()
            sqlReader = myCommando.ExecuteReader()
 
            While sqlReader.Read()
                resultaat += sqlReader.GetValue(0).ToString() + " " + sqlReader.GetString(1) + " " + sqlReader.GetInt32(2).ToString() + Environment.NewLine()
            End While
 
            lblUsers.Text = resultaat
            sqlReader.Close()
 
            If sqlConn.State = ConnectionState.Open Then
                LblServerOF.Text = "Online"
                lblGameOF.Text = "Online"
                PictureBox1.Visible = True
                PictureBox2.Visible = True
            End If
        Catch x As Exception
            LblServerOF.Text = "Offline"
            lblGameOF.Text = "Offline"
            PictureBox3.Visible = True
            PictureBox4.Visible = True
        End Try
 
        lblDate.Text = Date.Today.Year()
    End Sub
 

Ondersteunt trouwens vb.net niet de code meer van vb6.0 van Add.Item voor bijv de combo box?

heb al gekeken in wat tuts.. maaar daar kan ik niks vinden..
dit probeerde ik:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                        Dim Test As Object
        Test = "Choose your problem.."
        Test = "Server offline"
        cmbSelect.Items.Add(Test)

            
Dim Test As Object
        Test = "Choose your problem.."
        Test = "Server offline"
        cmbSelect.Items.Add(Test)
 

Abbas - 09/11/2008 19:27

Crew .NET

Zo dan:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim Test As Object
Test = "Choose your problem.."
cmbSelect.Items.Add(Test)
Test = "Server offline"
cmbSelect.Items.Add(Test)
            
Dim Test As Object
Test = "Choose your problem.."
cmbSelect.Items.Add(Test)
Test = "Server offline"
cmbSelect.Items.Add(Test)
 

larssy1 - 09/11/2008 23:03
MySQL beginner		Hoe kom jij zo slim? heb jij de opleiding programmeur al gehad?

Abbas - 09/11/2008 23:07
Crew .NET		Ik ben bezig met een opleiding voor programmeur ja. Ik ben nu ongeveer al 3,5 jaar met .NET bezig (zowel C# als VB.NET), daarmee dat ik er toch wel iets van weet..

larssy1 - 10/11/2008 14:30
MySQL beginner		weet je dan miss ook hoe ik het AANTAL gebruikers weer kan geven? het aantal leden, de online leden, de verbannen leden, en het nieuwste lid

Abbas - 10/11/2008 14:40
Crew .NET		Zoals al aangegeven, met een COUNT() in je query!!!

larssy1 - 10/11/2008 15:08
MySQL beginner		uhm ,, ja dat heb ik dus al verschillende keren geprobeerd.. maar waarom verbreekt hij dan telkens de verbinding met mijn mysql server?

Abbas - 10/11/2008 16:22
Crew .NET		Dan zal dat aan de verbinding liggen en niet aan de query!

Rens - 10/11/2008 16:31
Crew algemeen		Voer de query uit in mysqladmin (zit standaard bij mysql). Werkt het dan wel dan weet je dat de query klopt en het dus aan jouw code ligt i.p.v. aan de query.

rredspike1 - 10/11/2008 23:20
Lid		titjes schreef: Dit zou moeten werken: [..code..] Dit werkt bij mij in ieder geval.. Waarom niet gewoon: MessageBox.Show(myReader.GetValue(0).ToString()) ivp die 0 gewoon de veldnaam

Abbas - 10/11/2008 23:49
Crew .NET		Je selecteert geen kolom/veld, maar een waarde, namelijk COUNT(). Stel dat je in je SELECT-statement het id en de naam selecteert, dan kan je bij het lezen doen: GetValue(0) en dat geeft dan de waarde van het veld id, en GetValue(1) en dat geeft dan de waarde van het veld naam. Je mag de naam invullen, maar in dit geval gaat het om een COUNT()-statement en dan gebruik je gewoon GetValue(0)!

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten