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

[vb] laatste id ophalen

Stefan14 - 20/07/2009 20:00
PHP gevorderde		Een zoektocht op internet leverde weinig op. Hoe haal ik het laatste id op wat bij de laatste query is toegekend? Dus hetzelfde als mysql_insert_id, maar dan nu voor VB.

9 antwoorden

Gesponsorde links

Koen - 20/07/2009 20:05 (laatste wijziging 20/07/2009 20:05)
PHP expert		Voer een tweede query uit: sql code - Bekijk de code zonder highlighting - Klap code in SELECT LAST_INSERT_ID() SELECT LAST_INSERT_ID()

Wim - 20/07/2009 20:56
Crew algemeen		volgens mij is dit correcter voor mssql: sql code - Bekijk de code zonder highlighting - Klap code in SELECT @@IDENTITY FROM table SELECT @@IDENTITY FROM TABLE

Stefan14 - 20/07/2009 23:11 (laatste wijziging 20/07/2009 23:12)

PHP gevorderde

Ik heb nog niet zoveel ervaring met databases en vb.

Op internet kom ik heel veel verschillende manieren tegen.

Hoe kan ik uit onderstaande query met een extra query dat id eruit halen? En dat id dan in een variabele zetten?

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

                Dim Cmd As OleDb.OleDbCommand
        Dim SQL As String
        Dim objCmd As New OleDb.OleDbCommand

        Dim Con = OleDbConnection1

        SQL = "INSERT INTO klanten (naam, adres, postcode, woonplaats, telefoon, datum, boek, opdrachtnummer, totaalbedrag, valuta, opmerkingen) VALUES ('" & KlantnaamText.Text & "', '" & KlantadresText.Text & "', '" & KlantpostcodeText.Text & "', '" & KlantwoonplaatsText.Text & "', '" & KlanttelefoonText.Text & "', '" & DatumText.Text & "', '" & BoekText.Text & "', '" & OpdrachtnummerText.Text & "', '" & TotaalbedragText.Text & "', '" & Valuta & "', '" & OpmerkingenText.Text & "')"
        Cmd = New OleDb.OleDbCommand(SQL, Con)

        Con.Open()
        objCmd = New OleDb.OleDbCommand(SQL, Con)
        objCmd.ExecuteNonQuery()
        Con.Close()
            
Dim Cmd As OleDb.OleDbCommand
        Dim SQL As String
        Dim objCmd As New OleDb.OleDbCommand
 
        Dim Con = OleDbConnection1
 
        SQL = "INSERT INTO klanten (naam, adres, postcode, woonplaats, telefoon, datum, boek, opdrachtnummer, totaalbedrag, valuta, opmerkingen) VALUES ('" & KlantnaamText.Text & "', '" & KlantadresText.Text & "', '" & KlantpostcodeText.Text & "', '" & KlantwoonplaatsText.Text & "', '" & KlanttelefoonText.Text & "', '" & DatumText.Text & "', '" & BoekText.Text & "', '" & OpdrachtnummerText.Text & "', '" & TotaalbedragText.Text & "', '" & Valuta & "', '" & OpmerkingenText.Text & "')"
        Cmd = New OleDb.OleDbCommand(SQL, Con)
 
        Con.Open()
        objCmd = New OleDb.OleDbCommand(SQL, Con)
        objCmd.ExecuteNonQuery()
        Con.Close()
 

Abbas - 21/07/2009 04:00

Crew .NET

Of je kan ook gewoon ExecuteScalar() gebruiken...

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

                Dim id As Integer
Cmd = New OleDbCommand(strQuery, MyConn)

Try
    Con.Open()
    Cmd.ExecuteNonQuery()
    id = Cmd.ExecuteScalar()
Catch ...
    ...
Finally
    ...
End Try

            
Dim id As Integer
Cmd = New OleDbCommand(strQuery, MyConn)
 
Try
    Con.Open()
    Cmd.ExecuteNonQuery()
    id = Cmd.ExecuteScalar()
Catch ...
    ...
Finally
    ...
End Try
 

Btw: waarom wordt er twee keer een SqlCommand gedeclareerd?!?!

Stefan14 - 26/07/2009 01:16 (laatste wijziging 26/07/2009 01:33)
PHP gevorderde		Het wil nog niet direct lukken. Code is als volgt: php code - Bekijk de code zonder highlighting - Klap code in SQL = "SELECT @@IDENTITY FROM klanten" Con.Open() Cmd = New OleDb.OleDbCommand(SQL, Con) Cmd.ExecuteNonQuery() Dim KlantId As Integer = Cmd.ExecuteScalar() Con.Close() SQL = "SELECT @@IDENTITY FROM klanten" Con.Open() Cmd = New OleDb.OleDbCommand(SQL, Con) Cmd.ExecuteNonQuery() Dim KlantId As Integer = Cmd.ExecuteScalar() Con.Close() De query wordt wel uitgevoerd, maar als ik vervolgens de variabele in een andere query gebruik om hem op te slaan in een andere tabel blijft dat veld in de database leeg. Oftewel die variabele heeft geen waarde. Nu staat die volgende query wel binnen een if lus, en heb daar reeds eerder 'problemen' mee gehad. Kan dit een reden zijn?

meerweten - 26/07/2009 10:00
Lid		er bestaan boeken van van vb zoek die eens op en je vind je antwoord wel

Stefan14 - 26/07/2009 16:39
PHP gevorderde		Ik heb hier 3 boeken van vb liggen. Maar ik kan je zeggen dat het daar niet in staat. Daar wordt alleen gepraat over het datagrid als het over databases gaat.

Abbas - 28/07/2009 16:56
Crew .NET		meerweten schreef: er bestaan boeken van van vb zoek die eens op en je vind je antwoord wel Dit is zowat de meest belachelijke reactie die ik hier in lange tijd gelezen heb!!! Ontopic: Misschien best om de variabele op voorhand te declareren zodat deze "gekend" is overal waar je ze kan nodig hebben.

Stefan14 - 01/08/2009 15:51 (laatste wijziging 01/08/2009 15:51)

PHP gevorderde

Ook wanneer ik de variabele vooraf al declareer, werkt het niet.

Code:

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

Dim KlantId As Integer

SQL = "SELECT @@IDENTITY FROM klanten"

        Try
            Con.Open()
            Cmd = New OleDb.OleDbCommand(SQL, Con)
            Cmd.ExecuteNonQuery()
            KlantId = Cmd.ExecuteScalar()
            Con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        If (Productenaantal1.Text > 0) Then
            SQL = "INSERT INTO bestellingen (klantID, opdrachtID) VALUES ('" & KlantId & "', '" & OpdrachtnummerText.Text & "')"

            Try
                Con.Open()
                Cmd = New OleDb.OleDbCommand(SQL, Con)
                Cmd.ExecuteNonQuery()
                Con.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

Dim KlantId As Integer
 
SQL = "SELECT @@IDENTITY FROM klanten"
 
        Try
            Con.Open()
            Cmd = New OleDb.OleDbCommand(SQL, Con)
            Cmd.ExecuteNonQuery()
            KlantId = Cmd.ExecuteScalar()
            Con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If (Productenaantal1.Text > 0) Then
            SQL = "INSERT INTO bestellingen (klantID, opdrachtID) VALUES ('" & KlantId & "', '" & OpdrachtnummerText.Text & "')"
 
            Try
                Con.Open()
                Cmd = New OleDb.OleDbCommand(SQL, Con)
                Cmd.ExecuteNonQuery()
                Con.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten