|
Is there a way to modify the routing table from VB.Net or C#? I can get the IP address of a VPN connection on my computer but need to add an entry to the routing table to access the VPN.
Thx
Mark Jackson
|
|
|
|
|
You should not have to do this at all. If the VPN client is configured correctly, it handles this itself.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Unfortunately there is no VPN client, only a new IP address. I found the GetIpAddrTable call and GetIpForwardTable call from the old SDK so I will build something around that.
Thx
Mark Jackson
|
|
|
|
|
mjackson11 wrote: Unfortunately there is no VPN client, only a new IP address
 Who on earth does this anymore? Talk about the hard way...
Instead of writing an app and P/Invoking all kinds of crap, why not just write a little wrapper around the ROUTE command line utility? At least then, it's easily tested.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
lol, that would be too easy.
Dave Kreskowiak wrote: Who on earth does this anymore? Talk about the hard way...
Instead of writing an app and P/Invoking all kinds of crap, why not just write a little wrapper around the ROUTE command line utility? At least then, it's easily tested.
|
|
|
|
|
 Really, how much effort do you want to put into something so innocuous?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
This is in VB for Access, I don't know if it works the same in VB.NET.
I have a datasheet on a form who's datasource is a disconnected ADO recordset. I created the recordset in the form's open event method. It displays everything properly and I can delete/edit records but I adding them is broken. For example the datasheet last line is
ID SYMBOL DESCRIPTION
164 VM PJM OFF PEAK
When I go to line 165 and try to type in:
165 XXX TEST
It adds ten blank records to the dataset. Is there something I am missing about adding and editing record sets. Sorry but my prior experience is C++ financial so I don't know much about interfaces.
Thx
Mark Jackson
<----- Code here ----->
qStr = "SELECT Symbol, Legend FROM SymbolKey WHERE Symbol IS NOT NULL ORDER BY Symbol"
dbRS.Open qStr, dbConn, adOpenKeyset, adLockOptimistic
Set formRS = New ADODB.Recordset
formRS.Fields.Append "myID", adInteger, 8, adFldUpdatable
formRS.Fields.Append "Symbol", adChar, 10, adFldUpdatable
formRS.Fields.Append "Legend", adChar, 255, adFldUpdatable
formRS.Open , , adOpenDynamic, adLockOptimistic
i = 0
Do Until dbRS.EOF
formRS.AddNew
formRS.Fields("myID").Value = i
formRS.Fields("Symbol").Value = dbRS.Fields("Symbol").Value
formRS.Fields("Legend").Value = dbRS.Fields("Legend").Value
i = i + 1
dbRS.MoveNext
Loop
Set Me.Recordset = formRS
dbRS.Close
Set dbRS = Nothing
|
|
|
|
|
Access doesn't work anywhere near like VB.NET does...
This code is enumerating through a recordset, formRS, and creating a new record in the recordset for each and every existing record in the recordset!?!?!? Why?????
You'd be much better off on a board that supports Office products or Access. From what little code is here and your description, you wouldn't even need any code to do this in Access. Just create a new form that binds a result set from a query that returns the same data.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I will try to find a better board for it. This is just a single table db to test. In the real db, the record set will pull data about accounts, post it to a form where users can add/delete/change records. I don't want the changes the user makes to be saved anywhere. When the form is closed, the Recordset is read and results written to a file.
I can use temporary tables but I have had a lot of problems with Access crashing with multiple users in that instance.
Thx
Mark Jackson
|
|
|
|
|
WHAT IS DATAGRID? EXPLAIN WITH SOME EXAMPLE PROGRAM
sdgsdfsdfsdfsdfsdfsdfsdfsdfsdfsdf
|
|
|
|
|
First of all, STOP YELLING! You just gave the impression that you burst into a room, screamed a bunch of demands (with examples), and everyone in the room just stared at you in total silence.
A datagrid lets you view in table form, the data in a bound data source. DataGrid[^] class.
For examples, all you have to do is Google for "windows forms datagrid vb.net" and you'll come up with thousands upon thousands of hits.
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 11:35 Friday 5th May, 2006
|
|
|
|
|
 Can some please show me how to transfer informatiom from a collection of text boxes to a linked list node!
-- modified at 8:47 Friday 5th May, 2006
|
|
|
|
|
Your question is really vague.
But, you'd have to get the value of each TextBox's Text property, do some validation and conversion of the data if needed, then assign those values to values in your linked list node, whatever that is.
Basically, we need a bunch more information to be able to tell you anything more.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hi all,
i want to know what is the use of these button property
1.accessible description
2. accessible name
3. accessible role
vipin paliwal
|
|
|
|
|
|
Hello,
I want to make a flashing minimized form. I am doing an IP messenger and I wish i can make like msn. When my friend sends me a message while my messenger is minimized .. the minimized form will begin flasing orange. How can i do that!!
Someone help me please
Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.
|
|
|
|
|
You can use FlashWindow. But I don't know whether you can use it with VB
<italic>Work hard, Work effectively.
|
|
|
|
|
You can find the docs on FlashWindow here[^].
Create a Timer that fires every 1000 milliseconds or so. Start the timer only when the form is minimized (Resize event). In the Timer Tick event, check a flag to see if there is a reason to flash the window. If so, call FlashWindow like this:
Declare Auto Function FlashWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal bInvert As Boolean) As Boolean
.
.
.
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Timer1.Interval = 1000
Timer1.Start()
Else
Timer1.Stop()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static prevState As Boolean
' GetUsersAttention can be a Boolean flag somewhere or
' a method that returns a Boolean value...
If GetUsersAttention Then
prevState = FlashWindow( Me.Handle, Not prevState )
End If
End Sub
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Thank you very much!!! I love you 
Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.
|
|
|
|
|
in vb.6 we have Left(string, integer) and right(string, integer) functions
but vb.net don't have what can i do?
|
|
|
|
|
You have to use
Microsoft.VisualBasic.Left(string, integer)<br />
Microsoft.VisualBasic.Right(string, integer)
This is because
Left means WidowForm.Left
Right means WidowForm.Right
Regards,
Chatura Dilan
|
|
|
|
|
Left can be achieved with myString.Substring(0,len)
Right you can do with myString.Substring(myString.Length - len,len)
Current blacklist
svmilky - Extremely rude | FeRtoll - Rude personal emails | ironstrike1 - Rude & Obnoxious behaviour
|
|
|
|
|
strings.Left(variable,len)
strings.right(...)
Rizwan Bashir
|
|
|
|
|
Hi..below is my code. when i run the code, i got error
" run-time error '3075': syntax error(missing operator) in query expression 'Detail.Room)=Console Room'.
and when i debug, it highlighted at Set rs = DBMain.OpenRecordset(sql1)
i'm using list view component, and will get the data after user choose the room name from combo box.
Hope fully anyone could help me here.... i need it urgently.. Thank you very much..........
Sub Form_Load()
lstVwDetail.ListItems.Clear
Set DBMain = DBEngine.OpenDatabase(App.Path & "\dbDetail.mdb")
sql1 = "SELECT * FROM Detail WHERE (Detail.Room)=" & frmLayout.cbLayout.Text & ""
Set rs = DBMain.OpenRecordset(sql1)
If rs.RecordCount < 1 Then
msg= MsgBox("No Record Found ", vbYesNo, "Not Found")
If msg= vbYes Then
Form1.Show
Else
Exit Sub
End If
Else
rs.MoveFirst
With lstVwDetail.ColumnHeaders
.Clear
.Add , , "Room", 1000
.Add , , "Hostname", 1000
.Add , , "Environment ", 6000
End With
Set ListItemAdd = lstVwDetail.ListItems.Add(, , lstVwDetail.ListItems.Count + 1)
ListItemAdd.SubItems(0) = rs(0)
ListItemAdd.SubItems(1) = rs!Room
ListItemAdd.SubItems(2) = rs!HostName
ListItemAdd.SubItems(3) = rs!Environment
End If
End Sub
|
|
|
|
|
I think your problem is in your SQL statement for returning the recordset.
Try this:
sql1 = "SELECT * FROM DEtail WHERE (Detail.Room)= '" & frmLayout.cboLayout.Text & "';"
When Text parameters must be enclosed in single quotes.
Quecumber256
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
