Comments by noob_noob

noob_noob 29-Nov-17 3:10am View

the function saves data in the database,and displays the data on the form named Queue(this is the form that displays the number that is being served).

noob_noob 29-Nov-17 3:01am View

Private Sub AppNxt_Click(sender As Object, e As EventArgs) Handles AppNxt.Click
        'next
        Dim strHostName1 As String
        strHostName1 = System.Net.Dns.GetHostName()

        If (wapp.Text = 0) Then
            MessageBox.Show("There are no queues as of now!")

        ElseIf (Queue.Label7.Text < FrmNumApp.NumApp.Text) Then
            Dim sqlconn5 As New SqlConnection
            Dim sqlquery5 As New SqlCommand
            Dim connString5 As String
            wapp.Text = CStr(CDbl(wapp.Text) - 1)
            Try
                connString5 = "Server=MISKRISTIAN-PC\HMO_OPD;Database=HMO_OPD_QUEUE;User Id=sa;Password=sa;"
                sqlconn5.ConnectionString = connString5
                sqlquery5.Connection = sqlconn5
                sqlconn5.Open()
                sqlquery5.CommandText = "INSERT INTO AppCon([Number],[Counter])VALUES(@Number,@Number)"
                sqlquery5.Parameters.AddWithValue("@Number", Queue.Label7.Text)
                sqlquery5.Parameters.AddWithValue("@Counter", Queue.Label19.Text)
                sqlquery5.ExecuteNonQuery()
                sqlconn5.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

            Queue.Label7.Text = CStr(CDbl(Queue.Label7.Text) + 1)
            Queue.Label11.Text = "0"
            My.Computer.Audio.Play(My.Resources.DoorBell, AudioPlayMode.Background)
            Dim speaker As New SpeechSynthesizer()
            Dim speak As New Prosody()
            'tts
            speak.Duration = 3
            speaker.Rate = -5
            speaker.Volume = 100
            speaker.Speak("Now serving number " + Queue.Label7.Text)
            speaker.SelectVoiceByHints(VoiceGender.Male)
            Queue.Label19.Text = strHostName1
        End If

    End Sub

this is the function of the "next button"

noob_noob 27-Nov-17 20:13pm View

Can you give me an idea that can execute all four of them?
The system populates the window by calling the data that was generated when a user clicks a button that generates a ticket from the system.

this system does not generate sensitive information, there is nothing to worry about that.

noob_noob 23-Nov-17 3:19am View

Hi, thanks for replying to my question. I did some fiddling with the tick event and this is what I ended up with:

Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
Timer7.Interval = 5000
Timer7.Enabled = True
Try
Dim scn As New SqlConnection
Dim scm As New SqlCommand
Dim str1 As String
str1 = "Server=MISKRISTIAN-PC\HMO_OPD;Database=HMO_OPD_QUEUE;User Id=sa;Password=sa;"
scn.ConnectionString = str1
scm.Connection = scn
scn.Open()
scm.CommandText = "SELECT * from ConCon"
scm.CommandText = "SELECT * from AppCon"
scm.CommandText = "SELECT * from PrioCon"
scm.CommandText = "SELECT * from RetCon"
scm.ExecuteNonQuery()
scn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Refresh()

End Sub

this is wrong in so many ways but I'm on a deadend here. Can you help me? Thanks.

noob_noob 30-Oct-17 5:11am View

I have created a counter for the queue, all I need now is to count how many are stacked in the queue to display it on the controller. Thanks!

noob_noob 30-Oct-17 5:08am View

Can GetHostName get other IP addresses on the same network?

noob_noob 30-Oct-17 3:48am View

But how can I get the IP addresses of other computer on the same network as mine?

noob_noob 30-Oct-17 3:33am View

Physically(I guess). I want to count how many people, that has their own tickets, are waiting inline and then display it on the controller that the clerk is using. Is it the "First in, First out" thing?

noob_noob 25-Oct-17 20:38pm View

Hi! is there any way I can convert my code to a compatible one for sql server?

noob_noob 17-Oct-17 4:47am View

Hi! which version of sql best fits the system I'm working on? Is SQL 2012 enterprise okay? It is the version of sql I currently have.

noob_noob 13-Oct-17 22:44pm View

so this connection string:
connString5 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\192.168.1.86\share\C:\Users\MISKRISTIAN\Desktop\kuwewe - Copy\queuingsystem\bin\Debug\HMOOPD_DB2.mdb"

is the string I'll be using on the other computers as their connection string?

noob_noob 13-Oct-17 1:25am View

So that means that I have to change the connection string path on the other computers that will use my system to make my database centralized?

noob_noob 12-Oct-17 4:25am View

and that IP address is the address of the PC I'm working on right now. Is that why there is an error every time I test the connection?

noob_noob 12-Oct-17 4:13am View

Hi! I tried to save the database to .accdb but it still produced an error that said "'\\192.168.1.86\share\C:\Users\MISKRISTIAN\Desktop\kuwewe - Copy\queuingsystem\bin\Debug\HMOOPD_DB3.accdb' is not a valid path. Make sure that the path name is spelled correctly..."

noob_noob 12-Oct-17 2:09am View

I tested the connection but an error box appeared that said "Not a valid file name." What does that error mean?

noob_noob 12-Oct-17 1:42am View

connString5 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\192.168.1.86\share\C:\Users\MISKRISTIAN\Desktop\kuwewe - Copy\queuingsystem\bin\Debug\HMOOPD_DB2.mdb"

Is this connection string right? I really don't have any idea what I'm doing right now. Thanks for the help!

noob_noob 10-Oct-17 23:13pm View

Hi! what is "c$"'s purpose?

noob_noob 8-Oct-17 22:17pm View

This definitely works! Thanks!

noob_noob 8-Oct-17 21:03pm View

I found the error. It was right here
sqlquery.Parameters.AddWithValue("@Number", Queue.Label1.Text)
I was calling a label from a different form.
Thanks anyways!

noob_noob 8-Oct-17 21:01pm View

Hi! Thank you for this insightful comment. I will now read my codes one line at a time to understand my program better and to check if every line is doing what its supposed to be. Thanks again! You're a great help!

noob_noob 15-Sep-17 3:14am View

This works!! Thanks!

noob_noob 25-Aug-17 4:28am View

Hi! thanks for acknowledging my question. I'm trying to print a queuing ticket with the program I'm working on but when the number on the queue reaches 10 & up it only prints the first digit of the number(e.g. ticket # "10" the only character that was printed is the "1")

Here is the rest of the code:

Public Sub ConPrint()
Dim myConn As New OleDb.OleDbConnection
Dim myCmd As New OleDb.OleDbCommand
Dim connStr As String
Try
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\MISKRISTIAN\Desktop\kuwewe\queuingsystem\bin\Debug\HMOOPD_DB1.mdb"
myConn.ConnectionString = connStr
myCmd.Connection = myConn
myCmd.Connection.Open()
myCmd.CommandText = "Select * from query2"
myCmd.Prepare()
myCmd.Parameters.AddWithValue("@NumCon", NumCon.Text)
myCmd.CommandText = "SELECT TOP 1 * FROM query2 ORDER BY ID DESC"
myCmd.ExecuteNonQuery()
myCmd.Connection.Close()
TextToPrint = NumCon.Text

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub CONSULTATION_Click(sender As Object, e As EventArgs) Handles CONSULTATION.Click
Me.NumCon.Text = CStr(CDbl(NumCon.Text) + 1)
Me.Label18.Text = "0"
Try
Dim sqlconn As New OleDb.OleDbConnection
Dim sqlquery As New OleDb.OleDbCommand
Dim connString As String
connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\MISKRISTIAN\Desktop\kuwewe\queuingsystem\bin\Debug\HMOOPD_DB1.mdb"
sqlconn.ConnectionString = connString
sqlquery.Connection = sqlconn
sqlconn.Open()
sqlquery.CommandText = "INSERT INTO query2([Number])VALUES(@Number)"
sqlquery.Parameters.AddWithValue("@Number", NumCon.Text)
sqlquery.ExecuteNonQuery()
sqlconn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ConPrint()
Dim printControl = New Printing.StandardPrintController
PrintCon.PrintController = printControl
Try
Dim prntdiag As New PrintDialog
If CBool(prntdiag.ShowDialog) Then
PrintCon.Print()
End If
Catch ex As Exception
MsgBox(ex.Message)

End Try
End Sub

Comments by noob_noob (Top 22 by date)