Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- Luck Dragon: Asszociációs játék. :)
- sidi: Samsung Deskmaster 386s/20n
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál...
- Magga: PLEX: multimédia az egész lakásban
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Szólánc.
- MasterDeeJay: MSI H110M PRO és i3-8350K (coffeetime mod)
-
LOGOUT
Új hozzászólás Aktív témák
-
Hali mindenkinek!
VB.NET-ben írogatok néha és szeretnék SQL-el dolgozni benne. Lenne egy megbízólevél amit megadott adatok alapján kellene kitöltenie a proginak. Tudom egyszerűbb lenne egy körlevélkészítő de szeretném én magam megcsináni.
Jelenleg egy neten talált kód alapján írtam egy nagyon egyszerű login ellenörzőt ami csak arra kell hogy a felhasználó név alapján töltsön ki egy űrlapot. Nem is igazi login de célnak megfelel.
Public con As New SqlClient.SqlConnection
Public strCon As String = "Data Source=" & sqlszerverneve & ";Initial Catalog=" & adatbazisnev & ";User ID=sa;Password=" & sqlsajelszo & ";Connection Timeout=50;"
Public Sub loginellenorzes()
sql = "select count(*) from felhasznalok where felhasznalonev=@felhasznalonev and jelszo=@jelszo"
Using Conn As New SqlConnection(strCon)
Using cmd As New SqlCommand(sql, Conn)
Conn.Open()
cmd.Parameters.AddWithValue("@felhasznalonev", felhasznalonev)
cmd.Parameters.AddWithValue("@jelszo", jelszo)
Dim value = cmd.ExecuteScalar()
If value > 0 Then
Foablak.Show()
Loginablak.Hide()
Else
MessageBox.Show("Hibás fehasználónév/jelszó")
End If
Conn.Close()
End Using
End Using
End SubEddig ez okés is, tökéletesen működik.
Viszont kellene egy sub visszatérő értékkel ami azt csinálja hogy megadott sql parancsokat végrehajt majd visszadja az eredményt string-be vagy tömbbe hogy azt használhassam a progiba.
Szóval mi a bevállt dolog sql lekérdezésekre? Gondolom nem kell minden egyes parancs előtt connectelni?
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Azonnali VGA-s kérdések órája
- sziku69: Fűzzük össze a szavakat :)
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Minden a BlackBerry telefonokról és rendszerről
- Mesterséges intelligencia topik
- Xbox Series X|S
- Ford topik
- Saab, Volvo topik
- Láncfűrész topik
- Székesfehérvár és környéke adok-veszek-beszélgetek
- További aktív témák...
- Bomba ár! Lenovo IdeaPad 330S - i7-8550U I 8GB I 512SSD I 14" FHD I Radeo I HDMI I Cam I W11 I Gari!
- HP Elite Dragonfly G2 2in1 i5-1135G7 16GB 512GB 13" FHD TouchScreen 100%sRGB 1 év garancia
- HIBÁTLAN iPhone 11 Pro 64GB Midnight Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3372
- Samsung Galaxy S24 Ultra / 12/256GB / Gyári független / 12Hó Garancia
- HIBÁTLAN iPhone 15 Pro 256GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3507
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest