VB.NET Programming Corner!

[greizz]

ano po ba magandang gamitin: Report Viewer o crystal report??

 

[greizz]

may mga seminar po ba kayo tungkol sa programming

 

[cookiesNcream]

mga TS,..help po.,,,......psend nmn po ako mga (VB.NET) system source code,..like invetory,enrollmet,,payroll etc. po please hir [email protected] salamat po

 

[knives645]

gud eve po sir, sa tingin ko po nagawa ko na po sya , ittanong ko lang po kung wala po bng issue regarding sa normalization if ilalagay ko po lhat ng info sa isang table?? msyado po kc syang marami tulad po nung element name, symbol, group number, classification, etc.. microsoft SQL server management studio po ang gamit namin na DB

slamat po

ok lang siguro sa flat table, para madali.
Pero kung ako ang estudyante, ino-normalize ko nang kaunti,
para naman maipakita sa prof ko, na nai-apply ko ang mga napag-aralan ko.
Pero sa totoong buhay nang programmer,
as much as possible, we do normalization.

 

[knives645]

Mga bossing sino ba may code ng pag read ng sms using AT command with vb or c#(be displayed sa list box or other win form),salamat..

Here's the tutorial...
Serial Port Communication

 

[eLace31206]

sir, meron ka ba jan ng code na makukuha yung mga network adapters sa device manager?

 

[knives645]

sir, meron ka ba jan ng code na makukuha yung mga network adapters sa device manager?

Obtaining Network Adapter Information using WMI

 

[eLace31206]

sir, yung madedetect kung install ang tap driver

 

[eLace31206]

Obtaining Network Adapter Information using WMI

sir, meron ka ba jan yung madedetect kung install ang tap driver

 

[shadowsnipper]

pa help po sa autoformat ng Excel in VB 2010..Excel.XlRangeAutoFormat - ito po yung gmit kung code..gusto ko po sana malaman kung panu ilagay PHP na symbol kasi $ dollar lumalabas..

 

[mjoy12]

ok lang siguro sa flat table, para madali.
Pero kung ako ang estudyante, ino-normalize ko nang kaunti,
para naman maipakita sa prof ko, na nai-apply ko ang mga napag-aralan ko.
Pero sa totoong buhay nang programmer,
as much as possible, we do normalization.

ganun po ba sir.. ang tables lang po kc namin sa database namin is username, highscore and element lang wherein dun po namin isstore sa element_table ung information ng every element pra po di na kmi ggamit ng maraming form.. iccall nlng po namin ung every info sa pgclick ng user s bwat element tpos sa isang form lng po cla mgaapear..

tma po ba na isinama nmin ung table ng element information sa database ng username and highscore??

slmat po ulit

 

[knives645]

ganun po ba sir.. ang tables lang po kc namin sa database namin is username, highscore and element lang wherein dun po namin isstore sa element_table ung information ng every element pra po di na kmi ggamit ng maraming form.. iccall nlng po namin ung every info sa pgclick ng user s bwat element tpos sa isang form lng po cla mgaapear..

tma po ba na isinama nmin ung table ng element information sa database ng username and highscore??

slmat po ulit

Isang database with different tables...?
Opo, tama lang yan,,,, chat mo na lang ako pag may tanong ka
my knives645 ang ym ko

 

[mjoy12]

Isang database with different tables...?
Opo, tama lang yan,,,, chat mo na lang ako pag may tanong ka
my knives645 ang ym ko

salamat po ulit sir

napaisip lang po ko kung tama na pagsamahin ko po yung username and highscore table saka ung element_info table kc wla nmn po clang relationship.. prang ggawin lng po kc naming source of info ng elements ung element_info table..

 

[davis04]

mga sir, vb.net nman po to tnung lng po aq about sa installing/uninstalling MS SQL 2008..
whenever na bubuksan q ung intaller ng ms sql to install or uninstall, ganitong error ang lumlabas:

SQL Server Setup has encountered the following error:

The given key was not present in the dictionary..


3 days n po akong problemado d2, ndi q mbuksan ung database ng system nmen and i need to uninstall ung ms sql in my pc (kaso nga may error) to fully install ms sql


any help or piece of advice will do tnx po..

nanjan po ung pic

 

[eLace31206]

sir, help naman, paano po pag madedetect nya kung install ang tap driver

 

[creativesmar]

Help nman po!! my error mo kc!

Public Class Form1
Dim cnn As New OleDb.OleDbConnection
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtAddress.Text = ""
txtId.Text = ""
txtName.Text = ""
txtPhone.Text = ""
txtId.Tag = ""
Me.btnEdit.Enabled = True
Me.btnAdd.Text = "add"
Me.txtId.Focus()




End Sub
Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If
Dim da As New OleDb.OleDbDataAdapter("SELECT ID as [ID], " & _
"Name as [Name], Position, Phone, Status, Gender, Address " & _
"FROM info ORDER BY Id", cnn)
Dim dt As New DataTable

da.Fill(dt)
Me.dgvData.DataSource = dt
cnn.Close()


End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Dim cmd As New OleDb.OleDbCommand
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
cmd.Connection = cnn

If Me.txtId.Tag & "" = "" Then


cmd.CommandText = "INSERT INTO info(Id, Name, Position, Phone, Status, Sex, Address) " & _
"VALUES(" & Me.txtId.Text & ",'" & Me.txtName.Text & "','" & _
Me.cboPosition.Text & "','" & Me.txtPhone.Text & "','" & _
Me.cboStatus.Text & "','" & Me.cboSex.Text & "','" & _
Me.txtAddress.Text & "')"
cmd.ExecuteNonQuery()

Else
cmd.CommandText = "UPDATE info " & _
"SET Id=" & Me.txtId.Text & _
", Name='" & Me.txtName.Text & "'" & _
", Position='" & Me.cboPosition.Text & "'" & _
", Phone='" & Me.txtPhone.Text & "'" & _
", Status='" & Me.cboStatus.Text & "'" & _
", Gender='" & Me.cboSex.Text & "'" & _
", Address='" & Me.txtAddress.Text & "'" & _
"WHERE info=" & Me.txtId.Tag

cmd.ExecuteNonQuery()





End If


RefreshData()

Me.btnClear.PerformClick()


cnn.Close()


End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
Me.RefreshData()
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intId As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value

If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If

Dim da As New OleDb.OleDbDataAdapter("SELECT = FROM info " & _
"WHERE stdid=" & intId, cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.txtId.Text = intId
Me.txtName.Text = dt.Rows(0).Item("Name")
Me.cboPosition.Text = dt.Rows(0).Item("Position")
Me.txtPhone.Text = dt.Rows(0).Item("Phone")
Me.cboStatus.Text = dt.Rows(0).Item("Status")
Me.cboSex.Text = dt.Rows(0).Item("Sex")
Me.txtAddress.Text = dt.Rows(0).Item("Address")

Me.txtId.Tag = intId

Me.btnAdd.Text = "Update"
Me.btnEdit.Enabled = False
cnn.Close()

End If
End If
End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intId As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value

If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "DELETE FROM info WHERE Id" & intId
cmd.ExecuteNonQuery()
Me.RefreshData()
cnn.Close()

End If
End If

End Sub

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

End Sub
End Class

eto po ung design ko

 

[marniel647]

Help nman po!! my error mo kc!

Public Class Form1
Dim cnn As New OleDb.OleDbConnection
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtAddress.Text = ""
txtId.Text = ""
txtName.Text = ""
txtPhone.Text = ""
txtId.Tag = ""
Me.btnEdit.Enabled = True
Me.btnAdd.Text = "add"
Me.txtId.Focus()




End Sub
Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If
Dim da As New OleDb.OleDbDataAdapter("SELECT ID as [ID], " & _
"Name as [Name], Position, Phone, Status, Gender, Address " & _
"FROM info ORDER BY Id", cnn)
Dim dt As New DataTable

da.Fill(dt)
Me.dgvData.DataSource = dt
cnn.Close()


End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Dim cmd As New OleDb.OleDbCommand
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
cmd.Connection = cnn

If Me.txtId.Tag & "" = "" Then


cmd.CommandText = "INSERT INTO info(Id, Name, Position, Phone, Status, Sex, Address) " & _
"VALUES(" & Me.txtId.Text & ",'" & Me.txtName.Text & "','" & _
Me.cboPosition.Text & "','" & Me.txtPhone.Text & "','" & _
Me.cboStatus.Text & "','" & Me.cboSex.Text & "','" & _
Me.txtAddress.Text & "')"
cmd.ExecuteNonQuery()

Else
cmd.CommandText = "UPDATE info " & _
"SET Id=" & Me.txtId.Text & _
", Name='" & Me.txtName.Text & "'" & _
", Position='" & Me.cboPosition.Text & "'" & _
", Phone='" & Me.txtPhone.Text & "'" & _
", Status='" & Me.cboStatus.Text & "'" & _
", Gender='" & Me.cboSex.Text & "'" & _
", Address='" & Me.txtAddress.Text & "'" & _
"WHERE info=" & Me.txtId.Tag

cmd.ExecuteNonQuery()





End If


RefreshData()

Me.btnClear.PerformClick()


cnn.Close()


End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
Me.RefreshData()
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intId As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value

If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If

Dim da As New OleDb.OleDbDataAdapter("SELECT = FROM info " & _
"WHERE stdid=" & intId, cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.txtId.Text = intId
Me.txtName.Text = dt.Rows(0).Item("Name")
Me.cboPosition.Text = dt.Rows(0).Item("Position")
Me.txtPhone.Text = dt.Rows(0).Item("Phone")
Me.cboStatus.Text = dt.Rows(0).Item("Status")
Me.cboSex.Text = dt.Rows(0).Item("Sex")
Me.txtAddress.Text = dt.Rows(0).Item("Address")

Me.txtId.Tag = intId

Me.btnAdd.Text = "Update"
Me.btnEdit.Enabled = False
cnn.Close()

End If
End If
End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If Me.dgvData.Rows.Count > 0 Then
If Me.dgvData.SelectedRows.Count > 0 Then
Dim intId As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value

If Not cnn.State = ConnectionState.Open Then
cnn.Open()

End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "DELETE FROM info WHERE Id" & intId
cmd.ExecuteNonQuery()
Me.RefreshData()
cnn.Close()

End If
End If

End Sub

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

End Sub
End Class

eto po ung design ko

Try to change yung dun sa ORDER BY mo itype mo "ID" parehas big letter. Tapos gawa ka ng try and catch tapos mgpalabas ka ng textbox about dun sa error.

 

[knives645]

Help nman po!! my error mo kc!

Yung SQL Statement mo, palitan mo nang ganito...
"SELECT [ID], [Name], Position, Phone, Status, Gender FROM info ORDER BY [ID]"

Name is a reserved word in MS Access, so you have to enclose it with a pair of brackets,
Tapos ung comma(,) after nang Gender, dapat tanggalin yun kung wala na talaga kasunod na FieldName, baka kasi na-cut lang ang pic.

 

[hisukagon]

vb.net po mga sir. .

panu po ba maginsert ng video sa vb.net ung tipong iseset ko rin kung saang part lalabas ung video. . sana po matulungan nyo po ako. . thank u na po agad

 

[geronhawk]

pano po ba gumwa ng print report sa vb.net? vb express 2010 po gamit ko! patulong po plss!