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

anshity said:
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"
Click to expand...

dapat nakasave yan sa isang persisten storage like text file
or
pwede mo naman ilagay sa Settings ang path ng database mo

para sa <exename>.config mo nalang papalitan pag compiled na

makukuha mo ang value using My na namespace

dim sDBFile a String = My.Settings.DBFile

SNAGHTML14c99224.png


refer ka dito
http://visualbasic.about.com/od/usingvbnet/a/appsettings.htm
http://msdn.microsoft.com/en-us/library/25zf0ze8(v=vs.80).aspx
http://www.dondraper.com/2011/01/ea...cation-and-user-settings-in-vb-net-or-c-apps/


ang .config ay xml file lang na pwede mo i edit using notepad
 
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

I finally got it working thanks sa mga help po ninyo...
More power po! :D
 
Re: VB.NET Programming Corner! UPDATED!!!

ryu_shinobi said:
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
Click to expand...

boss, nilagay ko nmn eh...
ito ba ibig mong sabihin??

Code: 
Dim serialnumber As String = DataGridView1.CurrentRow.Cells("SerialNumber").Value
 
Re: VB.NET Programming Corner! UPDATED!!!

anshity said:
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"
Click to expand...

Public conn As New OleDbConnection
Public Sub open()

conn.ConnectionString = "provider = microsoft.jet.oledb.4.0; data source =FD.mdb"

conn.Open()
try mo sir!!
 
Last edited:
Re: VB.NET Programming Corner! UPDATED!!!

hustlas4ever said:
boss, nilagay ko nmn eh...
ito ba ibig mong sabihin??

Code: 
Dim serialnumber As String = DataGridView1.CurrentRow.Cells("SerialNumber").Value
Click to expand...

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


suggest ko lng po...

mas maganda kung nasa labas un open connection mo...
pra insert process lng un sa loob ng loop...
and add try catch and sqltransaction for rollback if error
Code: 
 Try 
 
 Catch ex As Exception
                    If _SQLTransaction IsNot Nothing Then
                        _SQLTransaction .Rollback()
                    End If
                    MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                Finally

                    _sqlConnection.SQLConnection.Close()         
                    _sqlConnection.Dispose()
                    _sqlConnection = Nothing
                End Try
 
Re: VB.NET Programming Corner! UPDATED!!!

jayrwafu said:
suggest ko lng po...

mas maganda kung nasa labas un open connection mo...
pra insert process lng un sa loob ng loop...
and add try catch and sqltransaction for rollback if error
Code: 
 Try 
 
 Catch ex As Exception
                    If _SQLTransaction IsNot Nothing Then
                        _SQLTransaction .Rollback()
                    End If
                    MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                Finally

                    _sqlConnection.SQLConnection.Close()         
                    _sqlConnection.Dispose()
                    _sqlConnection = Nothing
                End Try
Click to expand...

yes ganyan nga dapat
 
Re: VB.NET Programming Corner! UPDATED!!!

Sir Eric advisable ba na gumamit ng stored procedure?
 
Re: VB.NET Programming Corner! UPDATED!!!

anishgiri said:
Sir Eric advisable ba na gumamit ng stored procedure?
Click to expand...

more sa yes kesa no

sa corporate environment kung saan more or less fixed ang mga data servers, ok yan

kung web app ang client ng db, yes mas ok

kung gagawa ka ng app para lang sa specific na company or set ng users at kaya mo i support agad kung may problem, yes din
mostly yes

ako di masyado gumagamit ng SP sa db ko pag ang app ay idistribute sa maraming users at wala ka way para i support sila

di rin ako mag lalagay ng sp kung sa lugar na kayang kalikutin ng users ang db ko

ayaw ko amg dagdag ng additional layer na pampasakit ng ulo sa support

so i embed it sa app, para di magalaw ng users ko

ikaw depende sa situation mo, ikaw mag judge
 
Re: VB.NET Programming Corner! UPDATED!!!

Paano po gamitin ang crystal report viewer for receipt ?Siyempre yung size maliit lang dapat. :)
 
Re: VB.NET Programming Corner! UPDATED!!!

renthau143 said:
Paano po gamitin ang crystal report viewer for receipt ?Siyempre yung size maliit lang dapat. :)
Click to expand...

not advisable kasi 1 page lang yang resibo mo
mas ok kung yung reports ng visual studio

matagal ko din yan sakit ng ulo nun
now either ESC commands or VS2010 lang ang ginagamit ko sa resibo
 
Re: VB.NET Programming Corner! UPDATED!!!

sir panu po bang gawing installer ung nagawang program sa vb.net?
 
Re: VB.NET Programming Corner! UPDATED!!!

cnu po nakakaalm iconnect yung broadband sa visual studio?
gumagawa po kc aq ng system na sms using broadband as modem?
anu po ba code dun pahelp naman po yun?
 
Re: VB.NET Programming Corner! UPDATED!!!

Pautlong po d2!
ganito po ang problema ah gawa muna ako ng dalawang textbox then isang button tas ung sa textbox1 e ung iinput ng user then ung sa textbox2 e ung output na tpos sa button ung codes: bali gani2 po ang problem mg tatype ako ng kahit ano sa textbox1 then e coconvert nya sa ginawa kong codes kunya ang nitype ko sa textbox1 e "qwerty" bali ung "q" is = "t" then "w" = d, "e" = h, "r" = i, "t" = o, "y" = m bali ang lalabas sa output(textbox2) ay "tdhiom" yn po

Pnu po un? Help me po! sry po hindi malinaw ang tanong ko >.<
Pweding Loop or hindi po XD thanks!

sample output:
textbox1:user input(any)
textbox2: output
 
ericgmejia said:
try mo yung mga links na nasa first post, basic yung mga yun.
pwede natin pagtulungan kung anon topic ang ituturo mo at kung ano ang laman,
para naman di mahuli yung mga students mo
madami ako pde i share ng coding techniques para sa kanila
Click to expand...

iDOL na kita sir.. galing mong magpaliwanag,, alam mo.. IT ako,, but i hate,, programming.. pero nung nakita ko yung treads m,, parang exciting pala ang pagpoprogram,, :thumbsup:
 
Re: VB.NET Programming Corner! UPDATED!!!

hello po sa mga master in VB.NET Programmer I'am four year BSCS and meron po kaming Thesis ngayon and our system need an Conversion Number to Text and with that i found a system that Convert Number to Text in a Site and my BIG Problem is the system is programmed in VB6 language and ang ginagamit po namin nagyon na language is VB.NET 2005.


Ito po yung Site na sinasabi ko.!
http://vbnet.mvps.org/index.html?code/helpers/numbertotext.htm



sana matulunga nio po ako BIG Thanks.
 
Re: VB.NET Programming Corner! UPDATED!!!

mga sir, pwede po magpatulong? tungkol po dito sa code ko kung anong pwede kong gawin.. ang error po sa insertcommand.ExecuteReader() and lumalabas po na error eh Syntax error in INSERT INTO statement. mdyo bago lang po sa vb.net kaya medyo hirap po idebug. ito po ung code ko..

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim insertcommand As New OleDb.OleDbCommand
Dim r As String

r = MessageBox.Show("Are you sure you want to save?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If r = vbYes Then
insertcommand.CommandText = "Insert Into Table1(Lastname,Firstname,Middlename,Civil Status,Gender,Birthday,Occupation,Address)values('" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & Me.TextBox6.Text.Trim & "','" & Me.TextBox5.Text.Trim & "','" & Me.TextBox7.Text.Trim & ",'" & Me.TextBox8.Text.Trim & "','" & Me.TextBox9.Text.Trim & "')"
insertcommand.Connection = dbconn
dbconn.Open()
insertcommand.ExecuteReader()
dbconn.Close()
loadthem()
MessageBox.Show("Record Save")
Exit Sub

ElseIf r = vbNo Then
Exit Sub
End If
End Sub

maraming salamat po, malaking bagay ang tulong nyo sa akin
 
Re: VB.NET Programming Corner! UPDATED!!!

cyberniel said:
mga sir, pwede po magpatulong? tungkol po dito sa code ko kung anong pwede kong gawin.. ang error po sa insertcommand.ExecuteReader() and lumalabas po na error eh Syntax error in INSERT INTO statement. mdyo bago lang po sa vb.net kaya medyo hirap po idebug. ito po ung code ko..

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim insertcommand As New OleDb.OleDbCommand
Dim r As String

r = MessageBox.Show("Are you sure you want to save?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If r = vbYes Then
insertcommand.CommandText = "Insert Into Table1(Lastname,Firstname,Middlename,Civil Status,Gender,Birthday,Occupation,Address)values('" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & Me.TextBox6.Text.Trim & "','" & Me.TextBox5.Text.Trim & "','" & Me.TextBox7.Text.Trim & ",'" & Me.TextBox8.Text.Trim & "','" & Me.TextBox9.Text.Trim & "')"
insertcommand.Connection = dbconn
dbconn.Open()
insertcommand.ExecuteReader()
dbconn.Close()
loadthem()
MessageBox.Show("Record Save")
Exit Sub

ElseIf r = vbNo Then
Exit Sub
End If
End Sub

maraming salamat po, malaking bagay ang tulong nyo sa akin
Click to expand...

yan na ung error mo oh "Syntax Error" meaning may mali sa sql statement mo...
malamang ung error es sa VALUES mo...
 
You must log in or register to reply here.

Similar threads

raven2709
Android (Kotlin & Java) Programming Corner!
Replies
1
Views
493
manlors
manlors
walo
Bootstrap Studio 6.7 | Website design program
Replies
0
Views
106
walo
walo
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
327
TambayBlues
TambayBlues
TambayBlues
Visual Studio 2023 - The Most Concise and Detailed Guide to Mastering all the Features and the Use of Visual Studio
Replies
0
Views
316
TambayBlues
TambayBlues
walo
Tutorial A complete Android, iOS unlock program for free (TFT Unlock Tools 2024 v4.6.3.3)
2
Replies
22
Views
2K
Raikage
R
Back
Top Bottom