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!!!

pwede pong ilagay nyo sa button nyo yung ganito..
sample lang po..
Code:
foreach (DataGridViewRow row in dataGridView1.Rows)
{
    if (row.Cells[CheckBoxColumn1.Name].Value = true)
      {
          ///kunin mo yung serial number
      }
}

boss salamat sa pagreply ... eto sinubukan ko, kaso ung huling na i-check na checkbox lang ang na sesave ng paulit-ulit kahit pa marami nmng checkbox ang naka check ...

PS: kung ilan ung checkbox nga naka check ganun rin kadami ung entries sa database ng huling checkbox na nai-check...


Code:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       

        Dim serialnumber As String = DataGridView1.CurrentRow.Cells("SerialNumber").Value
        Dim siteid As String = Main.StatusBar1.Panels(2).Text
        Dim connection As New SqlConnection
        Dim cmd As New SqlCommand
        connection.ConnectionString = "Data Source =TOBZ-PC; Initial Catalog =Glowb; Integrated Security =SSPI;"

        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

        
    End Sub
 
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

boss salamat sa pagreply ... eto sinubukan ko, kaso ung huling na i-check na checkbox lang ang na sesave ng paulit-ulit kahit pa marami nmng checkbox ang naka check ...

PS: kung ilan ung checkbox nga naka check ganun rin kadami ung entries sa database ng huling checkbox na nai-check...


Code:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       

        Dim serialnumber As String = DataGridView1.CurrentRow.Cells("SerialNumber").Value
        Dim siteid As String = Main.StatusBar1.Panels(2).Text
        Dim connection As New SqlConnection
        Dim cmd As New SqlCommand
        connection.ConnectionString = "Data Source =TOBZ-PC; Initial Catalog =Glowb; Integrated Security =SSPI;"

        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

        
    End Sub

sir mukhang hindi mo nilagay yung value ng "serialNumber" na galing dun sa row... tama ba?

dapat po ninyong palitan yung laman ng variable na to sa loob ng if statement..

hindi ito yung saktong code pero nandito yung idea..
Code:
If row.Cells(Column1.Name).Value = True Then
serialNumber = row.Cells(ColumnForSerial.Name).Value

///other codes
 
Re: VB.NET Programming Corner! UPDATED!!!

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click


If validation() = False Then
Exit Sub
Else
cmd = New OleDbCommand("insert into empmaster values (@empno, @empfirst, @empmiddle, @emplast, @empaddress, @empcontact, @empemailid, @empgender, @empdob, @empbloodgroup, @empdoj, @empnamebank, @empposition, @empbankbranch, @empbankno, @empimage)", con)

cmd.Parameters.Add("@empno", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empfirst", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empmiddle", OleDbType.VarChar, 200)
cmd.Parameters.Add("@emplast", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empaddress", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empcontact", OleDbType.VarChar, 255)
cmd.Parameters.Add("@empemailid", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empgender", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empdob", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbloodgroup", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empdoj", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empnamebank", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empposition", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbankbranch", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbankno", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empimage", OleDbType.VarChar, 200)



cmd.Parameters("@empno").Value = txtempno.Text
cmd.Parameters("@empfirst").Value = txtempname.Text
cmd.Parameters("@empmiddle").Value = empmiddle.Text
cmd.Parameters("@emplast").Value = emplast.Text
cmd.Parameters("@empaddress").Value = txtempaddress.Text
cmd.Parameters("@empcontact").Value = txtcontact.Text
cmd.Parameters("@empemailid").Value = txtemailid.Text
cmd.Parameters("@empgender").Value = cmbgender.Text
cmd.Parameters("@empdob").Value = dtpdob.Text
cmd.Parameters("@empbloodgroup").Value = txtbloodgroup.Text
cmd.Parameters("@empdoj").Value = dtpdoj.Text
cmd.Parameters("@empnamebank").Value = txtbankname.Text
cmd.Parameters("@empposition").Value = cmbposition.Text()
cmd.Parameters("@empbankbranch").Value = txtbankbranch.Text
cmd.Parameters("@empbankno").Value = txtbankacno.Text
cmd.Parameters("@empimage").Value = txtimgpath.Text

con.Open()
cmd.ExecuteNonQuery()
con.Close()
databinding()

MsgBox("Data Succesffuly Add To Database", MsgBoxStyle.Information, "Congratulation")

txtempno.Text = " "
txtempname.Text = " "
empmiddle.Text = ""
emplast.Text = ""
txtempaddress.Text = " "
txtcontact.Text = " "
txtemailid.Text = " "
cmbgender.Text = " "
dtpdob.Text = ""
txtbloodgroup.Text = " "
dtpdoj.Text = ""

cmbposition.Text = ""


txtbankname.Text = " "
txtbankbranch.Text = " "
txtbankacno.Text = " "

txtimgpath.Text = " "
PictureBox1.Image = System.Drawing.Bitmap.FromFile("C:\Users\AxLroSe\Desktop\CNPH CPS\CNPH CPS\Employee Images\blank.jpg")
btnupdate.Enabled = True
btnsave.Enabled = False
End If


End Sub

data type mismatch in criteria expression po ang error nya...nalilito n ko!!!phelp nmn plz

wala ka ba numeric na field?

and also whag mo gawin to

cmd = New OleDbCommand("insert into empmaster values (@empno, @empfirst, @empmiddle, @emplast, @empaddress, @empcontact, @empemailid, @empgender, @empdob, @empbloodgroup, @empdoj, @empnamebank, @empposition, @empbankbranch, @empbankno, @empimage)", con)


sa INSERT specify the target field

INSERT INTO TABLE1 (Field1, Field2) VALUES( @Field1, @Field2)

mas malinaw, kasi pag nag add ka ng field sa table lagot na yang code mo

now yung error is
"data type mismatch"

alam mo siguro meaning neto?

tignan mop baka nag insert ng string sa numeric field
or nag insert ng null sa field

kasi baka may emty or un initialized variable or control ka dyan

try mo ganito sa string field
cmd.Parameters("@empno").Value = "" & txtempno.Text
 
Re: VB.NET Programming Corner! UPDATED!!!

Sir, anu-ano po ba ang mga String function na available sa vb.net na wala sa vb6? or nasa vb6 na wala sa vb.net? kasi po Right() function lang nakita ko. gusto ko po kasi matutunan sa vb.net ung string manipulation. marunnog po ako sa vb6 ang gusto ko po sana ay malaman ung mga function na importante na pwdeng maiapply sa system. O kaya naman po kahit ung mga comparison ng mga function sa vb6 to vb.net


halos lahat ng vb6 function meron sa vb.net :

vb6 : left()

vb.net : microsoft.visualbasic.left()
 
Re: VB.NET Programming Corner! UPDATED!!!

I finally logged in to yahoomail using httpwebrequest.

Ang problem ko lang ngaun pano ko malalaman kung tama o mali ang na input ko na username at password.
gusto ko sana na may lalabas na "log in successful" if tama ang us/pass or "log in fail" if mali ang us/pass.

sa ngaun correct info ang nilalagay ko sa us at pass.

Here's my code so far.

Code:
Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

    Dim loginCoockie As New CookieContainer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim uName As String = TextBox1.Text
        Dim pWord As String = TextBox2.Text

        Label1.Text = "Trying to Log In"

        Dim postData As String = ".tries=1&.src=ym&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=7jebrpt78q79h&.v=0&.challenge=a5PSc8KUgQ7.sU0VVUE9JsdHOosB&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fmail.yahoo.com&.pd=ym_ver%3D0%26c%3D%26ivt%3D%26sg%3D&.ws=1&.cp=0&pad=5&aad=6&login=" & uName & "&passwd=" & pWord & "&.save=&passwd_raw="
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = encoding.GetBytes(postData)


        Dim postRequest As HttpWebRequest = DirectCast(WebRequest.Create("https://login.yahoo.com/config/login"), HttpWebRequest)
        postRequest.Method = "POST"
        postRequest.KeepAlive = True
        postRequest.CookieContainer = tempCookies
        postRequest.ContentType = "application/x-www-form-urlencoded"
        postRequest.Referer = "https://login.yahoo.com/config/login"
        postRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0a2) Gecko/20110613 Firefox/6.0a2"
        postRequest.ContentLength = byteData.Length


        Dim postReqStream As Stream = postRequest.GetRequestStream
        postReqStream.Write(byteData, 0, byteData.Length)
        postReqStream.Close()

        Dim postResponse As HttpWebResponse

        postResponse = DirectCast(postRequest.GetResponse(), HttpWebResponse)
        tempCookies.Add(postResponse.Cookies)
        loginCoockie = tempCookies

        Dim postReqReader As New StreamReader(postResponse.GetResponseStream())

 End Sub

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

I finally logged in to yahoomail using httpwebrequest.

Ang problem ko lang ngaun pano ko malalaman kung tama o mali ang na input ko na username at password.
gusto ko sana na may lalabas na "log in successful" if tama ang us/pass or "log in fail" if mali ang us/pass.

sa ngaun correct info ang nilalagay ko sa us at pass.

Here's my code so far.

Code:
Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

    Dim loginCoockie As New CookieContainer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim uName As String = TextBox1.Text
        Dim pWord As String = TextBox2.Text

        Label1.Text = "Trying to Log In"

        Dim postData As String = ".tries=1&.src=ym&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=7jebrpt78q79h&.v=0&.challenge=a5PSc8KUgQ7.sU0VVUE9JsdHOosB&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fmail.yahoo.com&.pd=ym_ver%3D0%26c%3D%26ivt%3D%26sg%3D&.ws=1&.cp=0&pad=5&aad=6&login=" & uName & "&passwd=" & pWord & "&.save=&passwd_raw="
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = encoding.GetBytes(postData)


        Dim postRequest As HttpWebRequest = DirectCast(WebRequest.Create("https://login.yahoo.com/config/login"), HttpWebRequest)
        postRequest.Method = "POST"
        postRequest.KeepAlive = True
        postRequest.CookieContainer = tempCookies
        postRequest.ContentType = "application/x-www-form-urlencoded"
        postRequest.Referer = "https://login.yahoo.com/config/login"
        postRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0a2) Gecko/20110613 Firefox/6.0a2"
        postRequest.ContentLength = byteData.Length


        Dim postReqStream As Stream = postRequest.GetRequestStream
        postReqStream.Write(byteData, 0, byteData.Length)
        postReqStream.Close()

        Dim postResponse As HttpWebResponse

        postResponse = DirectCast(postRequest.GetResponse(), HttpWebResponse)
        tempCookies.Add(postResponse.Cookies)
        loginCoockie = tempCookies

        Dim postReqReader As New StreamReader(postResponse.GetResponseStream())

 End Sub

Thanks.

diba meron yan response sa log in?
 
Re: VB.NET Programming Corner! UPDATED!!!

ganto lang po kasi ung nalabas sa richtextbox ko...
87f97f546a.jpg


i use webbrowser at richtextbox para malaman ko kung success or fail ang pag log in.
kaso d pala makikita sa webbroser ung webpage pag success ang pag login..
d ko alam kung pano kukunin ung response sa pag login.. :weep:
 
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

ganto lang po kasi ung nalabas sa richtextbox ko...
87f97f546a.jpg


i use webbrowser at richtextbox para malaman ko kung success or fail ang pag log in.
kaso d pala makikita sa webbroser ung webpage pag success ang pag login..
d ko alam kung pano kukunin ung response sa pag login.. :weep:

hmmn, sila yahoo mail na ang nakaka alam dun, nasa response yun e, try mo i analyze
log in ka ng wrong at right password at tignan mo yung packet
 
Re: VB.NET Programming Corner! UPDATED!!!

2a3e8754d3.jpg


eto ung nalabas pag wrong pass ang nilalagay ko.. :weep:
 
Re: VB.NET Programming Corner! UPDATED!!!

Eto po pala source code ko.
baka sakaling may sumagot :pray:
Gusto ko lang malaman kung login succeed or fail ang pag login ko sa yahoomail through messagebox.

Kailangan ko lang talaga intindihin itong httpwebrequest post.. :slap:
 

Attachments

  • Sample.rar
    65.7 KB · Views: 17
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

Eto po pala source code ko.
baka sakaling may sumagot :pray:
Gusto ko lang malaman kung login succeed or fail ang pag login ko sa yahoomail through messagebox.

Kailangan ko lang talaga intindihin itong httpwebrequest post.. :slap:

di mo ba makita ang difference sa response ng login failed at success?
 
Re: VB.NET Programming Corner! UPDATED!!!

Eto po pala source code ko.
baka sakaling may sumagot :pray:
Gusto ko lang malaman kung login succeed or fail ang pag login ko sa yahoomail through messagebox.

Kailangan ko lang talaga intindihin itong httpwebrequest post.. :slap:



try mo 2:

Public Sub YahooLogin(ByVal Username As String, ByVal Password As String)
Dim strU As String, strChallenge As String, strPD As String
Dim PageSource As String = String.Empty
Dim CC As CookieContainer = New CookieContainer()

Dim Request As HttpWebRequest = HttpWebRequest.Create("https://login.yahoo.com/config/login?.src=fpctx&.intl=us&.done=http%3A%2F%2Fwww.yahoo.com%2F")
Request.Method = WebRequestMethods.Http.Get
Request.KeepAlive = True
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"
Request.CookieContainer = CC
Dim Response As HttpWebResponse = Request.GetResponse()
Dim Stream As New StreamReader(Response.GetResponseStream())
PageSource = Stream.ReadToEnd()
Response.Close()
PageSource = Replace(PageSource, Chr(34), "'")
strU = GetStringBetween(PageSource, "<input type='hidden' name='.u' value='", "'>")
strChallenge = GetStringBetween(PageSource, "<input type='hidden' name='.challenge' value='", "'>")
strPD = GetStringBetween(PageSource, "<input type='hidden' name='.pd' value='", "'>")

' .tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=3u59m6h5res4f&.v=0&.challenge=eS_RUBoq7DSsTyn1GL9RNQznulvj&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http://www.yahoo.com/&.pd=fpctx_ver=0&c=&ivt=&sg=&[email protected]&passwd=PASSWORD&.save=Sign In
' .tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=3u59m6h5res4f&.v=0&.challenge=eS_RUBoq7DSsTyn1GL9RNQznulvj&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fwww.yahoo.com%2F&.pd=fpctx_ver%3D0%26c%3D%26ivt%3D%26sg%3D&login=EMAIL%40yahoo.com&passwd=PASSWORD&.save=Sign+In
Dim strPostData As String = ".tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=" & _
strU & "&.v=0&.challenge=eS_" & _
strChallenge & "&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fwww.yahoo.com%2F&.pd=" & _
System.Web.HttpUtility.UrlEncode(strPD) & "&login=" & _
System.Web.HttpUtility.UrlEncode(Username) & "&passwd=" & _
Password & "&.save=Sign+In"


Request = HttpWebRequest.Create("https://login.yahoo.com/config/login?")
Request.Referer = "https://login.yahoo.com/config/login?.src=fpctx&.intl=us&.done=http%3A%2F%2Fwww.yahoo.com%2F"
Request.KeepAlive = True
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"
Request.CookieContainer = CC
Request.Method = WebRequestMethods.Http.Post
Request.ContentType = "application/x-www-form-urlencoded"
Request.ContentLength = strPostData.Length
Dim writer As New StreamWriter(Request.GetRequestStream)
writer.Write(strPostData)
writer.Close()
Response = Request.GetResponse()
Dim reader As New StreamReader(Response.GetResponseStream())
PageSource = reader.ReadToEnd()
Response.Close()
TextBox1.Text = PageSource
If (InStr(1, PageSource, ">click here</a> to continue.", CompareMethod.Text) <> 0) Then
MsgBox("Login Success!")
ElseIf (InStr(1, PageSource, "<title>Sign in to Yahoo!</title>", CompareMethod.Text) <> 0) Then
MsgBox("Failed To Login")
End If
End Sub


Public Function GetStringBetween(ByVal InputText As String, ByVal StartText As String, ByVal EndText As String, Optional ByVal StartPosition As Object = 1) As String

Dim lnTextStart As Integer
Dim lnTextEnd As Integer

'UPGRADE_WARNING: Couldn't resolve default property of object StartPosition. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
lnTextStart = InStr(StartPosition, InputText, StartText, CompareMethod.Text) + Len(StartText)
lnTextEnd = InStr(lnTextStart, InputText, EndText, CompareMethod.Text)
'UPGRADE_WARNING: Couldn't resolve default property of object StartPosition. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If lnTextStart >= (StartPosition + Len(StartText)) And lnTextEnd > lnTextStart Then
GetStringBetween = Mid(InputText, lnTextStart, lnTextEnd - lnTextStart)
Else
GetStringBetween = ""
End If
End Function


credits to : http://forum.logicalgamers.com/sour...hoo-login-httpwebrequest-httpwebresponse.html
 
sir pwede mka hinge ng installer n VB6

I made this thread for all programmers starting their adventure on VB.NET.

Please post relevant and sensible questions regarding VB.NET,
share your knowledge and expertise, share codes and techniques.

Post question on HOW TOs:
How to do this or that, ill supply bits of code to accomplish basic tasks.

Ill be posting series of samples leading to complete applications,
your suggestions are encouraged.
These samples will contain codes relevant to other tasks as well.

Platform = VS2003 to VS2010

i suggest learn and master the VB.NET IDE first before asking questions, so that we can talk on the same page.


Topics:
VB.NET Winforms (not Web Applications)
ADO.NET as applied in VB.NET
Crystal Reports on VB.NET
SQLServer as used in VB.NET
MSAccess as used in VB.NET
Classes
UserControls

Technologies:
Serial - like using SMS, Barcode and other hardware
TCP/IP - chat applications, sockets, internet applications
MSMQ - message queuing
Remoting - executing assemblies in other computer
WebServices - using webservices in windows forms
Multithreading - executing more than 1 process at the same time


Suggested Third Party Tools:
DevXPress 2009 Free Edition
SQLServer 2005 Express Edition

Suggested references:
http://www.homeandlearn.co.uk/net/vbnet.html
http://www.java2s.com/Tutorial/VB/CatalogVB.htm

I currently use Visual Studio 2008 only, but basic codes will apply to all versions

Please do not ask for a complete system,
instead use the codes and assistance that you will find here
to build your own system.


***Can somebody suggest to the moderators to make this thread sticky if you find it useful in your studies or work.

Lets share knowledge so that we can be a more flexible and well rounded programmer. Be it for school or work.

Links:

First Post: Populating DataGridView using MSAccess Database
Second Post : Basic VB.NET MSAccess Tutorial
SQLServer Sample

Pwede po makahinge ng instaler ng VB6 or kung anung bagong VB bago lang kasi ako sa larangan nito gusto ko lang matoto.. thnx!
 
Re: VB.NET Programming Corner! UPDATED!!!

sir pano po ba mag automatic na madedetect ung location ng database ko kc laging change ng datasource para magconnect ang database dun sa program?:weep:


Public strConn As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\Users\FAJARDO\Downloads\FD.mdb"
 
Back
Top Bottom