|
Upvoted for persistence.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
It's not the most accurate description of what happens behind the scenes, but it should be sufficient to get the point across.
|
|
|
|
|
Hi
I have one problem i visual basic 2008
I have one project in avr which send back text after receiving text from UDP terminal
for example Terminal send "Hello" , AVR send answer "Readed"
i have UDP terminal "Hercules" and all works good, but in VB not receive, but is one strange thing , when I open VB program first time, then UDP receive one text "Readed" , because I send one text in "Form1_Load"
also when I send from AVR text every 500ms (without waiting for PC) then all works good and UDP receive all texts,
not receive only when AVR wait for text from PC .
In terminal in Android also all works perfect, only in VB is problem.
can you help me ?
here is listing :
Imports System.Net
Imports System.Net.Sockets
Imports System.Net.EndPoint
Imports System.Text.Encoding
Imports System.Text
Public Class Form1
Dim publisher As New Sockets.UdpClient()
Dim subscriber As New Sockets.UdpClient(8899)
Dim counterAs Int16
Dim ep As IPEndPoint
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
counter+= 1
publisher.Connect(TbTo.Text, TbPort.Text)
Dim subscriber As New UdpClient()
Dim sendbytes() As Byte = ASCII.GetBytes(TbSend.Text & Chr(13))
publisher.Send(sendbytes, sendbytes.Length)
subscriber.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
subscriber.Client.ReceiveTimeout = 3000
subscriber.Client.Blocking = False
ep = New IPEndPoint(0, 8899)
subscriber.Connect("10.10.100.254", 8899)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Opened" & Chr(13))
subscriber.Send(sendBytes, sendBytes.Length)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim rcvbytes() As Byte = subscriber.Receive(ep)
TbRcv.Text = counter & ASCII.GetString(rcvbytes) & vbCrLf
Catch ex As Exception
End Try
End Sub
End Class
|
|
|
|
|
Do you have a code example how to implement BCP or Bulk Insert in .net using .frm files.
|
|
|
|
|
I got something better; it's called documentation[^].
Contains explanation on all the switches and code examples.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
I'm new in VBs..
i've got this code:
For i = 0 To 20 Step 1.0
MsgBox "Blubb"& i &"bla"
Next i
and this error:
800A0401
"Statement completion expected"
"Compile error in Microsoft VBScript"
modified 19-Feb-16 6:17am.
|
|
|
|
|
What's with
Hide Copy Code
? Comment that out....
|
|
|
|
|
sry that was a mistake, i don't have this in my code... it was a copy and paste error -.-
now my code is right
|
|
|
|
|
Well, unless it's another copy/paste error, you should space out your &'s
wrong:
MsgBox "Blubb"& i &"bla"
right:
MsgBox "Blubb" & i & "bla"
|
|
|
|
|
okay, thank you
but the error is still comming
it have to be the loop, cause i now only have
For i = 0 To 20 Step 1.0
Next i
and the error is still comming
modified 19-Feb-16 6:45am.
|
|
|
|
|
Well try setting the "step" to just 1 rather than 1.0
Presumably you have defined that as an Integer?
And you can remove the final i after Next.
|
|
|
|
|
i just ignor the step, it doesnt matter if it says "step 1" or nothing, 1 is the default value
|
|
|
|
|
So now you're saying
For i = 0 To 20
Next i
is giving you an error? I don't think so... unless you have not defined the variable i at all.
|
|
|
|
|
This:
Dim i as Integer
for i = 0 To 20
Next
or this
Dim i
for i = 0 To 20
Next
is showing the error
|
|
|
|
|
Well, the first will - you don't DIM variables with the As [type] in VBS. You could try
Dim i%
but other than that, and capitalizing the F in for, which shouldn't really be necessary, I really find it hard to believe that this is where the error really lies.
You need to pin down the exact line.....
|
|
|
|
|
The key point you are missing here is that it is not actually the same error!
If I paste your original code into t1.vbs I get the following error
C:\Temp\t1.vbs(3, 6) Microsoft VBScript compilation error: Expected end of statement Removing the i after the Next fixes that problem (as suggested by @Wombaticus)
If I do the same thing with your first block of code above I getC:\Temp\t1.vbs(1, 7) Microsoft VBScript compilation error: Expected end of statement ...getting rid of the as Integer fixes that one (as suggested by @Wombaticus)
Your second block of code above does not produce anything - neither error nor output. If you were getting an error there are you sure you remembered to save the changes in your editor before attempting to run the script file? We've all done that a few times 
However, to get to the point ... See those numbers in brackets in my error messages above that are in bold? They indicate the ROW and COLUMN that the error occurs in - so the error moved from line 3 in the first example to line 1 in the second. Much easier to find the problem when you know that little bit of extra infomation
|
|
|
|
|
Thank you very much....
i don't even know what the error was. I had to restart the server, and now it works without doing anything 
but thank you
|
|
|
|
|
|
i just looked at this, but i do not find a mistake in my code
|
|
|
|
|
Look at the Next statement, it does not use the variable name.
|
|
|
|
|
oh thankyou but that wasnt the error at all
|
|
|
|
|
Yes it was. When I removed the i from the Next statement it worked correctly. I can only assume you are doing something different to what you posted.
|
|
|
|
|
No "i" after "next".
For i = 0 To 10 Step 1
MsgBox "Blubb" & i & "bla"
Next works for me 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Beat me to it by a couple of minutes!
|
|
|
|
|
I have a program that has an associated SQL Server database, running in SQL Server Express 2014 all running on a virtual Windows 2008 server. The program has masses of different calls to the database to select, insert and update data through all sorts of different parts of the program. It has background workers threads running multi threading and it's all working beautifully.
But I have a procedure that's not a background thread that also has various calls to the SQL Server database and I'm finding that at around 1:50am every day this process is stopping (the background threads continue to function perfectly, it doesn't stop them) and when I log into the server there is a pop up box saying there was an issue connecting to the server. It's had a few different errors, a common one being "...an error occurred during the pre-login handshake". Click okay on the box and it gets back to processing as normal.
It's not the error that concerns me, it's the fact that nothing I do seems to catch the error and stop it popping up the error box. Nowhere else in the program is this a problem, everywhere else handles the errors fine and the code here is exactly the same as everywhere else. I have searched everywhere and can't find any posts with a similar error, so I'm posting my own.
Here is my code:
Try
Using conn = New SqlConnection(Gdetails.sConnectionString)
conn.Open()
Dim data As SqlDataReader
Dim adapter As New SqlDataAdapter
Dim command As New SqlCommand
command.CommandText = query
command.Connection = conn
adapter.SelectCommand = command
data = command.ExecuteReader()
While data.Read
If data.HasRows = True Then
End If
End While
End Using
Catch ex As Exception
Write_To_Event_Log(Environment.MachineName & " thread monitor error - " & " - " & ex.Message.ToString, EventLogEntryType.Error, 205)
End Try
I would think the try..catch should catch the SQL connection error and simply write the error to the event log. But it's not catching the error, it's popping up a message which might be okay for a user based system but is no good for something that's designed to just keep processing without user intervention.
It's like the SQL connection isn't treating this as an error, it's just popping up a messagebox of it's own, rather than actually raising an error that can get caught by the try..catch code, but I can't find anyway to tell it not to do that.
Help please!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
