What's new
Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

VB.NET Programming Corner!

Re: VB.NET Programming Corner! UPDATED!!!

ryu_shinobi said:
hindi nyo po sya nalagay dito sa loob ng loop...

check nyo po itong code nyo...

Code: 
For Each row As DataGridViewRow In DataGridView1.Rows

            If row.Cells(Column1.Name).Value = True Then
                connection.Open()
                cmd.Connection = connection
                cmd.CommandText = " INSERT INTO [Equipment Request](SerialNumber, SiteID) VALUES('" & serialnumber & "', '" & siteid & "') "
                cmd.ExecuteNonQuery()
                connection.Close()
            End If
        Next

kung makikita mo, hindi nyo po nilagyan ng value yung serialNumber na variable nyo..
ibig sabihin gagamitin nyang value yung tinutukoy mo na code..

kaya ang mangyayari paulit ulit lang na papasok yung value ng serialNumber at hindi sya magpapalit...

so dapat ganito sya...

Code: 
For Each row As DataGridViewRow In DataGridView1.Rows

            If row.Cells(Column1.Name).Value = True Then
                ''serialNumber = value
                connection.Open()
                cmd.Connection = connection
                cmd.CommandText = " INSERT INTO [Equipment Request](SerialNumber, SiteID) VALUES('" & serialnumber & "', '" & siteid & "') "
                cmd.ExecuteNonQuery()
                connection.Close()
            End If
        Next

sana malinaw na po... :D
Click to expand...


salamat boss malinaw na po ...:salute:
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir patulong naman po... Meron akong gagawing inventory ng mga items ng pc's. Meron na silang mga records ng items na naka excel lang. Bawat item ay mei Description, Model, S/N, Status and Location(loc. kung sang branch). Ang pag+

generate ng ID nito ay branch code(3 digits) + sequence num(4 digits).

Problem ko ay:
Paano ko po maililipat ang mga records galing sa excel to database na mag auto generate ng ID para hindi na ieencode ng isa isa??
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir patulong naman po... Meron akong gagawing inventory ng mga items ng pc's. Meron na silang mga records ng items na naka excel lang. Bawat item ay mei Description, Model, S/N, Status and Location(loc. kung sang branch). Ang pag+

generate ng ID nito ay branch code(3 digits) + sequence num(4 digits).

Problem ko ay:
Paano ko po maililipat ang mga records galing sa excel to database na mag auto generate ng ID para hindi na ieencode ng isa isa??
 
Re: VB.NET Programming Corner! UPDATED!!!

name_name said:
mga sir patulong naman po... Meron akong gagawing inventory ng mga items ng pc's. Meron na silang mga records ng items na naka excel lang. Bawat item ay mei Description, Model, S/N, Status and Location(loc. kung sang branch). Ang pag+

generate ng ID nito ay branch code(3 digits) + sequence num(4 digits).

Problem ko ay:
Paano ko po maililipat ang mga records galing sa excel to database na mag auto generate ng ID para hindi na ieencode ng isa isa??
Click to expand...

marunong ka na ba mag insert ng data sa database?
madali lang mag read ng excel file

try mo tong code na to
pero bago yan, ilagay mo muna sa named range yung part ng excel na gusto mo kunin (do i need to explain NAMED RANGE sa excel?)

ExcelImport.png



ibabalik nyan ay dataset na
so pwede ka na mag loop sa dataset na yan

use it like this

Dim ds As DataSet = GetDataFromExcel(_ExcelFile, "INVENTORYITEMS")

once you have the dataset ds

dim dt as datatable
dim dr as datarow

for each dr ng dt.rows
'dito pwede ka na mag insert using SQL similar dito
or use parameters
INSERT INTO TABLE(value1, Value2) Values(' & dr("ItemID") & "', '" & dr("ItemName") & "')"

next


you can get the sequence number by getting the last number na nasave at i parse mo

SELECT TOP 1 AutoID from Table ORDER BY AutoID DESC

run mo yan as scalar sa command object mo
then parse ang add 1, meron ka na new auto number
 
Re: VB.NET Programming Corner! UPDATED!!!

sir patulong po
paano po ba sa button po pagminaximized po ung window hindi magbabago ng size at fit sa window
kasi po nang naganchor ako pagminaximized dun padin ung position niya kagaya ng nakaminimize siya..help po:weep:

ganito ung gusto kong mangyari po kagaya sa window ng cleaner
 

Attachments

  • help.png
    help.png
    240.6 KB · Views: 12
Re: VB.NET Programming Corner! UPDATED!!!

anshity said:
sir patulong po
paano po ba sa button po pagminaximized po ung window hindi magbabago ng size at fit sa window
kasi po nang naganchor ako pagminaximized dun padin ung position niya kagaya ng nakaminimize siya..help po:weep:

ganito ung gusto kong mangyari po kagaya sa window ng cleaner
Click to expand...


yung isa naka anchor sa left, yung isa naka anchor sa right

try mo mag experiment para makita mo ang para sa kelangan mo
 
Re: VB.NET Programming Corner! UPDATED!!!

ericgmejia said:
marunong ka na ba mag insert ng data sa database?
madali lang mag read ng excel file

try mo tong code na to
pero bago yan, ilagay mo muna sa named range yung part ng excel na gusto mo kunin (do i need to explain NAMED RANGE sa excel?)
Click to expand...

Di ko pa po kc nattry yan... cge pa explain po...
Thanks po..
 
Re: VB.NET Programming Corner! UPDATED!!!

mga boss..paano po ba makakasya yung employee's payslip sa whole page na naka landscape po..malalagay po yun by side..sa crystal report po ito..pa help naman po..urgent na po ito..

http://i55.tinypic.com/24v6vk1.jpg
 
Re: VB.NET Programming Corner! UPDATED!!!

mga boss :help: po..

meron po kasi akong probz sa login ko.. hindi nya ma trap ang pag login ko.. example "username:123 password:333" nakakalogin ako kahit wala naman yan sa database ko..
at meron din ako probz sa pag save nang aking mga data sa database ko.. pag na input ko na lahat nang data ex. "fname,lname,contact" pag click ko nang save hindi cya nasesave sa database ko.. :weep::weep: i really nid you help mga boss.. kunti lang kasi e tinuro nang teacher namin at wala din ako panahon mag self study kasi 4 ang major ko.. hirap e isabay-sabay lahat..

ito po codes ko sa login..

PS. mySQL po ang gamit kung database gamit wamp 5

Private Sub Frame1_DragDrop(Source As Control, x As Single, y As Single)

End Sub


Private Sub Form_Load()
Call openDB
SQL = "select * from employee"
Set rs = con.Execute(SQL)
End Sub

Private Sub piclogin_Click()
On Error Resume Next

If txtuser.Text = "" Then
MsgBox "Please Input UserName and Password!", vbInformation, "Log In Error"
Else
SQL = "select * from employee where username=txtuser and password=txtpassword"
Call openDB

With rs

.Open SQL, con, adOpenStatic, adLockOptimistic

If .RecordCount >= 1 Then
If (!Password = Trim(txtpassword.Text) & !Position = administrator) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
ElseIf (!Password = Trim(txtpassword.Text) And !Position = employee) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
Else
MsgBox "Password Did not Match!", vbCritical, "Log In Error"
Password.SetFocus

End If

Else
MsgBox "Invalid User ID", vbCritical, "Log In Error"
Text1.SetFocus

End If
End With
End If
End Sub

Private Sub picexit_Click()
End
End Sub
 
Re: VB.NET Programming Corner! UPDATED!!!

junekarl said:
mga boss :help: po..

meron po kasi akong probz sa login ko.. hindi nya ma trap ang pag login ko.. example "username:123 password:333" nakakalogin ako kahit wala naman yan sa database ko..
at meron din ako probz sa pag save nang aking mga data sa database ko.. pag na input ko na lahat nang data ex. "fname,lname,contact" pag click ko nang save hindi cya nasesave sa database ko.. :weep::weep: i really nid you help mga boss.. kunti lang kasi e tinuro nang teacher namin at wala din ako panahon mag self study kasi 4 ang major ko.. hirap e isabay-sabay lahat..

ito po codes ko sa login..

PS. mySQL po ang gamit kung database gamit wamp 5

Private Sub Frame1_DragDrop(Source As Control, x As Single, y As Single)

End Sub


Private Sub Form_Load()
Call openDB
SQL = "select * from employee"
Set rs = con.Execute(SQL)
End Sub

Private Sub piclogin_Click()
On Error Resume Next

If txtuser.Text = "" Then
MsgBox "Please Input UserName and Password!", vbInformation, "Log In Error"
Else
SQL = "select * from employee where username=txtuser and password=txtpassword"
Call openDB

With rs

.Open SQL, con, adOpenStatic, adLockOptimistic

If .RecordCount >= 1 Then
If (!Password = Trim(txtpassword.Text) & !Position = administrator) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
ElseIf (!Password = Trim(txtpassword.Text) And !Position = employee) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
Else
MsgBox "Password Did not Match!", vbCritical, "Log In Error"
Password.SetFocus

End If

Else
MsgBox "Invalid User ID", vbCritical, "Log In Error"
Text1.SetFocus

End If
End With
End If
End Sub

Private Sub picexit_Click()
End
End Sub
Click to expand...

paki tanggal nalang po ito..

Code: 
On Error Resume Next

hindi po magandang gamitin yang line na yan..


mali naman po itong line na to..
Code: 
SQL = "select * from employee where username=txtuser and password=txtpassword"

palitan nalang ng ganito..
Code: 
SQL = "select * from employee where username='" & txtuser & "' and password='" & txtpassword & "' "
 
Re: VB.NET Programming Corner! UPDATED!!!

junekarl said:
mga boss :help: po..

meron po kasi akong probz sa login ko.. hindi nya ma trap ang pag login ko.. example "username:123 password:333" nakakalogin ako kahit wala naman yan sa database ko..
at meron din ako probz sa pag save nang aking mga data sa database ko.. pag na input ko na lahat nang data ex. "fname,lname,contact" pag click ko nang save hindi cya nasesave sa database ko.. :weep::weep: i really nid you help mga boss.. kunti lang kasi e tinuro nang teacher namin at wala din ako panahon mag self study kasi 4 ang major ko.. hirap e isabay-sabay lahat..

ito po codes ko sa login..

PS. mySQL po ang gamit kung database gamit wamp 5

Private Sub Frame1_DragDrop(Source As Control, x As Single, y As Single)

End Sub


Private Sub Form_Load()
Call openDB
SQL = "select * from employee"
Set rs = con.Execute(SQL)
End Sub

Private Sub piclogin_Click()
On Error Resume Next

If txtuser.Text = "" Then
MsgBox "Please Input UserName and Password!", vbInformation, "Log In Error"
Else
SQL = "select * from employee where username=txtuser and password=txtpassword"
Call openDB

With rs

.Open SQL, con, adOpenStatic, adLockOptimistic

If .RecordCount >= 1 Then
If (!Password = Trim(txtpassword.Text) & !Position = administrator) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
ElseIf (!Password = Trim(txtpassword.Text) And !Position = employee) Then
MsgBox "Welcome User! " & !Position, vbInformation
Unload Me
frmmain.Show
Else
MsgBox "Password Did not Match!", vbCritical, "Log In Error"
Password.SetFocus

End If

Else
MsgBox "Invalid User ID", vbCritical, "Log In Error"
Text1.SetFocus

End If
End With
End If
End Sub

Private Sub picexit_Click()
End
End Sub
Click to expand...

this is vb6, asan yung code mo sa SAVING

yung code ko dito pwede mo sundan sa saving
connectionstring lang ang maiiba sa code mo

http://symbianize.com/showthread.php?t=163979
 
Re: VB.NET Programming Corner! UPDATED!!!

sir ryu_shinobi, maraming salamat po na solve ko na ang login ko... filter na lahat.. may error pang lumabas pero na solve ko na rin ang error.. nandun sa module ko.. marami pong salamat sir sa codes at sa pag tulong mo..:praise: :praise: :salute: :salute:


sir eric ito po codes sa save ko.. nag reffer ako dun sa codes mo medjo iniba ko lang..


Private Sub picSave_Click()
Dim rs As ADODB.Recordset
Dim sql As String
If checkEmpty(Me) = True Then
Else: ans = MsgBox("Would you like to Save this Record?", vbYesNo + vbQuestion, "Confirmation to Add Records")
sql = "insert into applicant(fname,middle,lname,age,contact) values ('" & txtfname.Text & "','" & txtmiddle.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "','" & txtage.Text & "','" & txtgender.Text & "','" & Txcontact.Text & "')"
Set rs = con.Execute(sql)
sql = "insert into payment(payment_type) values ('" & Combo1.Text & "')"
Set rs = con.Execute(sql)
sql = "insert into car(car_id,plate,maker,color,year,chasis_num,serial_num,amount) values( '" & txtcar_id.Text & "','" & txtplate.Text & "','" & Txtmaker.Text & "','" & txtcolor.Text & "','" & txtyear.Text & "','" & txtcolor.Text & "','" & txtchasis.Text & "','" & txtserial.Text & "','" & txtamount.Text & "')"
Set rs = con.Execute(sql)
'sql = "insert into policy(date_reg) values('" & Txtreg.Text & "')"
'Set rs = con.Execute(sql)
Set rs = Nothing
MsgBox "Record Save"

End If
End Sub

ang error po ay "object requird" tapos highlight nya itong code na ito.. ---sql = "insert into applicant(fname,middle,lname,age,contact) values ('" & txtfname.Text & "','" & txtmiddle.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "','" & txtage.Text & "','" & txtgender.Text & "','" & Txcontact.Text & "')" ---sa tingin ko naman po tama ang syntax ko nito..

sir eric sinusunod ko pa yung pag display nang listview sa binigay mong rar.. marami pong salamat dun at salamat din po sa pag tulong...:praise: :praise: :salute: :salute:
 
Re: VB.NET Programming Corner! UPDATED!!!

junekarl said:
sir ryu_shinobi, maraming salamat po na solve ko na ang login ko... filter na lahat.. may error pang lumabas pero na solve ko na rin ang error.. nandun sa module ko.. marami pong salamat sir sa codes at sa pag tulong mo..:praise: :praise: :salute: :salute:


sir eric ito po codes sa save ko.. nag reffer ako dun sa codes mo medjo iniba ko lang..


Private Sub picSave_Click()
Dim rs As ADODB.Recordset
Dim sql As String
If checkEmpty(Me) = True Then
Else: ans = MsgBox("Would you like to Save this Record?", vbYesNo + vbQuestion, "Confirmation to Add Records")
sql = "insert into applicant(fname,middle,lname,age,contact) values ('" & txtfname.Text & "','" & txtmiddle.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "','" & txtage.Text & "','" & txtgender.Text & "','" & Txcontact.Text & "')"
Set rs = con.Execute(sql)
sql = "insert into payment(payment_type) values ('" & Combo1.Text & "')"
Set rs = con.Execute(sql)
sql = "insert into car(car_id,plate,maker,color,year,chasis_num,serial_num,amount) values( '" & txtcar_id.Text & "','" & txtplate.Text & "','" & Txtmaker.Text & "','" & txtcolor.Text & "','" & txtyear.Text & "','" & txtcolor.Text & "','" & txtchasis.Text & "','" & txtserial.Text & "','" & txtamount.Text & "')"
Set rs = con.Execute(sql)
'sql = "insert into policy(date_reg) values('" & Txtreg.Text & "')"
'Set rs = con.Execute(sql)
Set rs = Nothing
MsgBox "Record Save"

End If
End Sub

ang error po ay "object requird" tapos highlight nya itong code na ito.. ---sql = "insert into applicant(fname,middle,lname,age,contact) values ('" & txtfname.Text & "','" & txtmiddle.Text & "','" & txtlname.Text & "','" & txtaddress.Text & "','" & txtage.Text & "','" & txtgender.Text & "','" & Txcontact.Text & "')" ---sa tingin ko naman po tama ang syntax ko nito..

sir eric sinusunod ko pa yung pag display nang listview sa binigay mong rar.. marami pong salamat dun at salamat din po sa pag tulong...:praise: :praise: :salute: :salute:
Click to expand...

weeeh di ko code yan

i never execute INSERT STATEMENTS sa recordset

OBJECT REQUIRED means meron dyan object or variable na di na declare or may textbox na tinawag pero wala naman sa form

for example gumamit ka ng textbox1 per sa form ang name pala nya ay textbox11

\sa totoo lang magulo ang code
hirap basahin
 
Re: VB.NET Programming Corner! UPDATED!!!

mga bossing.. i have a code that will enable to filter a certain value, eto yung code.. pag run ko na eto ang error message :

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Syntax error (comma) in query expression 'department='' ,'RTYPE='Lecture Room''.


Code:

str = ""
str = "SELECT RNAME from ROOM where department='" & cmbdept.Text & "' ,'RTYPE='" & cmbrtype.Text & "'"
ldata.connstate()
cmbroom.Text = ""
cmbroom.Items.Clear()
Dim dtadap As New OleDbCommand(str, Con)
Dim dtreader As OleDbDataReader = dtadap.ExecuteReader

While dtreader.Read
Dim row1 As String
row1 = dtreader(0)
cmbroom.Items.Add(row1)
End While
Con.Close()

pa help po mga bossing... kasi nalilitu na ako sa ka tatry ng combination sa commandtext.. pano ho ba ang dapat,,
need ko talaga ng HELP!1 :pray::weep:
THANK YOU TALAGA..!!
 
Re: VB.NET Programming Corner! UPDATED!!!

@sir eric

hindi ko po kinapy paste ang code mo.. hehehe inintindi ko lang po at nag code ako nang akin..
sorry po sa magulong code sir.. basic lang po kasi nalalaman ko sa pag code nito.. :weep:
cge sir titignan ko uli code ko.. ask lang ako ulit sayu pag meron ako di maintindihan na error.. hehehe salamat po talaga nang marami sir eric.. :salute: pag tapos ko sa save form sa list nanaman ako pupunta..
 
Re: VB.NET Programming Corner! UPDATED!!!

Kombento said:
mga bossing.. i have a code that will enable to filter a certain value, eto yung code.. pag run ko na eto ang error message :

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Syntax error (comma) in query expression 'department='' ,'RTYPE='Lecture Room''.


Code:

str = ""
str = "SELECT RNAME from ROOM where department='" & cmbdept.Text & "' ,'RTYPE='" & cmbrtype.Text & "'"
ldata.connstate()
cmbroom.Text = ""
cmbroom.Items.Clear()
Dim dtadap As New OleDbCommand(str, Con)
Dim dtreader As OleDbDataReader = dtadap.ExecuteReader

While dtreader.Read
Dim row1 As String
row1 = dtreader(0)
cmbroom.Items.Add(row1)
End While
Con.Close()

pa help po mga bossing... kasi nalilitu na ako sa ka tatry ng combination sa commandtext.. pano ho ba ang dapat,,
need ko talaga ng HELP!1 :pray::weep:
THANK YOU TALAGA..!!
Click to expand...

i check mo mabuti ang SQL STATEMENT mo

dapat ang itsura neto ay ganito pag inexecute

SELECT RNAME FROM Room
WHERE department= 'DEPT' AND RTYPE ='TYPE'

kung saan ang DEPT ay ang text ng cmbdept
at yung TYPE ay text ng cmbrtype

notice the single qoutes pag string ito

so pag sa code instead na yung actual value, yung text ng mga combobox ang nandun na kapalit

" SELECT RNAME FROM Room "
"WHERE department= ' " & cmbdept.text & " ' "
"AND RTYPE = ' " & cmbrtype.text & " ' "

**nilagyan ko lang ng spaces yung sa single qoute para makita mo

kumbaga in-embed mo yung variable sa loob ng string at naka enclose ng single qoute

ang ginagawa ko dyan ay gagawing constant value ang single qoute para madali makita

DIM SQ AS string
SQ = "'"

"WHERE department = " & SQ & cmbdept.text & SQ & AND " & SQ ......

ayan ituloy mo na
 
Re: VB.NET Programming Corner! UPDATED!!!

"sa totoo lang magulo ang code mahirap basahin" so true, so true.
 
You must log in or register to reply here.

Similar threads

raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
457
manlors
manlors
TambayBlues
Visual Studio 2023 - The Most Concise and Detailed Guide to Mastering all the Features and the Use of Visual Studio
Replies
0
Views
237
TambayBlues
TambayBlues
TambayBlues
Hands-On Visual Studio 2022: A Developer's Guide to New Features and Best Practices with .NET 8 and VS 2022 for Maximum Productivity, 2nd Edition
Replies
0
Views
265
TambayBlues
TambayBlues
Aimershin
[Udemy Course] PHP Registration Form, Email Verification & Responsive Email | Direct Download | Requested
Replies
7
Views
542
poiqwe
P
mythos
Cybersecurity Monitoring & Detection Lab
Replies
16
Views
1K
linuxspecialist
L
Back
Top Bottom