VB.NET Programming Corner!

[rusyl2]

Dim dt = cnn.GetSchema("TABLES")

ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "table_name"
ComboBox1.ValueMember = "table_name"

 

[maskio]

Patulong mga master

populated po ung combo box galing sa database, gusto ko po sana na lagyan ng "addnew" sa dulo, then parang button siya na mag oopen ng form para sa input ng new category:
eto po ung ss;View attachment 1214351

dati ganito na style ang ginamit ko, pinalitan ko. suggestion lang, baka aakma sa forms mo.

lipat mo yung add new sa Catergory na label. palitan mo ng link label -> pag click, pop up ang form, then after ng showdialog, refresh mo combobox if nag click ng save.

View attachment 321103

 

[rochelle04]

View attachment 321497

help namana dapat pag lagay ko dun sa birth year lalabas ung age nya dun salamat

 

[MrkMrk]

View attachment 1215747

help namana dapat pag lagay ko dun sa birth year lalabas ung age nya dun salamat

Sa onTextChanged event ng textbox1:
Textbox2.Text = Today.Year - int.Parse(TextBox1.Text)

 

[rochelle04]

Sa onTextChanged event ng textbox1:
Textbox2.Text = Today.Year - int.Parse(TextBox1.Text)

salamat

 

[MrkMrk]

salamat

No problem

 

[aprincesslovesaking]

NEED help in getting CMS data to excel using VB im a complete noob I dont know to make a code please help with the code format. Thanks

 

[remoshed]

Sir patulong po..I have 3 tables using Sql server..Pano po magload ang Table sa Datagridview..Nagdisplay na po ang 3 Table names sa Combobox kaso yung Table1 lng magloload ang Table2 at Table3 hindi ee..Patulong nmn po pano mag populate ito..thanks..

ito po code at forms ko..
View attachment 322571

View attachment 322572

 

[ramnad31]

Sir patulong po..I have 3 tables using Sql server..Pano po magload ang Table sa Datagridview..Nagdisplay na po ang 3 Table names sa Combobox kaso yung Table1 lng magloload ang Table2 at Table3 hindi ee..Patulong nmn po pano mag populate ito..thanks..

ito po code at forms ko..
View attachment 1217475

View attachment 1217476

try mo to sir ilagay sa textchanged or selectedindexchangedevent ng combobox

dim adp2 as new sqldataadapter("select * from " & Combobox1.text,con)
con.open

dim ds2 as new dataset
adp2.fill(ds2)
con.close
datagridview1.datasource=ds2.tables(0)

 

[remoshed]

try mo to sir ilagay sa textchanged or selectedindexchangedevent ng combobox

dim adp2 as new sqldataadapter("select * from " & Combobox1.text,con)
con.open

dim ds2 as new dataset
adp2.fill(ds2)
con.close
datagridview1.datasource=ds2.tables(0)

maraming, maraming salamat sir..ok na po..hehe!

 

[Morie24]

Help naman po sa bihasa sa vb. Hehehe


Ganit po yun. Kailangan ko po gumawa ng log in system na may create account module using ms access as database. Pano po ba syntax sa create account button? Thanks

 

[shadow12708]

Sir Meron po kayong VB source code ng Payload Generator para sa openvpn visual basic project

salamat po

 

[nozde]

Hello po magandang araw po, ask lng po kung kayong source code ng asset tracking system or asset management system. if wla nman pong soure code anu na lng po ang mga laman at flow nun salamat po ng marami.

 

[alvin00216]

View attachment 323345

sir tulong naman hindi nakakapag add ako tapos lumalabas sa dtagridview pero hindi siya nauupdate sa access database

- - - Updated - - -

View attachment 323345

sir tulong naman hindi nakakapag add ako tapos lumalabas sa dtagridview pero hindi siya nauupdate sa access database

"binago ko na sir ung settings ng database ginawa kung copy if newer, wala pa ring nangyayare ok naman ung pagdedestribute nung data"

 

[naithan0628]

pa help nmn po!

Newbie here,

tanung ko lng kung panu magshow ng form with only one instance, ung coding po kc na nassearch ko sa google is for c# eh hindi pa po ako masyado familiar sa syntax ng vb.net kaya hnd ko mamigrate ung codes ng tama

Thanks,
Nat

 

[remoshed]

mga sir wala na bang paraan pra hindi masali sa pag print itong button sa taas?


View attachment 324297

printform gamit ko

code: PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()

thanks

 

[4ter20]

pahelp po mga ka sym, ayaw po kasi gumana ng search button ayaw din po magshow ng kusa yung data sa datagridview.
eto po code ko. im using vb.net 2010 and mysql as database



Private Sub residentrecord_Load(ByVal id As Integer, ByVal firstname As String, ByVal middlename As String, ByVal lastname As String, ByVal birthdate As String, ByVal birthplace As String, ByVal age As Integer, ByVal gender As String)

Dim sda As New MySqlDataAdapter
Dim dt As New DataTable
Dim bs As New BindingSource

Try
mycon.Open()
Dim query As String
query = "select * from db_bis.resident"
com = New MySqlCommand
sda.SelectCommand = com
sda.Fill(dt)
bs.DataSource = dt
DataGridView1.DataSource = bs
sda.Update(dt)

Catch ex As Exception

End Try

End Sub

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

Dim reader As MySqlDataReader

Try
mycon.Open()
Dim query As String
query = " select * from db_bis.resident where firstname='" & txt_search.Text & "' "
com = New MySqlCommand(query, mycon)
While reader.Read

txt_id.Text = reader.GetInt32("id")
txt_fn.Text = reader.GetString("firstname")
txt_mn.Text = reader.GetString("middlename")
txt_ln.Text = reader.GetString("lastname")
txt_bd.Text = reader.GetString("birthdate")
txt_bp.Text = reader.GetString("birthplace")
txt_age.Text = reader.GetInt16("age")
gen = reader.GetString("gender")

End While

mycon.Close()

Catch ex As Exception

End Try

End Sub

View attachment 324337

salamat po sa mga sasagot

 

[MrkMrk]

pahelp po mga ka sym, ayaw po kasi gumana ng search button ayaw din po magshow ng kusa yung data sa datagridview.
eto po code ko. im using vb.net 2010 and mysql as database



Private Sub residentrecord_Load(ByVal id As Integer, ByVal firstname As String, ByVal middlename As String, ByVal lastname As String, ByVal birthdate As String, ByVal birthplace As String, ByVal age As Integer, ByVal gender As String)

Dim sda As New MySqlDataAdapter
Dim dt As New DataTable
Dim bs As New BindingSource

Try
mycon.Open()
Dim query As String
query = "select * from db_bis.resident"
com = New MySqlCommand
sda.SelectCommand = com
sda.Fill(dt)
bs.DataSource = dt
DataGridView1.DataSource = bs
sda.Update(dt)

Catch ex As Exception

End Try

End Sub

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

Dim reader As MySqlDataReader

Try
mycon.Open()
Dim query As String
query = " select * from db_bis.resident where firstname='" & txt_search.Text & "' "
com = New MySqlCommand(query, mycon)
While reader.Read

txt_id.Text = reader.GetInt32("id")
txt_fn.Text = reader.GetString("firstname")
txt_mn.Text = reader.GetString("middlename")
txt_ln.Text = reader.GetString("lastname")
txt_bd.Text = reader.GetString("birthdate")
txt_bp.Text = reader.GetString("birthplace")
txt_age.Text = reader.GetInt16("age")
gen = reader.GetString("gender")

End While

mycon.Close()

Catch ex As Exception

End Try

End Sub

View attachment 1220087

salamat po sa mga sasagot

Sa search button onclick mo, add this code after com = new MySqlCommand ...: reader = com.executeReader(). kapag wala padin. try changing "reader.getString" tsaka "reader.getInt32" into reader("columnname").toString().

 

[ramnad31]

mga sir wala na bang paraan pra hindi masali sa pag print itong button sa taas?


View attachment 1219957

printform gamit ko

code: PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()

thanks

sir hide mo nalang muna ung mga button tapos show mo nalang ulit

ex.
Button1.Visible=False
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()
Button1.Visible=True

 

[4ter20]

mga sir ano po kaya pwede ko gawin para pag nagsearch ako dun magshoshow yung nasearch ko sa datagridview.
salamat po sa mga sasagot

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

Dim reader As MySqlDataReader

Try
mycon.Open()
Dim query As String
query = " select * from db_bis.resident where firstname='" & txt_search.Text & "' "
com = New MySqlCommand(query, mycon)
reader = com.ExecuteReader
While reader.Read

txt_id.Text = reader.GetInt32("id")
txt_fn.Text = reader.GetString("firstname")
txt_mn.Text = reader.GetString("middlename")
txt_ln.Text = reader.GetString("lastname")
txt_bd.Text = reader.GetString("birthdate")
txt_bp.Text = reader.GetString("birthplace")
txt_age.Text = reader.GetInt16("age")
gen = reader.GetString("gender")

End While

mycon.Close()

Catch ex As Exception

End Try

End Sub
View attachment 324360