Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:15 Der er 9 kommentarer og
1 løsning

Hente enkelt information for mysql via query.

Er ved at sætte mig grundigt ind i sql brug i vb.net 2008 exp.

har fulgt en guide / tutorial - den er godt nok til 2003.net men
indtil videre fungere den fint.

http://www.vbmysql.com/articles/vbnet-mysql-tutorials/the-vbnet-mysql-tutorial-part-1


Det jeg ønsker er at hente en besked som ligger i tabellen

testtabel

i feltet

test

kan ses her
http://i298.photobucket.com/albums/mm268/Eqvaliser/test.jpg

jeg har en form hvor all conn data udfyldes osv
når man klikker på en knap udføres funktionen
og den skal opdatere et felt der hedder

MyMsgBox.text

---------------- kode spam --------------------
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
    Dim conn As New MySqlConnection
    Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As New DataTable
    Dim SQL As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        conn = New MySqlConnection()
        conn.ConnectionString = "server=" & ipBox.Text & ";" _
  & "user id=" & UserBox.Text & ";" _
  & "password=" & PwordBox.Text & ";" _
  & "database=" & db.Text

        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            myCommand.Connection = conn
            myCommand.CommandText = "SELECT test FROM testtabel"
            MyMsgBox.Text = myCommand.CommandText
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try

    End Sub
End Class

--------------------------------------------

Troede !!!! troede jeg kunne eksekvere vha mysqlcommand
ligesom de gør i tutorialen på side 4 - http://www.vbmysql.com/articles/vbnet-mysql-tutorials/the-vbnet-mysql-tutorial-part-4


Nogle ider til hvordan jeg får beskeden in i boksen ?
Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:15 #1
P.S  det den skriver i MyMsgBox.test som svar er jo selve queryen,
så den er åbenbart ikke eksvekveret.
Avatar billede arne_v Ekspert
24. juni 2008 - 23:17 #2
proev:

MyMsgBox.Text = myCommand.ExecuteScalar().ToString()
Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:20 #3
---

en lille opdatering..


            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            myCommand.Connection = conn
            myCommand.CommandText = "SELECT test FROM testtabel"

            besked = myCommand.ExecuteScalar

            MyMsgBox.Text = myCommand.CommandText
            conn.Close()


den giver bare db fejl,,  tror jeg har skrevet forkert ;)
Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:21 #4
super nice, skrive fejl på databasen den siger db ikke eksistere,,
men tror jeg skal have bytte rundt på feltet test og testtabel

smid et svar.
Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:24 #5
omg omg omg det virkede sgu ;)
Avatar billede eqvaliser Nybegynder
24. juni 2008 - 23:24 #6
super glæde.  ;)
Avatar billede arne_v Ekspert
24. juni 2008 - 23:29 #7
svar
Avatar billede arne_v Ekspert
24. juni 2008 - 23:30 #8
ADO.NET Command klasser har 3 Execute metoder:

ExecuteReader som returnerer en DataReader

ExecuteScalar som returnerer en enkelt vaerdi

ExecuteNonQuery som udfoerer andet en SELECT
Avatar billede eqvaliser Nybegynder
25. juni 2008 - 00:07 #9
mange tak  den Reader skal jeg helt sikkert nok få brug for ;)
Avatar billede arne_v Ekspert
25. juni 2008 - 00:58 #10
en kode snippet med reader:

        Dim con As MySqlConnection = New MySqlConnection ("Database=Test;Data Source=localhost;User Id=;Password=")
        con.Open
        Dim sel As MySqlCommand = New MySqlCommand ("SELECT * FROM T1", con)
        Dim rdr As MySqlDataReader = sel.ExecuteReader
        While rdr.Read
            Dim f1 As Integer = rdr(0)
            Dim f2 As String = rdr(1)
            Console.WriteLine(f1 & " " & f2)
        End While
        rdr.Close
        con.Close
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester