|
I am new to VB.Net so forgive me if this is a stupid question! I am trying to write a service that periodically goes out to another server drive and checks to see what files are in a directory and the file size. If the file size of any given file is zero, it sends an email alerting IT that the backup file size is null. I have set a server timer and have the email portion working, but it will not read the directory. Can anyone give me a direction to pursue? Thanks!
Stacy Springer
|
|
|
|
|
Do you know if the permissions to read the other drive are set correctly?
|
|
|
|
|
The server is a Novell Netware Server(We are a Novell Network with various Windows servers, i.e. No active directory). I am on a workstation that is logged into the network with admin rights and I have a mapped drive to that directory. As far as the ServiceAccount member for the service I am currently using LocalSystem. Thanks!
Stacy Springer
|
|
|
|
|
OK. LocalSystem doesn't have Netware rights. You'll have to use an account that the service can log into the network with.
RageInTheMachine9532
|
|
|
|
|
Stacy - have you tried setting the service account to the same account that is logged into the (Netware) network ?? it should then be able to use the mapped drive.
(as per the previous comment by Rage...)
The last time I did anything like this we used the ActiveX controls from the Novell developer website to log into Novell seperately and read the directory
'G'(rinch)
|
|
|
|
|
Thanks for all the help. I figured it out.
Stacy Springer
|
|
|
|
|
I can use arraylist variable to fill datagrid?.
This is my question. Because is not working.
example.
dim t as new arraylist
t.add(one)
t.add(two)
t.add(three)
datagrid1.datasource = t
This code must be works?
Johnny Lizardo
|
|
|
|
|
Well, the DataGrid.DataSource property can take objects that implement the IList interface, so an ArrayList should be fine. Can you post the actual code and exception message you're getting?
|
|
|
|
|
Look. Right now I'm not in my machine. For this reason i can't send to you all code with exception.
But The code i'm already posted don't help you?
Johnny
|
|
|
|
|
Well, I can tell what you're generally trying to do, but it's not clear exactly where you are getting an error. If you would like to post the details of the error you're getting (and any additional code that would help to make sense of it), I'd be in a better position to help.
|
|
|
|
|
I get a value out of range exception, but rather than the debugger displaying the line where the exception was thrown, it displays the first line of code in my form, i.e. public class frmMyForm....
Can I get it to stop where the exception is thrown?
Nursey
|
|
|
|
|
What code do i need to open my mail client and put my email address in it and how do i determine if i have a mail client installed or not. And do i open my web browser from my form if i type in the textbox www.codeproject.com and wants to go there?
Thank You very much
|
|
|
|
|
<description("location of="" images="" to="" represent="" button="" states"),="" category("button="" image"),="" defaultvalue(false),="" _
editorattribute(gettype(filenameeditor),="" gettypesystem.drawing.design.uitypeeditor))=""> _
Public Property ImageDir() As String
Why wont the above compile? I have tried to implement the FileNameEditor attribute so presumably I can have properties where the user can select files. But it can't find the attribute even though I have imported the documented name space.
Any ideas.
Nursey
|
|
|
|
|
Found it -- I'm using this code snippet to test:
Imports System.ComponentModel
Imports System.Windows.Forms.Design
'EditorAttribute(GetType(System.Windows.Forms.Design.FileNameEditor), GetType(System.Drawing.Design.UITypeEditor))' _
Public Property testFilename() As StringYou also have to add a reference to System.Design.dll to get it to show up.
It drove me nuts for 20 minutes trying to find it. I finally went into the Object Browser, hit the search button, and typed in 'FileNameEditor' in the 'Find What:' box. Then I clicked on the little button next to 'Look In: Selected Components', clicked on 'External Components and Libraries', and then clicked 'Add'. I then added ALL of the 'System.<whatever>.dll' files, hit 'Select', then 'OK'. I did the search and found the little bugger under System.Windows.Forms.Design. I then went thru the 'External Components' list again and 'Remove'd each external component, one at a time, until the Browser window no longer showed the 'FileNameEditor' hit. That's when I knew what DLL it was residing in.
RageInTheMachine9532
|
|
|
|
|
Sir Rage of Rage-shire, thou art a God!
P*sser number 1...when the System.Design shows up with other stuff, like it's already referenced. Things like that just lower your trust of things you take for granted as being straight forward.
Ah well, onwards and upwards.
Oh by the way...I solved my problem of icons for my controls not showing up in the toolbox. I renamed my controls, to divorce them of any old stuff in the registry, and guess what, yep, you don't have that surprised look on your face, so you know...it worked! P*sser number 2, follow the rules but if your registry is strangely screwed for whatever reason then its gonna bite yah! 8-(
As soon as I referenced system.design explicitly the new uitype designer stuff was all plugged in.
Thanks a million!
Nursey
|
|
|
|
|
Hi everyone
Look, I'm looking to resolve how can i refresh the data from a datagrid.
example.
I have form A and Form B. In the form A i have the Datagrid, but I'm in form B. How can I refresh the datagrid from form B button?.
Johnny
|
|
|
|
|
What Am I doing wrong?
I am getting the message object is close
Dim objcnn1 As New ADODB.Connection
Dim objcmd1 As New ADODB.Command
Dim objrst1 As New ADODB.Recordset
Dim str As String
Dim GConnection As String
objcnn1.Open "Provider=MSDASQL.1;password =;User Id = ;Data Source=TEST;"
objcmd1.ActiveConnection = objcnn1
With objrst1
.ActiveConnection = objcnn1
.CursorType = adOpenDynamic
End With
sDownload = "SELECT * FROM test "
objrst1.Open sDownload
Do While Not objrst1.EOF
MsgBox " " & sDownload
objrst1.MoveNext
Loop
|
|
|
|
|
as such you are using the MSDASQL provider
u r here not specifying the path of the source 
i think that u should specify the path of the source
else wise he will take the application path
also u r using the MSDASQL provider then i think that you have to login the SQL server to access the database
i m not sure abt it 
check whether the objcnn1 is open or not and get the error
from err.number
first do the connection and then do the rest of the things with that object 
VickyMD A Specialist in Message Digest Security
|
|
|
|
|
First, you're using some bad programming techniques that will lead to some overhead in the Code. Anytime you Declare a Variable with the "...As New" and it's an Object, then every time you set a Property or use a Method, the VB Compiler ALWAYS checks to see if the Object has been instantiated...this is some significant overhead if you use this routine a lot.
Actually, it looks like the whole Connection String is wrong... The Provider "MSDASQL" is strictly used for DataSources that reside in the ODBC DataSources. If this is the Case, and you do not have a User / Password, then leave those Parameters out. Also, do not put a SemiColon at the end of the Connection String.
Also, why did you make an "ADODB.Command" Object if you never used it??
NOTE: Also, you better learn the difference between Dynamic, ForwardOnly, Static, and Keyset cursors before you program any further, you are not making the most efficient use of resources...
Dim adoCon As ADODB.Connection
Dim rsData As ADODB.Recordset
'Open the Connection
Set adoCon = New ADODB.Connection
'objcnn1.Open "Provider=MSDASQL.1;password =;User Id = ;Data Source=TEST;" (Wrong)
adoCon.Open "Provider=MSDASQL.1;Data Source=TEST"
'Open the Recordset
'Open ForwardOnly / ReadOnly because we are only Enumerating the Records (maybe filling a ComboBox)
Set rsData = New ADODB.Recordset
rsData.CursorLocation = adUseClient
rsData.Open "Select * From Test", adoCon, adOpenForwardOnly, adLockReadOnly, adCmdText
While (Not rsData.EOF)
MsgBox " " & rsData.Fields(0).Value 'sDownload (Huh?)
'MsgBox " " & rsData.Fields("FieldName").Value
'MsgBox " " & rsData!FieldName
'MsgBox " " & CStr(rsData!StringField)
'MsgBox " " & CInt(rsData!NumberField)
rsData.MoveNext
Wend
|
|
|
|
|
How do I override where the rich text box draws to an area.
What I would like to do, is to have the rich text box output go to a picturebox.
If needed, I can supply the 'shareware' paint program that I have updated, so you can see why this becomes important.
|
|
|
|
|
Just thought I would run this past you again, as I hit a blank before...
I have a panel control, which draws a form like caption at the top. Problem is, if I place a control in that panel and dock the control at the top of the panel, the new control obscures the caption. Can I control the CLIENT area in such a way that when the control docks, it fits beneath the caption? Is this something to do with SetClientSizeCore?
Thanks
Nursey
|
|
|
|
|
Heya,
I'm trying To create a windows service that picks messages off of a MS message queue and send them to a GSM modem. I can post a message to the queue with a standard Windows app so there's no problem connecting to the queue. The problem is, I've made a service that finds the queue and begins receiving, it just never calls the ReceiveCompleted event, or if it does I never see it happen. I know it reads the queue once because if there is a message on the queue it disappears as soon as the service is started. If I add a message after that nothing happens.
The code is as follows:
Private Sub HookQueue()
Try
' Initialise our queue
SMSMessageQueue = New MessageQueue(".\private$\SMSMessaging")
SMSMessageQueue.Formatter = New System.Messaging.XmlMessageFormatter(New String() {"LAB.Messaging.SMS.SMSMessage"})
AddHandler SMSMessageQueue.ReceiveCompleted, AddressOf SMSMessageReceived
SMSMessageQueue.BeginReceive()
Catch exp As MessageQueueException
EventLog.WriteEntry(exp.Message)
Catch exp As Exception
EventLog.WriteEntry(exp.Message)
End Try
End Sub
And the event code:
Private Sub SMSMessageReceived(ByVal sender As Object, ByVal e As System.Messaging.ReceiveCompletedEventArgs) Handles SMSMessageQueue.ReceiveCompleted
Try
Dim SMSMessage As Message = sender.EndReceive(e.AsyncResult) 'SMSMessageQueue
Dim oMessage As LAB.Messaging.SMS.SMSMessage = CType(SMSMessage.Body, LAB.Messaging.SMS.SMSMessage)
'TODO: Send message to GSM Modem here
SMSMessageQueue.BeginReceive()
Catch exp As MessageQueueException
EventLog.WriteEntry(exp.Message)
Catch exp As Exception
EventLog.WriteEntry(exp.Message)
End Try
End Sub
I can't think of anything I'm doing wrong.
Thanks
Nicholas Rowan
The man who smiles when things go wrong has thought of someone he can blame it on.
If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.
|
|
|
|
|
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opslaan.Click
FileOpen(1, "C:\Documents and Settings\Jurgen\Mijn documenten\Visual Studio Projects\Data test1\Data Testje 1\Log_uren_bijhouden.txt", OpenMode.Output) ' Open file for output.
Print(1, TimeOfDay, Today) ' Print text to file.
PrintLine(1) 'sluit 1ste regel af
PrintLine(1)
PrintLine(1, nummer.Text, naam.Text, achternaam.Text)
PrintLine(1, "Begonnen om", TAB(1), beginuur.Text) ' Print in two print zones.
PrintLine(1, "Beeindigd om", TAB(1), eindeuur.Text) ' Separate strings with space.
PrintLine(1)
PrintLine(1, TAB(10), "END", TAB(20), "END") ' Print word at column 10.
PrintLine(1, "-------------------------------------------------------------------")
FileClose(1) ' Close file.
End Sub
I want to add every time I klik a Button a new line with these text in the file.
now when i try to do that he overwrites every time the existing Data.
It has to somthing like a log file.
I use Visual Basic.net, this because i can't work very wel with C++
Sombody a hint or a Solution,
Thanks
Jurgen De Bondt
Thats ........ Me
|
|
|
|
|
Change the OpenMode.Output to OpenMode.Append.
RageInTheMachine9532
|
|
|
|
|
Thanks a lot. It works
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
