|
i have this two lines of code in a window service. it creates the directory but does not insert data into the database. both work in a window form project. pls i need help
Dim dailydirobj As DirectoryInfo = Directory.CreateDirectory("C:\ebube")
bllclass.InsertIncoming("filemu", "filegi", 0, "ayincha")
i have the funtion for DAL as
Public Function InsertIncoming(ByVal pfaAccount As String, ByVal myfileName As String, ByVal sent As Boolean, ByVal dNfNme As String) As Boolean
Dim params() As SqlParameter = {New SqlParameter("@pfaAccount", pfaAccount), _
New SqlParameter("@fileName", myfileName), _
New SqlParameter("@sent", sent), _
New SqlParameter("@FullPath", dNfNme)}
Try
Dim i As Integer = SqlHelper.ExecuteNonQuery(connectionString, CommandType.StoredProcedure, "InsertIncoming", params)
Return (i = 1)
Catch ex As Exception
Throw ex
End Try
End Function
and the store procedure as
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[InsertIncoming]
@pfaAccount varchar(50)
,@fileName varchar(150), @sent bit, @FullPath varchar(max)
as
INSERT INTO [diamonddb].[dbo].[Incoming]
([pfaAccount]
,[fileName], sent,FullPath)
VALUES
(@pfaAccount
,@fileName,@sent ,@FullPath)
|
|
|
|
|
Are you connected to the database? Any error messages?
|
|
|
|
|
no error message the service is running. where can i view window service run time error
i am connected to the database
|
|
|
|
|
i modify the code like this. but same problem help pls
Dim dailydirobj As DirectoryInfo = Directory.CreateDirectory("C:\ebube")
Dim ins As String = "INSERT INTO incoming([pfaAccount] ,[fileName], sent,FullPath) VALUES('ebube','fileName','0' ,'FullPath')"
Dim con As New SqlConnection("Data Source=PRGLAP11;Initial Catalog=diamonddb;Integrated Security=SSPI")
Dim com As New SqlCommand(ins, con)
con.Open()
com.ExecuteNonQuery()
con.Close()
|
|
|
|
|
I Don't like to debug Windows Services, therefore I always create seperate classes with all functionality I need and the test those on and on before calling the functions in those classes from a windows service.
|
|
|
|
|
i have include change integrated security but the problem persist. the connection string is
Dim con As New SqlConnection("Data Source=PRGLAP11;Initial Catalog=diamonddb;username = sa; password = eb")
|
|
|
|
|
If you put an stop statemnt in your code it should ask if you want to open the app in a debugger. Alternativly put a thread.sleep (for about 15 seconds) in the onstart code (to make your code wait) and attach to the process from the debug menu of the ide.
Hope this helps
Bob
Ashfield Consultants Ltd
|
|
|
|
|
when i put the thread it tell it cannot start the service. if i comment out the tread line and set break point at sub process mail. the service will start but when i point at break. i see a tooltip." the breakpoint will not currently be hit. no symbol have been loaded for this document.
pls hlp see the extract code below
Public Class testService
Private t As Timer
Dim log As New EventLog("Application", ".", "Diamond eMail Solution")
Dim cr, KeyID, sKeyID As Int32, afterLoad As Boolean
Dim panelIndex As Int32, insert As Boolean, ds As DataSet, bllclass As New baseTables, bllAdmin As New Administration
Dim myfileName As String
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)
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
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
t.Stop()
t.Dispose()
End Sub
'Protected Overrides Sub OnPause()
' t.Stop()
' MyBase.OnPause()
'End Sub
Private Sub TimerFired(ByVal sender As Object, ByVal e As ElapsedEventArgs)
'Working()
'getApplicationData()
ProcessMail()
End Sub
Sub ProcessMail()
'Try
Dim insert As Boolean
Dim dailydirobj As DirectoryInfo = Directory.CreateDirectory("C:\ebube")
Dim ins As String = "INSERT INTO incoming([pfaAccount] ,[fileName], sent,FullPath) VALUES('ebube','fileName','0' ,'FullPath')"
Dim con As New SqlConnection("Data Source=PRGLAP11;Initial Catalog=diamonddb;Integrated Security=SSPI")
Dim com As New SqlCommand(ins, con)
con.Open()
com.ExecuteNonQuery()
con.Close()
end sub
end class
|
|
|
|
|
You cannot debug a windows service directly from the ide as you cannot run a service from the ide. Install the service, then ATTACH from the debug menu.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
that is exactly what i deed
|
|
|
|
|
I can't tell because you didn't post the connection string, but the common problem in connecting to an SQL Server from a Windows Service is using Integrated Security. The Local System account has no permissions to SQL Server, so the connection will not work.
Best practice is to NOT use integrated security, unless absolutely necessary and, instead, create a user account in SQL Server that the Service will use to connect to SQL Server. This gives you much greater control over what that account can and cannot do in SQL, resulting in greater security of your data.
|
|
|
|
|
i have included account and problem persist.
|
|
|
|
|
When you added the username and password to your connection string, did you ALSO remove the Integrated Security option from it??
|
|
|
|
|
|
Can I execute an exe in a windows application ? My exact requirement is,
on the button click event I should run the exe in the same window where the button resides. Right now I am using process.start() to execute, but it is opening a new window.
Thank U all,
Kiran
|
|
|
|
|
There is a CP article on this. It's a real hack ,but you can do something. Odds are you're going to break your app tho, I would not do it.
Christian Graus
Please read this if you don't understand the answer I've given you
"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 )
|
|
|
|
|
|
Thank U Mr.JZ, I will try with this.
with regards,
kiran
|
|
|
|
|
Hi,
Please forgive my lack of knowledge and this silly question. I would like to replace the (#?#) in the input string "5#A# 10#B#", to make it look like "5? 10?" and then display it in a richtextbox.
(the ? marks above should be the figures in the title)
Is this possible? can anybody teach me how to?
Thanks a lot!
Joe
|
|
|
|
|
alexvw wrote: Is this possible?
You might want to look at regular expressions on this, also for the heart, diamond, club, and spade characters, look in the symbols font and supply the ascii code for them in your regular expression.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Hi Paul,
Thanks for the tip! I will look into it. A few hours ago I just tried setting the font of the control to one that supports unicode to see what happends, and "Presto" I got the figures I needed.
Once again, thanks for your time. I will really look into it.
Joe.
|
|
|
|
|
I am actually suprised you got the symbols to show up correctly in the title, I thought their were web limitations preventing them.
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
|
|
|
|
|
Hi... I'm working on a project for a site I'm doing which gets SMS' from a GSM Modem, so far it's going okay... But I've hit a slight problem.
I've been though pretty much every page on Google and still no luck.
<br />
#Region "SMS"<br />
Public Sub openModem()<br />
Try<br />
Modem.Open()<br />
Catch ex As Exception<br />
<br />
End Try<br />
<br />
Thread.Sleep(7000)<br />
<br />
ModemWrite(" ", False) ''Seems to wake up modem<br />
MsgBox(ModemWrite("AT+COPS?", True))<br />
End Sub<br />
<br />
Public Function ModemWrite(ByVal WriteString As String, ByVal ExpectReturn As Boolean) As String<br />
Dim ReturnString As String = ""<br />
Modem.DiscardOutBuffer()<br />
Modem.DiscardInBuffer()<br />
<br />
<br />
Try<br />
Modem.Write(WriteString)<br />
Application.DoEvents()<br />
Catch ex As Exception<br />
<br />
End Try<br />
Thread.Sleep(1000)<br />
If ExpectReturn = True Then<br />
If Modem.BytesToRead = True Then<br />
<br />
ReturnString = Modem.ReadExisting<br />
<br />
End If<br />
<br />
End If<br />
<br />
Return ReturnString<br />
End Function<br />
#End Region<br />
I can talk to the modem though HyperTerminal, and the code above seems to be sending the commands.... But I don't seem to get any thing back other than a space.
I've tried using the event handler... and still nothing...
If anyone has any ideas, I'd love to hear them.
Thanks,
Aaron
|
|
|
|
|
This is what I did to recieve data to my app.
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
'' Threading.Thread.Sleep(500)
Try
txtResults.Invoke(New myDelegate(AddressOf updateTextBox), New Object() {})
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Delegate Sub myDelegate()
Public Sub updateTextBox()
With txtResults
.Font = New Font("Arial", 10.0, FontStyle.Bold)
SerialPort1.ReadExisting())
.AppendText(SerialPort1.ReadExisting())
.ScrollToCaret()
End With
'THIS WILL ONLY WORK WHEN CONNECTED SerialPort1.Close()
End Sub
Hope this helps!
rudy 
|
|
|
|
|
 
I ended up with
#Region "SMS"
Public Sub openModem()
Try
Modem.Open()
Catch ex As Exception
End Try
Thread.Sleep(7000)
ModemWrite(" ", False)
MsgBox(ModemWrite("AT+COPS?", True))
End Sub
Public Function ModemWrite(ByVal WriteString As String, ByVal ExpectReturn As Boolean) As String
Dim ReturnString As String = ""
Modem.DiscardOutBuffer()
Modem.DiscardInBuffer()
Try
Modem.Write(WriteString)
Application.DoEvents()
Catch ex As Exception
End Try
Thread.Sleep(1000)
If ExpectReturn = True Then
While ReturnStringTXT.Text = ""
Application.DoEvents()
End While
While Not ReturnStringTXT.Text = ""
ReturnString = ReturnStringTXT.Text
End While
End If
Return ReturnString
End Function
Private Sub ModemDataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Modem.DataReceived
Try
ReturnStringTXT.Invoke(New smsDelegate(AddressOf updateTextBox), New Object() {})
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Delegate Sub smsDelegate()
Public Sub updateTextBox()
ReturnStringTXT.Text = Modem.ReadExisting()
End Sub
#End Region
Popped up with an exception...
Am I doing something wrong?
Thanks,
Aaron
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
