|
I am going to design a application for three offices,
Difference office has its own domain name,
For example, "abc-asia", "def-asia", "xyz-asia".
I means my login name would be "abc-asia\cylix2000".
I would like to get these three domain names.
Environment.UserDomainName return me cylix2000,
just the same with Environment.Username.
My office use Win2K/WinXP.
Thank you for help!
|
|
|
|
|
Why didn't you say this in the first place?
You can find some code to enumerate the domains from this[^] page, here on CP. About half way down the page, under the heading System.Net.IPAddress, there is code to enumerate the domains, but you'll have to pick it out of some extra code to enumerate all the machines in those domains too.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi,
i am just trying to do the same....but it requires object name.
So tell me what "reference" has to include to the project
Paritosh
|
|
|
|
|
Hallo
i have a VB6 application, from which i'd need to launch a VB .NET form application (not command-line) passing it a value. Something similar to the POST/GET arrays in HTTP.
Any way to achieve this?
Thanks and happy new year to everybody!
-- modified at 19:40 Tuesday 3rd January, 2006
|
|
|
|
|
Make your VB.NET app accept variables on the command line, then use ShellExecute, or whatever passes for that in VB6, to run it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
|
i want to add a prog to the startup folder so it'l startup iwhen i turn my computer on.is there a line or 2 of code i could use to accomplish this.thnx
-- modified at 19:11 Tuesday 3rd January, 2006
|
|
|
|
|
Do you want it to start when Windows starts? Then you have to write your app as a service.
If you want to start this app when the user logs on, then you need to launch it from either the Startup folder found at either:
C:\Documents and Settings\All Users\Start Menu\Programs\Startup
or
C:\Documents and Settings\[userid]\Start Menu\Programs\Startup
or you can launch it from the registry key found at
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
and create a REG_SZ value with the full path to the .EXE and its command line parameters.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
is there a site or something that would how me how to do this(just started programming and i got some source for this alarm clock type thing and i wanna make it startup whenever i turn my computer on).so i dont know how to create a registry value and whatnot 
|
|
|
|
|
If you've never been in RegEdit, I suggest Googling for "RegEdit Tutorial" before you start messing with it in code.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
well i lost the whole project "all of the solution"
but i have the debug file (MyApp.exe)
can i get it back?
and what if i've the release files not the debug one?
Militiaware
Faris Madi
|
|
|
|
|
You can get most of the source back by using .NET Reflector[^] on the EXE file. You'll have to piece the project back together from the source code it reveals.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
You can try Reflector[^]. It converts .net exe and dll back to C# or VB code.
And next time, do yourself a favor by making lots of backups!
"..Commit yourself to quality from day one..it's better to do nothing at all than to do something badly.."
-- Mark McCormick
|| Fold With Us! || Pensieve || VG.Net ||
|
|
|
|
|
Is there any opposite keyword for the "extern (C#)" keyword in VB.NET?
Militiaware
Faris Madi
|
|
|
|
|
In VB.NET, Declare is the same as extern in C#.
There is no opposite to delaring something "extern".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
what's wrong with my code????
i use the user32 to set a bmp as desktop wallpaper,
but at runtime nothing happen...no exceptions, no
error and no wallpaper is set and the current
wallpaper remains.
as the MSDN i create this class:
***************************************
Imports System.Runtime.InteropServices
Public Class user32
Public Shared SPIF_SENDCHANGE As Integer = 2
Public Shared SPI_SETDESKWALLPAPRER As Integer = 20
<dllimport("user32.dll", charset:="CharSet.Auto)"> _
Public Shared Sub SystemParametersInfo _
(ByVal uAction As Integer, ByVal uParam As Integer, _
ByVal ipvParm As String, ByVal fuWinIni As Integer)
End Sub
End Class
***************************************
and i call it from another class like this:
***************************************
Dim SPIF_SENDCHANGE As Integer = 2
Dim SPI_SETDESKWALLPAPRER As Integer = 20
SystemParametersInfo(SPI_SETDESKWALLPAPRER, 1, BMP_path, SPIF_SENDCHANGE)
****************************************
so can anybody help me did i miss something to use?
should i pass all of the DLLImporter Paramerter?
Militiaware
Faris Madi
|
|
|
|
|
Read[^] for a better explanation of what you're doing, complete with a working sample.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am new to VB.Net and need some help creating a simple project.
I am tryint to user select and insert queries to make it work but somehow nothing happens when i click on the button.
Here is the code I am using to do so.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ("C:\db1.mdb")
End Sub
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
Dim searchcommand1 As String = "SELECT * FROM Change Control WHERE (Log number = 'txtlognum')"
Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ("C:\dblog.mdb")
Dim InsertCommand1 As String = " INSERT INTO Change Control VALUES ('txtlognum','txtdtrqst','txttrgdt','txttime','txtrqstby','txtprojname','txtdscp','txtusers','txtdpt')"
MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")
----------------------------------------------------------------
On the left column under Server Explorere I can see all the a tables in my database which means I can connect to it.
Can somebody please guide me. I don't know what am I doing wrong.
Thanks.
|
|
|
|
|
You're not even executing these SQL commands! You put together a SQL statement in a string, define a connection string, but then you don't use them to do any work! Of course nothing is going to happen!
Also, DON'T concatenate strings together like this to build SQL statements. It's just bad practice and leads to difficult to find errors, and opens your code up for SQL Injection attacks.
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
Dim searchcommand1 As String = "SELECT * FROM [Change Control] WHERE ([Log number] = " & txtLognum.Text
' You're missing the code to actually execute this statement against the database.
' You're also missing code to do something with the returned data, like display it in
' a datagrid!
End Sub
Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dblog.mdb"
Dim InsertCommand1 As String = "INSERT INTO [Change Control] VALUES " & _
"'" & txtlognum.Text & "','" & txttrgdt.Text & "','" & txttime.Text &_
"','" & txtrqstby.Text & "','" & txtprojname.Text & "','" & txtdscp.Text & _
"','" & txtusers.Text & "','" & txtdpt.Text & "')"
' You're missing the code to actually execute this statement against the database.
MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")
End Sub
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
You are so AWSOME!!
Thanks for your help. I will try this but I am sure I will have more questions as I start getting the hang of it. Some how MSDN did not help.
Shahid.;)
|
|
|
|
|
That will work, I would write it diffrently:
Public Function SQLSafe(str as String)
Return str.replace("'", "''")
End Function
Private Sub btnsave_Click_1(......) Handles btnsave.Click
Dim Cmd as String = "INSERT INTO [Change Control] VALUES ('{0}','{1}','{2}','{3}','{4}',{5}','{6}','{7}','{8}')"
Dim Exec = String.Format(Cmd, SQLSafe(txtlognum.Text), SQLSafe(txttrgdt.Text), SQLSafe(txttime.Text), _
SQLSafe(txtrqstby.Text), SQLSafe(txtprojname.Text), SQLSafe(txtdscp.Text), SQLSafe(txtusers.Text), SQLSafe(txtdpt.Text))
End Sub
Matthew Hazlett
|
|
|
|
|
I'd modify it even further by scraping it and using parameterized stored procedures. I can't stand building SQL statements with strings and try to avoid it using all possible methods.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks guys.
Actually that dotnetspider.com was helpfull but I now I am really stuck. I downloaded a sample application from there and helped me build most of my code. I created a bunch of functions within one big class. Now when I try to use the Insert query I get error msgs (Value of type 'String' cannot be converted to 'WindowsApplication1.Change'). Offcourse I am doing a lot of things wrong but I guess I am dumb enough to not know where the problem is.
Here is the code for the SAVE button.
Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click<br />
<br />
<br />
Dim ad As New Change<br />
<br />
txtlognum.Text = ad.LogNumber<br />
txtdtrqst.Text = ad.DateRequested<br />
txttrgdt.Text = ad.TargetDate<br />
<br />
ad.LogNumber = Change.Createdata("Change", "LogNumber")<br />
ad.DateRequested = Change.Createdata(txtdtrqst.Text)<br />
ad.TargetDate = Change.Createdata(txttrgdt.Text)<br />
ad.Time = Change.Createdata(txttime.Text)<br />
ad.RequestedBy = Change.Createdata(txtrqstby.Text)<br />
ad.ProjectName = Change.Createdata(txtprojname.Text)<br />
ad.ChangeDescription = Change.Createdata(txtdscp.Text)<br />
ad.Users = Change.Createdata(txtusers.Text)<br />
ad.Department = Change.Createdata(txtdpt.Text)<br />
<br />
<br />
MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")---------------------------------------------------------------------
Here is my Class
Public Class Change<br />
<br />
Public CategoryHardware As CheckBox<br />
Public categorySoftware As CheckBox<br />
Public CategoryNetwork As CheckBox<br />
Public CategoryDatabase As CheckBox<br />
Public CategoryTcom As CheckBox<br />
Public CagegoryFacilities As CheckBox<br />
Public RiskHigh As CheckBox<br />
Public RiskMedium As CheckBox<br />
Public RisLow As CheckBox<br />
Public NewProgram As CheckBox<br />
Public Maintnace As CheckBox<br />
Public Problem As CheckBox<br />
Public Enhancement As CheckBox<br />
Public Other As CheckBox<br />
<br />
Public LogNumber As Int16<br />
Public DateRequested As DateTime = Nothing<br />
Public TargetDate As DateTime = Nothing<br />
Public Time As String<br />
Public RequestedBy As String<br />
Public ProjectName As String<br />
Public ChangeDescription As String<br />
Public Users As String<br />
Public Department As String<br />
<br />
Public TypeEr As String<br />
Public TypeException As String<br />
Public TypeNormal As String<br />
<br />
Public Description As String<br />
Public Completed As CheckBox<br />
Public Initials As String<br />
Public Duration As String<br />
<br />
Public Shared Function Getdata(ByVal LogNumber As System.Int16) As Change<br />
Dim searchcommand1 As String = "SELECT * FROM [Change Control] WHERE ([LogNumber] = " & LogNumber<br />
<br />
'Dim searchcommand2 As String = "SELECT * FROM Change Type"<br />
'Dim searchcommand3 As String = "SELECT * FROM Change Category"<br />
<br />
End Function<br />
<br />
Public Shared Function Createdata(ByVal addobj As Change)<br />
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
& "Data Source=" & ("C:\db1.mdb")<br />
<br />
Dim InsertCommand1 As String = "INSERT INTO Change Control (LogNumber, DateRequested, TargetDate, Time, RequestedBy, ProjectName, ChangeDescription, Users, Department) VALUES (" & addobj.LogNumber & ", " & addobj.DateRequested & ", " & addobj.TargetDate & ", " & addobj.Time & ", " & addobj.RequestedBy & ", " & addobj.ProjectName & ", " & addobj.ChangeDescription & ", " & addobj.Users & ", " & addobj.Department & ")"<br />
<br />
End Class
Any help would be appreciated.
-- modified at 11:32 Wednesday 4th January, 2006
|
|
|
|
|
I would HIGHLY suggest dropping this for now and picking up a book on VB.NET for Beginners. You've got a TON of misconceptions floating around this code and almost as much code MISSING.
You still don't have any code in here to actually read/write anything to the database! I already posted a link to something that will show you the basics of database access. READ IT[^]!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I guess you are right. I will dig more on that website to get help.
Thanks.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
