- sziku69: Fűzzük össze a szavakat :)
- bambano: Bambanő háza tája
- Elektromos rásegítésű kerékpárok
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- Gurulunk, WAZE?!
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- hdanesz: Elektromos autózás - első élmények
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
Új hozzászólás Aktív témák
-
Gh0sT
addikt
Sikerült kiolvasnom az adatbázisból a lekérdezés fejléceit, de adatokat valamiért nem tudok.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connection1 As New System.Data.SqlClient.SqlConnection(''Data Source=kisg\sqlexpress; Initial Catalog=Babel;Integrated Security=SSPI;'')
Dim Command1 As New System.Data.SqlClient.SqlCommand(''Select * from UKM'', Connection1)
Connection1.Open()
Dim Reader1 As System.Data.SqlClient.SqlDataReader = Command1.ExecuteReader()
Dim Table As DataTable = Reader1.GetSchemaTable()
Dim index As Integer
For index = 0 To Table.Rows.Count - 1
TextBox1.Text &= Reader1.GetName(index) & ControlChars.Tab
Next
Egészen eddig működik is, a TextBoxban megjelennek a tábla fejlécei
'For index = 0 To Table.Rows.Count - 1
'TextBox1.Text &= Reader1.GetString(index) & ControlChars.Tab
'Next
End Sub
Gondolom itt lehet valami hiba, mert úgy viselkedik, mintha nem lenne találat. Pedig fel van töltve adatokkal. Ezek szerint nem a GetStringgel kellene adatokat kinyernem a táblából? -
Gregorius
őstag
Jól érzékelem előző posztjaid alapján, hogy a VB.NET-et bűvölöd? (System.Threading és hasonlók) Mert akkor az ADO.NET-tel lehet.
Dim conn As New SqlConnection(...)
...
Dim cmd As New SqlCommand(''SELECT TOP 1 Jelszó FROM júzertábla WHERE Név=@userName'', conn)
cmd.Parameters.Add(''@userName'', TextBox1.Text)
' vagy .NET 2.0-ban
' cmd.Parameters.AddWithValue(''@userName'', TextBox1.Text)
Dim rdr As SqlDataReader = cmd.ExecuteReader()
Dim pwd As String
If rdr.Read() Then
pwd = rdr(0)
Else
' nincs ilyen júzer
End If
rdr.Close()
' ha kell
' conn.Close()
Az adatok titkosítására meg azt tudom mondani, hogy ha egyirányú hash-sel tárolod a jelszót, akkor nem szükséges se a jelszó, se a szerverrel kommunikáció titkosítása, csak az okozhat gondot, ha valaki nem csak lehallgatni tudja a kábelt, de bele is tud piszkálni.
[Szerkesztve]
[Szerkesztve] -
Gh0sT
addikt
Újabb probléma:
Szeretnék login formot használni, de nem tudom hogyan kell.
Alapprobléma: kb. 40-50 usert kellene kiszolgálni, mindenkinek külön felhasználónév, jelszó, jogosultsági szint.
A következőt gondoltam: a userek adatait eltárolnám egy adatbázisban.
ID
Név
Jelszó
Jogosultság
Többi adat
A login formra felteszek egy TextBoxot (TextBox1), amibe beüti a felhasználónevét, valamint egy másik Password (TextBox2) boxot is. Emellett lerejtek két másik mezőt is, amikhez nincs hozzáférése és nem is látszanak (TextBox3, TexTBox4).
Amikor a felhasználó beüti a TextBox1-be a felhasználónevét, valamint a TextBox2-be a jelszavát és az OK gombra klikkel, akkor egy paraméterezett lekérdezést futtatnék, ahol a paraméter a felhasználónév lenne. Ha van találat az adatbázisban (vagyis van ilyen felhasználó), akkor ugye a TextBox3-ba beolvasom az adatbázisból a felhasználónevet, valamint a TextBox4-be az adatbázisban tárolt jelszót. Ezután már nincs más dolgom, mint összevetni a begépelt és a beolvasott jelszavakat.
Ezt így meg is csináltam és működik is. Valszeg biztonsági szempontból szart sem ér, de tökre örülök neki.
Két kérdés:
1. Lehet ezt valahogyan elegánsabban csinálni? Mondjuk a TextBox3 és TextBox 4 kiküszöbölésével? Gondoltam, hogy beolvasom egy változóba egyből az adatokat, de béna módon csak vezérlőkre és azok értékeire tudok hivatkozni. Szóval valahogyan direktbe el lehet érni az adatbázist (MS SQL szerver)?
2. Szükséges az adatok titkosítása? Jelenleg az adatbázisban nincsenek titkosítva a jelszavak, mert minek. Mondjuk nem is tudom, hogy ezt hogyan lehetne, egyáltalán ott célszerű őket tárolni? Úgy kellene megoldanom, hogy azért tudják változtatni, tehát érdemes lenne tárolni őket. -
#492
[HUN]Zolee
őstag
Gh0sT
#491
-
Gh0sT
addikt
Probléma:
Adott egy combobox, aminek az alábbi elemei vannak:
elmúlt egy hét
elmúlt egy hónap
elmúlt negyedév
elmúlt félév
elmúlt év
Ezen kívül manuálisan is lehet beírni dátum értéket. Megoldható valahogyan az, hogy mondjuk dupla klikkre megjelenjen a naptár, amin ki lehetne választani az időpontot? Sokkal elegánsabb lenne, mint ez a manuális bevitel. -
#487
sekli
addikt
[HUN]Zolee
#486
sekli
addikt
válasz
[HUN]Zolee
#486
üzenetére
nem érdekes, akkor hanyagolom azt a programot, viszont most az kéne, hogy hogy lehet elmenteni mondjuk .txt-be adatokat, és onnan kiolvasni? pl: konkrétan button1.text legyen a txt első sorában lévő button1.text= utáni rész.
-
#485
sekli
addikt
[HUN]Zolee
#484
sekli
addikt
válasz
[HUN]Zolee
#484
üzenetére
tudom, hogy azért van, de azt hittem, hogy van valami egyszerű módja a ''csinosításnak'', mert én többek között ezért is favorizálom a 2005-öt... (bár az ez a .NET FX es dolog elég gáz...)
-
#483
sekli
addikt
[HUN]Zolee
#482
sekli
addikt
válasz
[HUN]Zolee
#482
üzenetére
hát nekem 98 style csak az ablak felső része és az X gomb XP-s...
-
#481
sekli
addikt
[HUN]Zolee
#477
sekli
addikt
válasz
[HUN]Zolee
#477
üzenetére
és a 6-ra hogy lehet XP-skint ''varázsolni''?
-
#478
Gh0sT
addikt
[HUN]Zolee
#475
Gh0sT
addikt
válasz
[HUN]Zolee
#475
üzenetére
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba? -
#474
Gh0sT
addikt
[HUN]Zolee
#473
Gh0sT
addikt
válasz
[HUN]Zolee
#473
üzenetére
Igen, közben megtaláltam neten. Azért köszönöm!
-
#470
Gh0sT
addikt
[HUN]Zolee
#469
Gh0sT
addikt
válasz
[HUN]Zolee
#469
üzenetére
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni? -
#467
Gh0sT
addikt
[HUN]Zolee
#466
Gh0sT
addikt
válasz
[HUN]Zolee
#466
üzenetére
Ehh, hát ez elég egyszerű volt...
Köszi! -
Gh0sT
addikt
Valaki meg tudná mondani, hogy az Rnd() függvény miért mindig ugyanazt az értéket adja vissza?
Egy parancsgombhoz rendeltem hozzá az Rnd()*100+1 függvényt, ami mondjuk elsőre 75-öt ad eredményül. Ezután újra klikkelek és mondjuk 18-at kapok, majd a következőre 37-et.
Kilépés és újraindítás után ismét 78, 18, 37 lesz a sorrend. De miért??? -
szabi244
csendes tag
Sziasztok!
egy string változóba szeretnék egy hivatkozást elhelyezni egy weblap címre.
(bla-bla bla-bla bla www.valami.hu bla bla bla)
Nem tudom, hogy hogyan kell....
Azért kellene, hogy utána el tudjam küldeni a stringet egy E-mailbe.(de az a rész már megy.)
Szabolcs -
Panther
HÁZIGAZDA
A DataGrid-ben egy cellában levő szöveget a Text attribútummal tudod beállítani / kiolvasni. Előtte persze rá kell állni az adott cellára, mégpedig a Row és Col attribútumokkal. Ha a sort már kijelölte a user azzal hogy valahova belekattintott, akkor a Col értékét állítsd mondjuk 2-re (ha minden sor 2. oszlopában van a számodra érdekes adat), és utána olvasd ki a Text-et. (Az átállítás előtt esetleg mentsd el egy változóba a Col értékét, és miután megtudtad amire kíváncsi voltál, állítsd vissza.)
Amúgy továbbra is javaslom, hogy vedd a kezedbe az irányítást, te töltsd fel a DataGrid-et is adatokkal, és akkor a kattintás után a Row-ot lekérdezve máris tudni fogod, hogy mi van az adott sorban.
Na meg persze feltöltheted egyúttal akkor már a Combobox-okat is úgy, ahogy neked tetszik, ott is tudni fogod mindig hogy mi van kijelölve, stb...
[Szerkesztve] -
Gh0sT
addikt
Lenne egy problémám, amit szeretnék elegánsabban megoldani:
Adott a formon egy adatrács, amiben mondjuk a következő oszlopok vannak:
Azonosító, Név, Életkor
Szeretném megcsinálni azt, hogy ha mondjuk ráállok a harmadik rekodra és dupla klikket nyomok rajta, akkor előugrana egy másik form amin az adott azonosítóhoz tartozó többi adat lenne.
Sikerült megoldanom, de elég bénán. Jelenleg használok egy segéd TextBox-ot, aminek a Text tulajdonságához hozzárendeltem az adatrács aktuális kijelölésének azonosítóját. Magyarán ha ráállok valamelyik rekordra, akkor egy Textboxban az adatrács mellett megjelenik az azonosító és erre hiavtkozva egy paraméteres lekérdezéssel már meg tudom nyitni a kívánt formot.
Jó lenne, ha a Textboxot ki tudnám valahogyan kerülni, csak lövésen nincs, hogy az adatrács egy mezőjének értékére hogyan tudok kódból hivatkozni. Valamiért nem találok value tulajdonságot az adatrács mezőiben. Valakinek van ötlete? -
#461
sekli
addikt
matekmatika
#460
sekli
addikt
válasz
matekmatika
#460
üzenetére
vagy kapkodok...
#452... -
#457
sekli
addikt
[HUN]Zolee
#456
sekli
addikt
válasz
[HUN]Zolee
#456
üzenetére
tudom, elég egy barom dolog ez...
van valami patch asszem, az kell a SAMI-hoz is... -
#455
sekli
addikt
[HUN]Zolee
#454
sekli
addikt
válasz
[HUN]Zolee
#454
üzenetére
ja, framework, de volt fenn...
-
sekli
addikt
kár...
,
de azért van egy újabb kérdésem: hogy lehet az egér helyzetét lekérdezni akkor is, ha nem a form fölött van, és a kattintás eseményeket is számolni... Studio 2005 ben?, VB6-ban megírtam már régebben az egér helyzetének figyelését, de a 2005-ben nem megy a POINTAPI...
[Szerkesztve] -
QuarK
senior tag
-
#447
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
pláne már #437-ben megoldódott...
amúgy érdekes, mert application.worksheetfunction.isnumber(szam) nem ment pedig kéne neki sztem.
[Szerkesztve] -
#445
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
if isnumeric(szam) then
de ha az excel makrós totyikba írod látom... -
matekmatika
tag
válasz
[HUN]Zolee
#442
üzenetére
Teljesen mindegy neki a deklaráció, vele és nélküle sem működik.
Excelben egy beviteli mezőbe beírt értéket kellene megvizsgálnom, hogy az numerikus érték vagy nem. A vizsgálat egy parancsgomb megnyomására indulna, ez alá írom...írnám a kódot. Hogyan hívjam akkor meg a függvényt, hogy megegye? -
#443
[HUN]Zolee
őstag
matekmatika
#441
[HUN]Zolee
őstag
válasz
matekmatika
#441
üzenetére
mingyárt megnézem neked ezt a fügvényt
vagyis amint megjöttem este a melóból
[Szerkesztve] -
#442
[HUN]Zolee
őstag
-Gábor-
#440
-
#441
matekmatika
tag
Jester01
#437
matekmatika
tag
válasz
Jester01
#437
üzenetére
Az IsNumber-t ötletét a makrorögzítő adta, nekem fogalmam sem volt, hogy van ilyen (nekem magyar Office lévén SZÁM szerepelt a munkalap függvényében) Ergo: olyan nagyon rosszat nem írhattam. Az IsNumeric-et már a neten találtam, több helyen is, több példát, de nem jók. (Lehet Visual Basic.Net kell hozzá?
) Nem tudom. -
#440
-Gábor-
csendes tag
[HUN]Zolee
#439
-Gábor-
csendes tag
válasz
[HUN]Zolee
#439
üzenetére
Jah, hogy itt most Excelről van szó...
Azt hittem, hogy az Excel-es makrót szeretné átalakítani úgy, hogy fusson egy VB formon. -
#438
-Gábor-
csendes tag
matekmatika
#436
-Gábor-
csendes tag
válasz
matekmatika
#436
üzenetére
Hiányzik a deklaráció:
Dim szam as string
[Szerkesztve] -
#437
Jester01
veterán
matekmatika
#436
Jester01
veterán
válasz
matekmatika
#436
üzenetére
Kevered az excel munkalap függvényeket a vb függvényekkel. Mindazonáltal az IsNumeric-nek elvileg mennie kellene
-
#436
matekmatika
tag
matekmatika
tag
Hogyan tudom megvizsgálni a változóba írt éték az szám-e, azaz numerikus-e. Nem kérdeznék ilyen egyszerűnek tűnő dolgot, de már két napja kínlódok vele. Egy csomó példát találtam a neten, próbálgattam, de egyik sem működik. Makrorögzítővel ha készítek egy egyszerű példát:
Sub Rögzítés1()
'
' Rögzítés1 Makro
' Rögzítette: karbantartás, dátum: 2006.05.12.
'
' Billentyűparancs: Ctrl+m
'
Range(''C8'').Select
ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
End Sub
Ez még a Ctrl+m-mel működik is.Sőt parancsgomb alá berakva is.
Private Sub CommandButton1_Click()
Range(''C8'').Select
ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
End Sub
De amint elkezdem átalakítani az igényeimnek megfelelően, már kiakad.
Private Sub CommandButton1_Click()
szam = InputBox(''Add meg a számot'', ''Szám megadása'', '''', 5000, 1000)
If IsNumber(szam) Then
MsgBox (''ez egy szám'')
Else
MsgBox (''ez nem szám'')
End If
End Sub
Üzenet: Compile error:Sub or Function not defined
Nem értem mi lehet a hiba, próbélkoztam hasonlóan az IsNumeric függvénnyel is, de ugyanez. Segítsetek légyszíves, köszi. -
#434
sonar
addikt
matekmatika
#425
sonar
addikt
válasz
matekmatika
#425
üzenetére
miért ne lehetne. Bár nem igazán értem mit akarsz.
\akármi.xls ha így kezded \ jellel akkor a cd meghajtó gyökerétől indulsz és címezhetsz -
#431
sekli
addikt
matekmatika
#426
sekli
addikt
válasz
matekmatika
#426
üzenetére
de ez sajnos C#...
-
matekmatika
tag
válasz
matekmatika
#429
üzenetére
Hát így kénytelen leszek én kitalálni
.
Na jó:
Private Sub CommandButton1_Click()
'megnyitandó fájl elérési útvonala a CD-n
mappanev = ''mappa1\mappa2\''
'megnyitandó fájl neve
fajlnev = ''akarmi.xls''
utvonal = ActiveWorkbook.Path
utvonal = Mid(utvonal, 1, 3)
megnyit = utvonal & mappanev & fajlnev
Workbooks.Open (megnyit)
End Sub
Így akkor is jó, ha nem ugyanabban a mappában van a két munkafüzet.
[Szerkesztve] -
matekmatika
tag
válasz
matekmatika
#425
üzenetére
Na jó, egy kis segítség
, mivel az a munkafüzet is a CD-n van ugyanabban a mappában ezért úgy is megoldható lenne, ha valahogy valamivel kideríteném az aktív munkafüzet elérési útvonalát, hiszen ez ugyanaz mint a megnyitásra váróé, csak a fájl neve más. -
matekmatika
tag
válasz
matekmatika
#425
üzenetére
bővebben?
-
matekmatika
tag
válasz
matekmatika
#425
üzenetére
valaki?
-
#425
matekmatika
tag
matekmatika
tag
Lehet hüleséget kérdezek most, de VB-ben van relatív hivatkozás? Konkrétabban, egy CD-re felrakom a dolgokat és az erről megnyitott munkafüzet egy másik munkafüzetből olvasna be adatokat. A gond az, hogy az optikai meghajtó betűjele gépenként változhat, vagyis nem adhatom meg neki, hogy nyissa meg a D:\akármi.xls-t mert nem biztos hogy D lesz betűjele a meghajtónak.
-
#424
sekli
addikt
matekmatika
#423
sekli
addikt
válasz
matekmatika
#423
üzenetére
kössz, ebből megtalálom...
Akkor van még egy kérdésem, sokat kerestem de nem találtam Visual Studio 2005-ben működőt. Hogy kell a pillanatnyi hangerőt megállapítani mondjuk a max hangerő százalékában? Magyarán egy olyat szeretnék mint ami a Hi-Fi elején van LED-ekből... -
#422
sekli
addikt
matekmatika
#421
sekli
addikt
válasz
matekmatika
#421
üzenetére
persze, 1024x768, 1280x1024, de meg akarom tudni, hogy melyiket használja éppen...
-
#418
balint0224
csendes tag
balint0224
csendes tag
Sziasztok!
Egy programmra lenne szükségem. Bármi lehet, a lényeg , h ne legyen se túl bonyolult, se túl egyszerű. És persze rendesen működjön.
Ha valaki tud ilyet, és segítene nekem, kérem küldjön egyet a balint0224@freemail.hu címre. Előre is köszönöm. -
#417
sekli
addikt
matekmatika
#413
sekli
addikt
válasz
matekmatika
#413
üzenetére
Hát sok haszna nincs, de poén, jopofa dolgokat lehet vele csinálni...
-
tkazmer
addikt
válasz
Jester01
#415
üzenetére
Persze, felraktam, és regeltem is. A nem ment alatt azt értem, hogy deboggolni ugyan tudta a fordító, de én a kódot egy gomb eseménykezelőjébe írtam be, és amikor ráclickeltem, akkor kezdett el próblémázni.
Mostanra már sikerült megcsinálnom, valszeg az előző regeléssel lehetett a baj, mert unregeltem, aztán ismét regeltem, és így már ok -
sekli
addikt
Na egy nagyon béna kérdés jön
, most keztem el VB-et, eddig ehhez hasonló RealBasic-et használtam és nem tudom, hogy ez miért nem megy: [link] -ezt letoltottem, és reggeltem a dll-t, ahogy mondja, aztán annyit csináltam, hogy raktam egy gombot, amihez beírtam ezt:
LedOn(''NUMLED'')
persze nem működött (''Sub or Function not defined'')
mit kell még tenni...? -
Jester01
veterán
?
, mivel az a munkafüzet is a CD-n van ugyanabban a mappában ezért úgy is megoldható lenne, ha valahogy valamivel kideríteném az aktív munkafüzet elérési útvonalát, hiszen ez ugyanaz mint a megnyitásra váróé, csak a fájl neve más.
Új hozzászólás Aktív témák
Hirdetés
- Apple iPhone SE 16GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- Samsung Galaxy S25 Ultra 1TB, Kártyafüggetlen, 1 Év Garanciával
- 100 - Lenovo Yoga Pro 9 (16IRP8) - Intel Core i9-13905H, RTX 4070 (ELKELT)
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest