Visual Basic

1-Jul-08 2:45

i hav a table wit one record i write the following code to retieve it and write to a file it works. but when i run as window service it does not write anything to the file. is there a better approach to i should use
Dim con As New SqlConnection("server=PRGLAP11;database = Diamond ;uid=sa;pwd=rr")

Dim con As New SqlConnection(connectionString)
Dim com1 As New SqlCommand(ins, con)
com1.CommandType = CommandType.StoredProcedure
con.Open()
Dim dr1 As SqlDataReader

dr1 = com1.ExecuteReader()

con.Close()

dr1.Read()
s1 = dr1.Item(1)
s2 = dr1.Item(2)
s3 = dr1.Item(3)
Dim f As New StreamWriter("c:\test2.txt")
f.Close()

paas1-Jul-08 3:26

paas

1-Jul-08 3:26

Did you check the event viewer on the system where the app is running as a service to see if any errors are being generated when it tries to create and write to a file?

When you set up the service, you must have had to set up a log on account for that service. I am wondering if maybe that log on does not have write permission to the drive or directory where you are writing the file. I don't think that would prevent the service from running, but I would expect it to generate some errors that are likely viewable via the event viewer.

Ebube1-Jul-08 5:05

1-Jul-08 5:05

actually the service is running my aim is to extract the information from database. it seems the reader does not retrn anyting. am using the file as my dubug technic. is ther a better way to debug

paas1-Jul-08 5:18

paas

1-Jul-08 5:18

Yes there is a better debug method for windows services. Check out the MSDN article at the following link, that should help...

How-to Debug Windows Service[^]

Ebube1-Jul-08 5:33

1-Jul-08 5:33

thanks i appreciate. will contact u if i hav more issue on that

Ebube1-Jul-08 6:04

1-Jul-08 6:04

i did what i read setting break point on the onstart method and it end sub when i pressed f10. it jumb to the line that instatiate timer if i press f10 again it show error that i acnot debug winservice
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
'System.Threading.Thread.Sleep(15000)
Try

t = New Timer(2000) 'stop here
't = New Timer(TimeInterval)

AddHandler t.Elapsed, AddressOf TimerFired
With t
.AutoReset = True
.Enabled = True
.Start()
End With
Catch ex As Exception
log.WriteEntry(ex.Message, EventLogEntryType.Information)
End Try
End Sub

paas1-Jul-08 7:03

paas

1-Jul-08 7:03

So you were able to attach to the process, move in to debug mode, but then it died on you? I'm not sure but that might be because debugging a service starting from OnStart can be problematic because if you spend too much time in OnStart, your service won't actually start. You might try putting a sleep right before you do your database connection, provided that is not in OnStart, and let OnStart run without any breaks. Then maybe you can get into debug mode before the connection happens and then step through the code from there.

Ebube1-Jul-08 16:09

Insert text at the end of the current mail in outlook Reply mail window using vb.net

1-Jul-08 16:09

i put the break point on timer fire . on pressing f11 it jump to dim log line. then to sub new . the yellow point disappear.then the error "cannot start from the command line or debbuger....."

Dim log As New EventLog("Application", ".", "Diamond eMail Solution")

Private Sub TimerFired(ByVal sender As Object, ByVal e As ElapsedEventArgs)
'Working()
'getApplicationData()
ProcessMail()
End Sub

Public Sub New()

' This call is required by the Windows Form Designer.
InitializeComponent()

' Add any initialization after the InitializeComponent() call.

End Sub

~Khatri Mitesh~1-Jul-08 2:42

~Khatri Mitesh~

1-Jul-08 2:42

Hiii
I m working on outlook 2003 add ins using vb.net. and i want to inset the particular text at the end of the curent message in reply window not at the bottom of the message.
Ex:

Hiii
Mr XXX

From
M [Insert Text Here]
---------------------------------------------------------------------------------------

From:khatrimitesh@hotmail.com
Sent: Sunday, June 22, 2008 6:00 PM
To: mitesh.khatri
Subject: Outlook Project Specs

Mitesh

Regards
M

I want to insert the text at the <inset text="" here=""> location not at the end of this message in reply window.

Please suggest how i do this.

Thanx

~Khatri Mitesh

checking image in a picturebox

Ahamed Azeem1-Jul-08 2:33

Ahamed Azeem

1-Jul-08 2:33

Dear Gents,

I have added a image in picturebox say image1.jpg when form s loaded. In a button click I want to check whether image in a picture box is image1.jpg or some other else.

Pls help me to achieve this

Regards
Azeem

Tom Deketelaere1-Jul-08 4:19

Tom Deketelaere

1-Jul-08 4:19

an imagebox has a property 'initailimage'
my suggestion would be to put the image1.jpg into this property (and never change it)

then compare the imagebox.image to the imagebox.initialimage

I vagly rember doing something like this in the past and it did work so...

Kenny McKee1-Jul-08 7:31

Kenny McKee

1-Jul-08 7:31

If picturebox1.Image = image1 then
  do something...
End If

Just replace [image1] with the location of the image you want to check.

How many bytes of text have I typed in my lifetime??? Man, I wish I kept track...

Thomas Stockwell2-Jul-08 2:49

Thomas Stockwell

2-Jul-08 2:49

First, I am assuming you marked the other two answers (which would have worked) as a bad answer. Don't do this if you do not understand what they are saying, it just agravates other forum dwellers.

Second, you should be able to store unique picture information in the Tag property (as a string), and then compare the unique values of different images when replacing the image. I would suggest the unique value be the filename of the picture.

Regards,
Thomas Stockwell

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Visit my homepage Oracle Studios

Discounted or Free Software for Students:
DreamSpark - downloads.channel8.msdn.com
MSDN Academic Alliance - www.msdnaa.com