VB.NET Programming Corner!

[arvinpastoraquio]

Pa help naman po pls alam ko pong sobrang dali lang po nito sa mga programming masters d2 1st time ko din po huminge ng tulong sana po matulungan nyu ko ito po yung sample output . kasi po papatayin na ko ng nanay ko pag nabagsak ko po iton programming group project po kasi namin to help naman po.

Madali lang po ito. gusto mo sir trabahuin ko tas bigay ko sayo ung source code?

 

[bobitoz]

1 month palang ako sa vb.net ngayon gusto ko matutunan database any example program naman that use database or games that use database like access

 

[polens]

1 month palang ako sa vb.net ngayon gusto ko matutunan database any example program naman that use database or games that use database like access

1st page kuya

 

[bobitoz]

Ung sample me error I'm using vb.net 2010 pwede phingi ng sample games that use access pag aaralan ko lang

 

[ottoantao]

Sir.. papaano ko gagamitin ang item sa listbox para sa IF conditions.. thanks

 

[rhainepoh]

sir pa help naman po bket po nag eerror po ung database ko pag nllpat ko na sa ibang pc ?

log in form po ito gmamet po ako database access

eto po code ko

Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Rhaine\Desktop\SAD\LogIn.accdb"

help po

 

[polens]

sir pa help naman po bket po nag eerror po ung database ko pag nllpat ko na sa ibang pc ?

log in form po ito gmamet po ako database access

eto po code ko

Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Rhaine\Desktop\SAD\LogIn.accdb"

help po

may ganito sa ibang pc?

C:\Users\Rhaine\Desktop\

use "App.Path"

Data Source=" & App.Path & "\yourdatabase.mdb"

 

[bobitoz]

Ung sample sa first page na leeshop I coconect paba database nun para mapagana help pls

 

[nikkotoot]

Mga master patulong naman po about CRYSTAL REPORT. Bali ang mangyayari po kasi maglalagay ako ng column with image sa Datagridview. Tapos ilalagay ko sya sa Crystal Report. Ang problema lang po eh hindi lumalabas yung picture sa crystal report. eto po codes ko para sa image sa column.
View attachment 227995

Sa Dataset po sinet ko na rin sya bilang System.byte()
View attachment 227996

bali ganito po kinalabasan sa Datagridview may image po na column containing the image itself
View attachment 227997

Ang problema po eh di nalabas sa Crystal Report yung image . Pa Help naman mga masters
View attachment 227998

 

[zoombeee]

Mga sir ask ko lang po kung panu kukunin ung value from FORM2 textbox papunt sa textbox ng usercontrol eto po ung attachement..

View attachment 228607

Pa up po..

 

[bobitoz]

Mga boss tanung lang po diba ung button natin is usually box type wala na bang iba tulad ng search button me nadodownload ba and then pno e import sa vb .net ung button

 

[naglasnats]

[HELP] Joining two tables from different database MySQL VB.NET

Help nmn po. Di ko kasi alam kung paano to gawin sa generic na paraan. May nasearch ako na dapat ang connectionstring e huwag daw dpat iispecify yung database kaya lang di ko alam kung advisable ba un. Help po please. Thanks.

 

[Gamecore]

gust ko ule magsimula sa vb.net . san pede i download ung visual studio ? ung latest.

 

[maskio]

Mga sir ask ko lang po kung panu kukunin ung value from FORM2 textbox papunt sa textbox ng usercontrol eto po ung attachement..

View attachment 1057358

Pa up po..

dim myControl as YourControlNameHere

myControl = trycast(Form2.controls(0), YourControlNameHere) ' considering na ang form2 ay may lamang isang usercontrol mo or replace zero with the index of the user control

mycontrol.textbox.text = form2.textbox1.text

- - - Updated - - -

[HELP] Joining two tables from different database MySQL VB.NET

Help nmn po. Di ko kasi alam kung paano to gawin sa generic na paraan. May nasearch ako na dapat ang connectionstring e huwag daw dpat iispecify yung database kaya lang di ko alam kung advisable ba un. Help po please. Thanks.

SELECT Table1.*, Table2.* FROM different1.Table1 INNER JOIN different2.Table2 ON Table1.Id = Table2.Id;

considering na may Schema Privileged ka on both schema (different1, different2)

 

[lochinvar14]

malabo ang tanong mo,
i think ang ibig mo sabihin ay vb.net at vb6

Visual Studio is the IDE
like MSOFFICE na meron MSWORD at EXCEL

VB.NET is the language

http://en.wikipedia.org/wiki/Microsoft_Visual_Studio

eto yung versions



WIN32
Visual Studio 97 (VB5, C++, etc)
Visual Studio 6.0 (1998) (VB6, C++, VFP)
NOT SUPPORTED BY Microsoft anymore




http://upload.wikimedia.org/wikipedia/en/6/6a/Visual_studio_logo.png

.NET FRAMEWORK
Visual Studio .NET (2002) (VB.NET 2002, C#, etc)
Visual Studio .NET 2003 (VB.NET 2003, C#, etc)
Visual Studio 2005 (VB 2005, C#, etc)
Visual Studio 2008 (VB 2008, C#, etc)
Visual Studio 2010 (VB 2010, C#, etc)


VB6 is a WIN32 development tool
meaning ginagamit to create applications in the Windows32bit platform using native windows library.

VB.NET (VB2005 - VB2010) is a development tool to create applications running under the .NET Framework


sana malinaw yan so that we know na IISA lang ang tinutukoy nating bagay.

Astig ¡!!!!!!!!!!!!!!!!!!!!!

 

[zoombeee]

dim myControl as YourControlNameHere

myControl = trycast(Form2.controls(0), YourControlNameHere) ' considering na ang form2 ay may lamang isang usercontrol mo or replace zero with the index of the user control

mycontrol.textbox.text = form2.textbox1.text

- - - Updated - - -

Ayaw pa din sir eh.. panu po ba? ang ilagay nyu na lang po sa sample eh ung actual na..

 

[fts28]

Good evening mga Ser. Patulong naman po. Gumagawa kasi ng Employees Attendance Monitoring System using biometrics para sa SAD subject namin. Ang gamit namin ay vb2010 tsaka mysql database. May code po ba kayo nung verification ng mga fingerprint? Salamat

 

[maskio]

Ayaw pa din sir eh.. panu po ba? ang ilagay nyu na lang po sa sample eh ung actual na..

ayaw ko na mag spoon feed. mag post ka muna ng actual codes mo at ano ang problema. try kita e help, help mo din sarili mo.

- - - Updated - - -

Good evening mga Ser. Patulong naman po. Gumagawa kasi ng Employees Attendance Monitoring System using biometrics para sa SAD subject namin. Ang gamit namin ay vb2010 tsaka mysql database. May code po ba kayo nung verification ng mga fingerprint? Salamat

need mo ng Software Development Kit (SDK) ng finger print scanner mo. depende yan kung anong klaseng scanner ang gamit mo.

 

[chimeara]

Good evening mga sir, hingi lng po sana ako ng tulong sa capstone project ko. Ang system ko po ay Computer-based Entrance Exam, bale nagge-generate na po sya ng questions in random order pro sa exam form ko po isang question lang yong naka display. Ang recommendation po ng Dean ko mas mabuti daw kung five questions yong mag display instead of one but still in a random order pra daw po ma-avoid ang pag click ng next button.
Ito po yong screenshot ng exam form:
View attachment 229233
At ito po yong code:
*connection
Imports MySql.Data.MySqlClient
Public Class frmEnglish
Dim con As MySqlConnection = New MySqlConnection("Data Source=localhost;Database=dbentex;User ID=root;Password=;")
Dim con1 As MySqlConnection = New MySqlConnection("Data Source=localhost;Database=dbentex;User ID=root;Password=;")
Dim Query As String
Dim Query1 As String
Dim reader As MySqlDataReader
Dim cmd As MySqlCommand = New MySqlCommand(query, con)

Dim da2 As New MySqlDataAdapter
Dim cache As Object
Dim da As New MySqlDataAdapter

Dim temp As String
Dim MyIndex As Integer = 0
Dim qnum As Integer, correct As Integer, wrong As Integer, ave As Double
*random order
Private Sub Random(ByVal unit As Integer)
Dim list As New ArrayList
For i As Integer = 3 To 5
list.Add(i)
Next i
Dim rnd As New Random

Dim ind, j As Integer
Dim Reader As Object
j = 0
If unit < dgvquestions.RowCount Then
While list.Count > 0
ind = rnd.Next(0, list.Count)
Reader = list(ind)
list.RemoveAt(ind)
If j = 0 Then
rb1.Text = dgvquestions.Item(Convert.ToInt32(Reader.ToString()), unit).Value.ToString
ElseIf j = 1 Then
rb2.Text = dgvquestions.Item(Convert.ToInt32(Reader.ToString()), unit).Value.ToString
ElseIf j = 2 Then
rb3.Text = dgvquestions.Item(Convert.ToInt32(Reader.ToString()), unit).Value.ToString
ElseIf j = 3 Then
rb4.Text = dgvquestions.Item(Convert.ToInt32(Reader.ToString()), unit).Value.ToString
End If
j = j + 1
'MsgBox(Reader.ToString())
End While
End If
End Sub
*display question
Public Sub qdisplay()
con.Close()
con.Open()
cmd = New MySqlCommand("SELECT * from tblquestions where subject_c LIKE '" & lblSub_c.Text & "' AND glevel LIKE '" & lblGL.Text & "' ORDER by RAND()", con)
Reader = cmd.ExecuteReader

While Reader.read
dgvquestions.Rows.Add(New String() {reader.GetValue(0), reader.GetValue(1), reader.GetValue(2), reader.GetValue(3), reader.GetValue(4), reader.GetValue(5), reader.GetValue(6), reader.GetValue(7), reader.GetValue(8)})
End While
con.Close()
End Sub
*display textbox
Private Sub DisplayTextbox()
Try
con.Close()
con.Open()

cmd = New MySqlCommand("SELECT * FROM tblquestions where question_c like '" & dgvquestions.CurrentCell.Value & "'", con)
reader = cmd.ExecuteReader

While reader.Read
txtqid.Text = reader.GetValue(0)
txtqname.Text = reader.GetValue(1)
rb1.Text = reader.GetValue(4)
rb2.Text = reader.GetValue(5)
rb3.Text = reader.GetValue(6)
rb4.Text = reader.GetValue(7)
txtkey.Text = reader.GetValue(8)
End While
con.Close()
Catch ex As Exception
MsgBox("There are no available questions", MsgBoxStyle.Critical)
Me.Close()
End Try

End Sub
*Next button
Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click

If dgvquestions.RowCount > 0 Then
Dim MyIndex As Integer = 0

If dgvquestions.CurrentRow.Index < dgvquestions.RowCount Then
MyIndex = dgvquestions.CurrentRow.Index + 1
End If
dgvquestions.ClearSelection()

'score
If rb1.Checked = True And rb1.Text = txtkey.Text Then
correct = correct + 1
lblcorrect.Text = correct
ElseIf rb2.Checked = True And rb2.Text = txtkey.Text Then
correct = correct + 1
lblcorrect.Text = correct
ElseIf rb3.Checked = True And rb3.Text = txtkey.Text Then
correct = correct + 1
lblcorrect.Text = correct
ElseIf rb4.Checked = True And rb4.Text = txtkey.Text Then
correct = correct + 1
lblcorrect.Text = correct
Else
wrong = wrong + 1
lblwrong.Text = wrong
End If

txtscore.Text = lblcorrect.Text
'end score
'-----------------------------------------------

'question number
qnum = Val(Label4.Text)

If qnum >= Val(lblLimit.Text) Then
' MessageBox.Show("maximum number of questions", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
con.Close()
con.Open()
othercompute()
Query = "INSERT INTO tblscore(score_c,score,overall,percentage,subject_c,ornum)VALUES('"
Query = Query + txtScoreC.Text + "','" + txtscore.Text + "','" + lblLimit.Text + "','" + lblMulti.Text + "','" + lblSub_c.Text + "','" + frmMainStudent.lblOR.Text + "')"
Dim cmd As New MySqlCommand(Query, con)
Dim i As Integer = cmd.ExecuteNonQuery()
con.Close()
MsgBox(frmMainStudent.cmbSubject.Text + " Examination Done", MsgBoxStyle.Information)
MsgBox("Your correct is " + txtscore.Text + " out of " + lblLimit.Text, MsgBoxStyle.Information)


MsgBox("Equivalent to " + lblMulti.Text, MsgBoxStyle.Information)
Me.Close()

'frmStudentExam.Label2.Text = lblcorrect.Text
'ave = (Val(frmStudentExam.Label2.Text) + Val(frmStudentExam.Label3.Text) + Val(frmStudentExam.Label4.Text)) / 3
'frmStudentExam.Label5.Text = ave
'Me.Close()
'Label4.Text = 1
End If
'end of question number
If MyIndex < dgvquestions.RowCount Then
'datathrow()
'Examcount()
dgvquestions.CurrentCell = dgvquestions.Rows(MyIndex).Cells(0)

txtqid.Text = dgvquestions.Item(0, MyIndex).Value.ToString
txtqname.Text = dgvquestions.Item(1, MyIndex).Value.ToString
rb1.Text = dgvquestions.Item(4, MyIndex).Value.ToString
rb2.Text = dgvquestions.Item(5, MyIndex).Value.ToString
rb3.Text = dgvquestions.Item(6, MyIndex).Value.ToString
rb4.Text = dgvquestions.Item(7, MyIndex).Value.ToString
txtkey.Text = dgvquestions.Item(8, MyIndex).Value.ToString
dgvquestions.Rows(MyIndex).Selected = True
' Random(MyIndex)

Else
btnSubmit.Visible = True
' Examcount()
End If
qnum = Val(Label4.Text) + 1
Label4.Text = qnum

If qnum < Val(lblLimit.Text) Then
btnnext.Text = "Next"
Else
btnnext.Text = "Submit"
End If
End If
__________________________
MARAMING SALAMAT PO SA TULONG MGA SIR

 

[zoombeee]

ayaw ko na mag spoon feed. mag post ka muna ng actual codes mo at ano ang problema. try kita e help, help mo din sarili mo.

ung control user ko sa form1 kinocall ko lang un sir hnd sya ung nklagay na mismo parang ganun sa ginwa ni si eric sa Micropos nya..
eto sir ung error ko ngtry ako.View attachment 229335