Visual Basic

Popup Message Box in Windows Service

26-Mar-08 13:23

Exposing .NET Components to COM
[^]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

vijay_8323-Mar-08 20:15

vijay_83

23-Mar-08 20:15

Hi,

I have to run a windows service in .net in which i have to generate popup message box reminder every one hour. i dont want to run it as a application, as each and every time we have to run it manually daily. i cant find a message box in windows service. can anybody please give me an idea of how to do it in an automatic service so that no manual process should be done. once they switch on the system, the service should start automatically and should generate popups once an hour. Pls help.

Thanks and Regards
Vijayarajan.V Smile | :)

Re: Popup Message Box in Windows Service

Dave Kreskowiak24-Mar-08 4:07

Assemble captured image packets and display

24-Mar-08 4:07

vijay_83 wrote:
I have to run a windows service in .net in which i have to generate popup message box reminder every one hour.

Not possible. Web Services cannot generate any kind of a user interface what-so-ever.

<blockquote class="FQ"><div class="FQA">vijay_83 wrote:</div>once they switch on the system, the service should start automatically and should generate popups once an hour.</blockquote>

This sounds like you're trying to write a Windows Service, not a Web Service.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Dan Worthington23-Mar-08 11:12

Dan Worthington

23-Mar-08 11:12

I currently have a VB6 program to capture packets and can filter by MAC address. There are only monochrome image files of about 15kb in size sent over the line. I am trying to add code to reassemble the data portion of the packets into the original image to display it.
Has anyone had any success coding a packet reassembly program. I'd appreciate any advice, thanks

Re: Assemble captured image packets and display

A Wong24-Mar-08 7:06

A Wong

24-Mar-08 7:06

I've written something similar for school before, but for text message. The hard part is figuring out how to pull the packets and you seem to have the packets pulled in anyhow. It's just a matter of understanding tcp/ip/ethernet protocol to read the correct bits to order the packets and reassemble the message.

It's been a while since that project, but if you have specific problems, you can post it and people will help you.

please i need real help ( iam tiered from it)

asha_s23-Mar-08 8:54

23-Mar-08 8:54

i have 2 problem
the first is:

i am dealing withe database my connection is

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
    Public con As New OleDbConnection(ConStr)

i am deleting from it and it work smile.gif smile.gif

but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif Blush | :O

after i delete i check only the database in the dubg file

how can i make it delete for ever

is the rong in the connection

the code is deleting and inserting will its runing after i close the project and rerun it agen in the database i found the deleted record
also i but the database in the debug fill but i found it in many folder insad my project fill

<br />
  Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
        con.Open()<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "DELETE FROM [Section] WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")<br />
        InsertCommand1.ExecuteNonQuery()<br />
<br />
        'to delet all the slot for the deleted section<br />
        InsertCommand2.Connection = con<br />
        InsertCommand2.CommandText = "DELETE  FROM  Slot WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand2.CommandType = CommandType.Text<br />
        InsertCommand2 = InsertCommand2<br />
        Me.BindingContext(ds2, "Slot").EndCurrentEdit()<br />
        da2.Update(ds2, "Slot")<br />
        InsertCommand2.ExecuteNonQuery()<br />
        con.Close()<br />

i delete from tow table

and this for insert

con.Open()<br />
        Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
<br />
<br />
        '---insrting section to section databace<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "INSERT INTO [Section] ([SectionID],[CourseID],[Type],[TeacherID],[joinedSection],[Group],[Capacity]) VALUES (?,?,?,?,?,?,?)"<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Try<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(CType(TextBox46.Text, Integer)))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox99.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox102.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(TextBox47.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            da.InsertCommand = InsertCommand1<br />
            InsertCommand1.ExecuteNonQuery()<br />
        Catch ex As Exception<br />
            MsgBox(ex, , "Alert")<br />
        End Try<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")

sorry about that but also i whant to ask about
can i update using this statment

sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
sectionsforupdate.AcceptChanges()<br />

Christian Graus23-Mar-08 11:27

Christian Graus

23-Mar-08 11:27

asha_s wrote:
how can i make it delete for ever

is the rong in the connection

For you to even ask that means you don't understand how databases work. You either connect, or you don't. If you're running the same version of the app ( release or debug ) both times, and your column disappears then reappears, it probably means that your UI is not showing it, but you never deleted it.

asha_s wrote:
Dim sql As String = "SELECT * FROM [Section]"
Dim sql2 As String = "SELECT * FROM Slot"
Dim da As New OleDbDataAdapter(sql, con)
Dim da2 As New OleDbDataAdapter(sql2, con)
Dim ds As New DataSet
Dim ds2 As New DataSet

Your code would be easier to read if your variables had meaningful names.

asha_s wrote:
ComboBox105.Text

You have 105 numbered combo boxes ? How do you know that combo105 is the right one ? This is probably your problem.

You're at least using paramerised queries, but it's still better to have a real data layer, IMO.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

asha_s24-Mar-08 0:09

24-Mar-08 0:09

my connection is

 Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
   Public con As New OleDbConnection(ConStr)

please if you now how i can solve this problem help me

yes i have 105combobox because i am Dealing withe big tables

tell me how can i make the ui connect to the db

please i need your help D'Oh! | :doh:

Dave Kreskowiak24-Mar-08 4:05

24-Mar-08 4:05

asha_s wrote:
i am deleting from it and it work smile.gif smile.gif

but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif

after i delete i check only the database in the dubg file

This is problably because the database file in your project is being copied to target build directories (Debug or Release) every time you run or rebuild the project, thereby overwriting the changes you made to the COPIES of database in those folders.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

asha_s24-Mar-08 7:40

24-Mar-08 7:40

thinks it yes the file was a copy and it work now
but i want to ask about updating db can i use this way

If RichTextBox45.Text <> "" Then<br />
           slot = 50405<br />
           sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
           i += 1<br />
       End If<br />
       sectionsforupdate.AcceptChanges()<br />
       con.Close()<br />

becuse in table sectionsforupdate many record that have the sectionId
and the primary key is (slot,sectionid)

i want to update all the slot for that section

i bring all the record that have the sectionid and but it in sectionsforupdate without knowing the slotid i want to update the slot

so i but this code but its not working Sigh | :sigh:

please help me

Dave Kreskowiak26-Mar-08 6:47

26-Mar-08 6:47

AcceptChanges doesn't do what your code is implying that you think it does. AcceptChanges tells the dataset that all of the changes it's keeping track of should be permanent, IN THE DATASET - NOT THE DATABASE. Call the Update method to write the changes made to the dataset back to the database.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

asha_s26-Mar-08 7:18

26-Mar-08 7:18

thanks but 'Update' is not a member of 'System.Data.DataSet'.
and i con not use the comand becase i have many slot that have the same sectionid and i retreve all of them and i want to update colum (0) row by row how can i save the changes

please help if you can becuse i stop my project and trying to solve this problem

Dave Kreskowiak26-Mar-08 7:20

inserting data in to ms access database

26-Mar-08 7:20

Sorry, you call Update on the DataAdpater or TableAdatper that was used to fill the DataSet/DataTable.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Help on a program

antlex23-Mar-08 6:26

antlex

23-Mar-08 6:26

I need help on making a program, I need to create a project to compute your checking account balance.

Form Includes radio buttons to indicate the type of transaction: deposit, check, or service charge. A text box will allow the user to enter the amout of the transaction. Display the new balance in a Read Only text box or label. Calculate the balance by adding deposits, and subtracting service charge and checks. Include buttons for Calculate, clear and exit.

Add validation to it by display a message box if the new balance would be a negative number. If there is not enough money to cover a check, do not deduct the check amout. Instead, display a message box with the message "Insufficient Funds" deduct a service charge of $10.

Can anyone help me on this program.

Re: Help on a program

pmarfleet23-Mar-08 7:11

pmarfleet

23-Mar-08 7:11

antlex wrote:
I need help on making a program, I need to create a project to compute your checking account balance.

What have you done so far?

You're not going to get the whole program written for you - read forum rule no.2. If you have no idea how to start, I suggest you buy a beginner's book on VB.NET and work your way through it. Then post again if you have specific programming questions.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

Re: Help on a program

Christian Graus23-Mar-08 11:36

Christian Graus

23-Mar-08 11:36

Sure - here's your help. Do your own homework. If I did it for you, then what would you have learned ? Why do people think this is the way to pass a computer science course ?

bapu288923-Mar-08 4:38

bapu2889

23-Mar-08 4:38

I am haveing a problem with inserting data in to database and i am using vb.net 2005 this what i have done

Dim ds As New DataSet<br />
        Dim da As OleDb.OleDbDataAdapter<br />
        Dim sql As String<br />
<br />
        sql = "SELECT * FROM Books"<br />
        da = New OleDb.OleDbDataAdapter(sql, MyConn)<br />
        Dim cb As New OleDb.OleDbCommandBuilder(da)<br />
        Dim dsNewRow As DataRow<br />
<br />
i am getting error in bottom bold line it says "Object reference not set to an instance of an object."<br />
        <big>dsNewRow = ds.Tables("Books").NewRow()</big><br />
<br />
        dsNewRow.Item("Title") = txtQ.Text<br />
        dsNewRow.Item("Year") = "1990"<br />
        dsNewRow.Item("Pages") = "500"<br />
        dsNewRow.Item("ISBN") = "111-999-8989"<br />
        dsNewRow.Item("URL") = "www.dk.com"<br />
        dsNewRow.Item("Picrure") = "www.dk.co.uk"<br />
        ds.Tables("Books").Rows.Add(dsNewRow)<br />
<br />
        da.Update(ds, "Books")

i have also try this but still i am having a same problem
(VB 2005 Express Edition users: don't forget to add the references! Click Project > Add References. Locate System.Data.dll and System.Xml.dll on the NET tab. Select these items and click OK. Then add Imports System.Data at the very top of your code window.)
any help Confused | :confused:

thanks

have a nice day

pmarfleet23-Mar-08 5:26

pmarfleet

23-Mar-08 5:26

Have you tried stepping through your code with the debugger to identify the source of the problem? I suggest you familiarize yourself with the concept of debugging if you are not sure what it is.

Unless I am missing something, it doesn't appear as if your DataSet object is assigned any tables. Therefore any attempt to reference a table called 'Books' will throw an error.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

Paul Conrad23-Mar-08 5:35

Paul Conrad

23-Mar-08 5:35

pmarfleet wrote:
it doesn't appear as if your DataSet object is assigned any tables

He's only declared ds, but has not done anything with it...

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

pmarfleet23-Mar-08 5:51

pmarfleet

23-Mar-08 5:51

Precisely my point. It does surprise me when people ask questions like this, i.e. where the source of the problem can quickly be found by simply stepping through the code.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

bapu288923-Mar-08 6:00

bapu2889

23-Mar-08 6:00

hello

first of all thank you very much for your rep.

yes i have stepinto it and it shows that

value for dsNewRow = nothing Confused | :confused:

waiting for your rep.

thanks you

Dave Kreskowiak23-Mar-08 15:38