Visuals Basic <-> PHP, MySQL

[RonaldGJ]

Super! Hij werkt, ik ga kijken voor .NET en dan kan ik mijn eigen dingen toevoegen die ik er bij wil hebben.:thumb:

Hartstikke bedankt iniedergeval.

Gr. Ronald!

 

[Grafor]

Voornamelijk de code goed bestuderen, zodoende je begrijpt wat dit exact doet
Het is een code om je op weg te helpen, de rest moet je dan inderdaad zelf invullen ...
Eén van mijn uitvoeringen van dit script is deze:

Zo zie je dat het script zich er netjes toe verleend om het uit te bouwen.
Succes !

 

[RonaldGJ]

Dat is zeker handig! Ziet er mooi en overzichtelijk uit trouwens.
We zullen kijken hoe ver ik ik kom.

Bedankt,

Gr. Ronald!

 

[Grafor]

Maak er het beste van en als het niet echt lukt, zal ik je wel verder helpen.
Mvg Danny

 

[RonaldGJ]

Ik kom op het ogenblik even niet verder. Ik ben bezig met eerst de connectie goed te maken. Maar als ik even hetzelfde gebruik als jij: Dim conn As MySqlConnection zegt hij dat hij MySqlConnection niet kent.

Ik denk dat dit ook weer bij de references ingesteld moet worden??

Maar welke moet ik hebben?

Vast bedankt:thumb:

Gr. Ronald!

 

[RonaldGJ]

En trouwens.. moeten er verder nog meer references toegevoegd worden? Ik heb al even allerlei dingen toegevoegd maar hij blijft zeggen dat Type MySqlConnection not is defined. Welke references meot ik toevoegen?

Gr. Ronald!

 

[Grafor]

Uiteraard, had ik het er even bij moeten vertellen dat u de MySQL 5.0.8.1 connector moet installeren ...
Heb het even op men website gezet, waar je die kunt downloaden:
http://www.profbar.com/downloads/xtra/mysql-connector-net-5.0.8.1.zip

Meer info vind je hier:
http://www.mysql.com/products/connector/net/

succes !

 

[RonaldGJ]

Ik heb het geinstalleerd, maar hij zegt nog steeds dat hij het niet kent:shocked:

Enig idee, moet ik eerst wat afstluien ofzo?

Gr. Ronald!

PS. Bedankt voor het programma.

 

[Grafor]

Kijk even om men bijlage waar de nodige references aanwezig zijn voor dit project.
enne ... graag gedaan hoor

 

[RonaldGJ]

Als ik nu de zin doe:

Dim conn As MySqlConnection

Geeft hij nog steeds aan dat hij het niet kent. Maar de volgende regel kent hij wel:

Dim conn As MySql.Data.MySqlClient.MySqlConnection

Moet dit hem dan zijn?

Gr. Ronald!

 

[Grafor]

Ik vermoed dat u een deeltje heeft gewist .... (rode onderstaande lijn gewist?)
Dit zou het moeten zijn:

Imports System
Imports System.Data
Imports System.Windows.Forms
[COLOR="Red"][B]Imports MySql.Data.MySqlClient[/B][/COLOR]

Public Class Form1
    Inherits System.Windows.Forms.Form

[B]    Dim conn As MySqlConnection[/B]
    Dim data As DataTable
    Dim da As MySqlDataAdapter
    Dim cb As MySqlCommandBuilder

Mvg Danny

 

[RonaldGJ]

Dat was ik inderdaad vergeten!! Bedankt.

Maar hij blijft nu maar rare errors geven. Ik heb heel simpel een knop op een form geplaatst en nu wil ik daar de connectie code onder zetten en eerst maar is kijken of hij geen errors geeft. Dus dat de connectie in iedergeval wil.

Maar hij geeft de een na de andere fout!

Bijlage zit er bij, met een hele rare fout die hij nu geeft!

Gr. Ronald!

 

[RonaldGJ]

Laat het maar zitten Ik had het stuk van jou gekopieerd! Maar ik had de naam van de knop nog op Button1 staan.

Hij doet het nu!

Bedankt voor alle hulp! Ik ga nu kijken of ik er verder mee kan!:thumb:

Gr. Ronald!

 

[Grafor]

Laten we even alles rustig bekijken ...
Wat ik zie in uw stukje code is dat je meerdere lijnen mist

Dit moet er staan (zie vorig bericht):

Public Class Form1
    Inherits System.Windows.Forms.Form

[B]    Dim conn As MySqlConnection
    Dim data As DataTable
    Dim da As MySqlDataAdapter
    Dim cb As MySqlCommandBuilder[/B]

Om geen bijkomende problemen te creëren, doe als volgt:
1) wis je huidig project
2) download nogmaals mijn code
3) plaats het als nieuw project

vanaf nu zou alles in 1 keer moeten werken, daar je de MySQL 5.0.8.1 connector reeds hebt geïnstalleerd (wat eerst niet was).

Dus even wissen en opnieuw beginnen om een foutloze start te kunnen nemen.

 

[RonaldGJ]

Oke ga ik doen! Zeg bedankt, en waarschijnlijk (ik hoop het niet) hoor je wel weer van me. Maar dan zal ik een nieuwe vraag aanmaken.

Dus deze is voor eerst maar opgelost!

Gr. Ronald!

 

[RonaldGJ]

Ik heb al direct een vraag!

Hoe voer je SQL query's uit in VB. Ik zag dat jij een stuk had met SELECT * FROM. Maar ik wil nu juist iets IN de database zetten (INSERT INTO). Dat heb ik neergezet, maar hij doet niks. In de volgende code geeft hij de error ook niet. er gebeurd helemaal niks.

Hoe doe je dit?

Gr. Ronald!

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            conn.ChangeDatabase("test_tabel")
            data = New DataTable
            da = New MySqlDataAdapter("INPUT INTO admin_gegevens SET username = ***lo", conn)
            cb = New MySqlCommandBuilder(da)
        Catch ex As MySqlException
            MessageBox.Show("Error: Het wil niet helaas!")
        End Try
    End Sub

 

[Grafor]

Ik vermoed dat je de MySQL opdrachten eens moet gaan bestuderen, hier even een begin:

    Private Sub updateBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles updateBtn.Click

If Not conn Is Nothing Then
        Try
      Dim cmd As New MySqlCommand
    
      [COLOR="SeaGreen"] [B] 'OF: Insert de records[/B][/COLOR]
  cmd.CommandText = "Insert Into TABELNAAM (VELD1, VELD2) Values (?VAR1, ?VAR2)" 
      [COLOR="seagreen"] [B] 'OF: Update de records (dus deze regels .... 1 van de 2 nemen ...) [/B][/COLOR]
  cmd.CommandText = "UPDATE TABELNAAM SET  VELD1 = ?VAR1 WHERE VELD2 = ?VAR2"


    cmd.Parameters.Add(New MySqlParameter("?VAR1", EEN_WAARDE1.Text))
    cmd.Parameters.Add(New MySqlParameter("?VAR2", EEN_WAARDE2.Text))

            'ExecuteNonQuery voert de opdracht uit
            cmd.ExecuteNonQuery()
            cmd.Dispose()

        Catch ex As MySqlException
            MessageBox.Show("SAVE ERROR: " + ex.Message)
        End Try


Else
            MsgBox("Please connect first ...")
End If
    End Sub

EEN_WAARDE1.Text en EEN_WAARDE2.Text is dan dus een VELD op je FORM

succes er mee!
Mvg Danny

 

[RonaldGJ]

Hij zegt dat er geen connectie is en hij markeert de regel "cmd.ExecuteNonQuery()" geel.
Dit is mijn code nu:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim cmd As New MySqlCommand
            conn.ChangeDatabase("databasenaam")
            cmd.CommandText = "INSERT INTO tabelnaam SET username = Test"
            [B][I][U]cmd.ExecuteNonQuery()[/U][/I][/B]
            cmd.Dispose()

        Catch ex As MySqlException
            MessageBox.Show("SAVE ERROR: " + ex.Message)
        End Try

        If Not conn Is Nothing Then
        Else
            MsgBox("Please connect first ...")
        End If
    End Sub

Hij zegt: Connection must be valid and open.
Ik heb de connectie gewoon open staan. Ik namelijk onder de conn.Open() een label gezet dat er komt te staan dat je connected bent. En dat zegt hij. Dus ik snap het niet!

Gr. Ronald!

 

[Grafor]

U laat steeds stukken code weg of veranderd deze zo dat het niet meer werkt …
vet gedrukt definitie weg?

Het zou ongeveer dit moeten zijn:

  cmd.CommandText = "Insert Into TABELNAAM (VELD1) Values (?VAR1)" 

   [B] cmd.Parameters.Add(New MySqlParameter("?VAR1", EEN_WAARDE1.Text))[/B]
    
    cmd.ExecuteNonQuery()

ook het vraagteken bij : "(?VAR1)" , moet blijven staan ...
Test eens door enkel de tabel en veldnamen te veranderen, het zal een beter resultaat geven.

 

[RonaldGJ]

Ik ga het proberen, maar mag ik dan vragen wat die parameter precies inhoud? Is nu het gene wat ik intyp in Text1 wat er in de tabel komt te staan?

Gr. Ronald!