VB.NET Programming Corner!

[zoombeee]

ang gusto ko sanang mangyari isa lng yung botton na add pero kayang mag dagdag ng mdaming textbox

[/FONTPara san ba yan gagawin mo?b8 kelangan madami?

 

[jhayahr21]

[/FONTPara san ba yan gagawin mo?b8 kelangan madami?

para kasi pag mag add me ng certificate number sa text box... pra add nlng ako ng add ng certificate number lalabas nlng sa form yung textbox pag ka click ko ng add button

 

[raytleft]

Guys need help lang sa lesson namin XD Paano ung code dito using For Next looping? tnx

eto ung logic :

kapag pinindot mo ung button may lalabas na inputbox tapos ilalagay mo ung number na kung saan dun matatapos ung looping

example nag input ako ng 5 eto lalabas :

1
12
123
1234
12345

 

[doorbreaker]

para kasi pag mag add me ng certificate number sa text box... pra add nlng ako ng add ng certificate number lalabas nlng sa form yung textbox pag ka click ko ng add button

yung binigay ni zoombie na code ilipat mo yung declaration ng new text box sa loob ng button click.

Guys need help lang sa lesson namin XD Paano ung code dito using For Next looping? tnx

eto ung logic :

kapag pinindot mo ung button may lalabas na inputbox tapos ilalagay mo ung number na kung saan dun matatapos ung looping

example nag input ako ng 5 eto lalabas :

1
12
123
1234
12345

nested loop lang

'kunware InputCount eh 5 yan yung text box mo
for i as integer = 1 to InputCount
    for j as integer = 1 to i
        'display mo dito yung value ng j
    next j
nxt i

 

[ericgmejia]

sir yung mag sesearch ka nang data mo from data base tapos ilalabas sa listview . for example mag sesearch ako nang name tapos lahat nang info nya lalabas .

lagyan mo lang ng WHERE yung sql query mo para ma filter mo yung gusto mong lumabas

aral aral ng konti pa sa basic SQL
hindi lang SELECT ang meron sa sql
powerfull na kaaalaman yan

- - - Updated - - -

Hello

I'm just curious lang

Ano pinagkakaiba ng CommandText (cmd.CommandText) sa ibang statement/query like paratemerized

Is there any certain event na dapat gumamit ng CommandText

Curious lang ako kasi while searching codes for my project, some of the code are like that.

This my code before

dim sql as string = "INSERT INTO Info (id,name) VALUES ('" & txtID.text & "', '" & txtName.text & "')
cmd = New MysqlCommand(sql,cnn)
cmd.ExecuteNonQuery()

And this is my code now(parameterized query) when I learned/read about the sql injection

dim sql as string = "INSERT INTO Info (id,name) VALUES (@id,@name)
cmd = New MysqlCommand(sql,cnn)
cmd.parameters.addwithvalue("@id", txtID.text)
cmd.parameters.addwithvalue("@name", txtName.text)
cmd.ExecuteNonQuery()

commandtext ang object na hahawak ng SQL Statement mo or name ng Stored procedure
maski parametric meron parin commandtext

mas ok yang parametric command
mas ok din kung nasa parameters yung length at datatype para mas secured
yung sayo name at value lang, explore mo pa yung ibang options dyan
pwede mo lagay datatype at size ng data

- - - Updated - - -

Guys need help lang sa lesson namin XD Paano ung code dito using For Next looping? tnx

eto ung logic :

kapag pinindot mo ung button may lalabas na inputbox tapos ilalagay mo ung number na kung saan dun matatapos ung looping

example nag input ako ng 5 eto lalabas :

1
12
123
1234
12345

parang awa nyo na, hwag nyo na to ipasagot sa akin

 

[chumsrock29]

sir san poh ako pwede magdownload ng installer nitong vb.net

 

[wethejay28]

mga sir .. pa help naman po . baka may sample code po kayo jan para po sa search vb.net mysql yung database . wala kasi akong makitang maganda tutorial sa youtube . baka meron po kayo jan thanks in advance

up ko lang mga sir . yung search po nang data from database . thanks in advance po .

 

[Soichiro Jin]

commandtext ang object na hahawak ng SQL Statement mo or name ng Stored procedure
maski parametric meron parin commandtext

mas ok yang parametric command
mas ok din kung nasa parameters yung length at datatype para mas secured
yung sayo name at value lang, explore mo pa yung ibang options dyan
pwede mo lagay datatype at size ng data

I see, ganun pala yun,

Patulong naman boss, I have the code below for populating combobox from database,

Working po sya, nagdidisplay ang name sa combobox then and ID nito sa textbox

Pero working lang sya if may laman ang database pero pag wala nag.eeror.

Ngayon ko lang napansin >.<

---> Object reference not set to an instance of an object.

Nag eeror if null ehh, ano po ba mas magandang paraan ?

Private Sub patientName()

        Try
            Dim sql As String = "SELECT * FROM vw_inpatientName"

            da = New MySqlDataAdapter(sql, CNN)
            ds = New DataSet
            da.Fill(ds, "vw_inpatientName")

            With ComboBox1
                .DataSource = ds.Tables("vw_inpatientName")
                .DisplayMember = "PatientName"
                .ValueMember = "inpatientID"
                .SelectedIndex = -1
            End With

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

 Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged

            '[COLOR=RED]Dito po nag.eeror[/COLOR]
          TextBox1.Text = Combobox1.SelectedValue.ToString
        
    End Sub

 

[akumaakumi]

may mga questions po ako about sa bagong system namin.
Presentation Compiler po siya.
Sana po matulungan niyo kami.

1. Posible po na yung iembed yung MS Powerpoint sa loob ng VB.net ?
2. Pwede po ba siya iedit sa loob ng Program ?
3. Kakailanganin po ba ng Third Party ?
4. Ano po bang mga features ang mga mawawala sa PPT kapag inembed siya ?
5. Posible po ba siya kung gagamitin sa Touschreen Monitor, maari po ba siyang izoom at irotate ?
6. Ano po magiging Format ng File niya after isave gamit yung nabuong Program ?


Thanks ka Symb. !

 

[ericgmejia]

I see, ganun pala yun,

Patulong naman boss, I have the code below for populating combobox from database,

Working po sya, nagdidisplay ang name sa combobox then and ID nito sa textbox

Pero working lang sya if may laman ang database pero pag wala nag.eeror.

Ngayon ko lang napansin >.<

---> Object reference not set to an instance of an object.

Nag eeror if null ehh, ano po ba mas magandang paraan ?

Private Sub patientName()

        Try
            Dim sql As String = "SELECT * FROM vw_inpatientName"

            da = New MySqlDataAdapter(sql, CNN)
            ds = New DataSet
            da.Fill(ds, "vw_inpatientName")

            With ComboBox1
                .DataSource = ds.Tables("vw_inpatientName")
                .DisplayMember = "PatientName"
                .ValueMember = "inpatientID"
                .SelectedIndex = -1
            End With

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

 Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged

            '[COLOR=RED]Dito po nag.eeror[/COLOR]
          TextBox1.Text = Combobox1.SelectedValue.ToString
        
    End Sub

ito yung nangyayari pag nasanay sa copy paste ng code

alam mo basic lang yan maski saan
dudukot ka sa bulsa mo ng barya para pambayad sa jeep, bibilangin mo diba?

analyze natin ha
TextBox1.Text = Combobox1.SelectedValue.ToString

assign mo yung SELECTEDVALUE ng combobox sa textbox
kaso walang SELECTEDVALUE kasi walang laman yung pinagkuhanan mong database
natural aangal ang compiler
maglalagay ka ng WALA sa isang lalagayan, saan pwede yun?

ang ginawa mo ay dumukot ka sa bulsa mo tapos inabot mo sa driver
ako naman, dumukot ako sa bulsa ko, tinignan ko kung may barya, binilang ko saka ko inabot

gets mo yung logic?


basic practice ng nag iisip ng programmer ay i CHECK muna lahat bago gamitin
ALWAYS CHECK your data before assigning


IF NOT Combobox1.SelectedValue IS NOTHING THEN TextBox1.Text = Combobox1.SelectedValue.ToString

 

[Soichiro Jin]

ito yung nangyayari pag nasanay sa copy paste ng code

alam mo basic lang yan maski saan
dudukot ka sa bulsa mo ng barya para pambayad sa jeep, bibilangin mo diba?

analyze natin ha
TextBox1.Text = Combobox1.SelectedValue.ToString

assign mo yung SELECTEDVALUE ng combobox sa textbox
kaso walang SELECTEDVALUE kasi walang laman yung pinagkuhanan mong database
natural aangal ang compiler
maglalagay ka ng WALA sa isang lalagayan, saan pwede yun?

ang ginawa mo ay dumukot ka sa bulsa mo tapos inabot mo sa driver
ako naman, dumukot ako sa bulsa ko, tinignan ko kung may barya, binilang ko saka ko inabot

gets mo yung logic?


basic practice ng nag iisip ng programmer ay i CHECK muna lahat bago gamitin
ALWAYS CHECK your data before assigning


IF NOT Combobox1.SelectedValue IS NOTHING THEN TextBox1.Text = Combobox1.SelectedValue.ToString

HAHAHA

Yeah tama ka bossing

Thank you so much

May pag-asa pa ata ako gagraduate

 

[ericgmejia]

may mga questions po ako about sa bagong system namin.
Presentation Compiler po siya.
Sana po matulungan niyo kami.

1. Posible po na yung iembed yung MS Powerpoint sa loob ng VB.net ?
2. Pwede po ba siya iedit sa loob ng Program ?
3. Kakailanganin po ba ng Third Party ?
4. Ano po bang mga features ang mga mawawala sa PPT kapag inembed siya ?
5. Posible po ba siya kung gagamitin sa Touschreen Monitor, maari po ba siyang izoom at irotate ?
6. Ano po magiging Format ng File niya after isave gamit yung nabuong Program ?


Thanks ka Symb. !

ate napag usapan na natin sa chat natin to last time

1,2 - posible pero hindi madali, vs2008 pataas hindi na supoprted ang embedding, yung mga 3rd party na gumagana dati di na pwede
ang issue dyan kasi ay yung .NET at COM interoperability
internal sa microsoft products yan, mas advanced yung codes ng .net kesa sa msoffice so di sila magkakaintindihan mabuti as is

kung may time ka mag experiment try mo to
http://www.edrawsoft.com/embed-powerpoint.php
http://stackoverflow.com/questions/9621771/powerpoint-viewer-control-c-sharp-vb-net
http://www.vbforums.com/showthread.php?445515-2005-How-to-Embed-ppt-file-in-NET-application

http://www.codeproject.com/Articles/118676/Embedding-PowerPoint-presentation-player-into-a-WP

ito viewer lang
http://www.daolnwod.com/free-powerpoint-viewer-activex.html


after mo mabasa yan
for sure balik ka parin sa umpisa

5. yung zoom at rotate dependent sa OS, kung ang apps mo ay MetroApps suported yan, otherwise ikaw mag code mismo para mg rotate or amg zoom
6. ikaw ng program if ever, so ikaw mag decide kung ano extension

if ever magaw anyo to malamang kayo palng ang una, matagal ko na to gusto gawin pero sumuko na ako
dahil sa dami ng low level codes

gumamit nalang ako ng ibang paraan para magawa ang gusto ko

totally not worth it kung gagawin.

ang pwede mo lang gawin ay i automate ang msoffice apps via activex, which is hindi embedded parin



isang pwede nyo gawin, gaya ng napag usapan natin sa chat
ay kayo mismo ang mag create ng powerpoint applications using vb.net
pwede yun

pero di ko maimagine ang bigat ng resources na gagamitin nyo para gumawa ng isang bagay na nagawa na

again not worth it.

 

[Verio]

Good morning po mga sir, pahelp naman po. nagawa po kasi ako ng Entrance Exam System. eto po yung code na nagkakaproblema:

ExecNonQuery("UPDATE Exam SET Remarks = IIf([Score]>=(Max[QuestionID]/2), 'Passed', 'Failed') WHERE ExamID = '" & ExamID & "'")

gusto ko po kasing mangyari na makuha muna ung total number ng Questions then divide it by two. dati po kasi Score >= 16 siya. gumagana naman. kung ganon po kasi ung gagawin ko fixed na siya. paano po kung madagdagan yung total number ng Question diba papasa kahit 16 lang ang score nya. salamat po in advance.

 

[ericgmejia]

Good morning po mga sir, pahelp naman po. nagawa po kasi ako ng Entrance Exam System. eto po yung code na nagkakaproblema:

ExecNonQuery("UPDATE Exam SET Remarks = IIf([Score]>=(Max[QuestionID]/2), 'Passed', 'Failed') WHERE ExamID = '" & ExamID & "'")

gusto ko po kasing mangyari na makuha muna ung total number ng Questions then divide it by two. dati po kasi Score >= 16 siya. gumagana naman. kung ganon po kasi ung gagawin ko fixed na siya. paano po kung madagdagan yung total number ng Question diba papasa kahit 16 lang ang score nya. salamat po in advance.

hindi supported yata ang IIF

CASE WHEN ang gamitin mo

http://technet.microsoft.com/en-us/library/ms181765.aspx
http://stackoverflow.com/questions/14231353/tsql-case-with-if-comparison-in-select-statement
http://www.techonthenet.com/access/functions/advanced/case.php

Select Case LNumber
Case Is < 100
[RegionName] = "North"
Case Is < 200
[RegionName] = "South"
Case Is < 300
[RegionName] = "East"
Case Else
[RegionName] = "West"
End Select
\
gagawin ko sana yung query mo pero
ikaw na mag try i adapt sa situation mo para may challenge

saka mas ok yata na COUNT instead na MAX para mas flexible

 

[boypipino]

mga sir, sino po sa inyo may idea/alam pano mag isa mag adjust mga forms and controls na andun dpnde sa resolution ng computer/laptop.thanks po

 

[ericgmejia]

mga sir, sino po sa inyo may idea/alam pano mag isa mag adjust mga forms and controls na andun dpnde sa resolution ng computer/laptop.thanks po

check mo yung Anchor Property ng controls
try mo aralin at gamitin din yung TableLayOut Control

 

[alt delate]

mga master ano po ung code pra sa text prang pokemon game ung may lilitaw na text na prang nag ta type ng kusa... thanks po

 

[Soichiro Jin]

andami talagang gusto mag shortcut at gumamit ng autonumner
alam nyo ba na nagrerest yan sa 1?

kung ako meron akong sariling generator nyan, simple lang naman ang logic
1. kunin mo yung last ID sa database, kung wala pa then 0
2. add 1 to this value
3. yan na yung new id number mo

yung prefix simple lang naman e, meron naman substring

for example sa databse merong kang
EMP00001

so i query mo using sql
SELECT TOP 1 EmployeeID FROM Table ORDER BY EmployeeID DESC
or
SELECT MAX(EmployeeID) FROM Table

babalik sayo "EMP00001"

since standard naman yung prefix,
use substring to get the number and remove the 3letter prefix
will give you 00001,
convert to integer, = 1,
add 1, = 2
padleft 5 zero (.PadLeft) = "00002"
append the prefix EMP = EMP00002


ayan i translate mo na sa code

ok lang yan kung single user ka, perokung marami kayong sabay sabay gumagamit medyo magkaka problema ka dyan
so yung sa akin marami pang checking at generating bago ma save

problema din dyan kung na delete yung last id then gumawa ka ulit ng bagom mauulit yung last id
sa akin meron akong table na nakarecord yung ID, dun ako nakabase ng i generate

I'm slow in logic or analyzing things but I tried to translate it kasi need ko din kasi nang ganitong ID.

I'm still learning, ok lang ba yan sir? I've tried it, it's working though I'm not sure if the code is proper or not >.<

 Private Sub MYID()

        Try

            Dim sql As String = "SELECT Max(reservationID) FROM Reservation"
            cmd = New MySqlCommand(sql, CNN)
            dr = cmd.ExecuteReader

            If dr.Read() Then
                If dr.IsDBNull(0) Then
                    Dim number As Integer = 1
                    Dim emplang As String = "EMP"
                    Dim append As String = emplang + number.ToString().PadLeft(3, "00")
                    txtReserveID.Text = append
                    

                Else
                    Dim empString As String = dr(0).ToString.Substring(0, 3)
                    Dim empID As Integer = dr(0).ToString.Substring(3) + 1
                    Dim append As String = empString + empID.ToString().PadLeft(3, "00")
                    txtReserveID.Text = append.ToString

                End If
            End If


        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            dr.Close()
        End Try

 

[jamscarvajal]

Overload resolution failed because no Public '=' can be called with these arguments: 'Public Shared Operator =(a As String, b As String) As Boolean': Argument matching parameter 'a' cannot convert from 'Byte()' to 'String'.



View attachment 152282

 

[Procyon_]

panu po ung code na kapag na maximize mo ung window eh fit pa rin ung mga content ng form sa visual studio 2010..?
tska pano po maglagay ng password sa folder using vb.net code? para hindi po ma open ng ibang user ang folder.. kumbaga tanging authorized personel lang ang pwedeng mag open ....

thanks...

I dock mo ung mga controls mo o kaya naka anchor para kahit minimize maximize magbabago din cila.

- - - Updated - - -


I dock mo ung mga controls mo o kaya naka anchor para kahit minimize maximize magbabago din cila.

thanks po sir... na try ko na po... nung natry ko sa mga buttons at label eh na fill nya ung buong form...