Visual Basic

26-Aug-04 8:18

I think your asking how to add a checkbox to a datagrid column, if that is the case then try here,

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemdatadatacolumnclassdatatypetopic.asp

Dim colBoolean As DataColumn = New DataColumn("BooleanCol")
colBoolean.DataType = System.Type.GetType("System.Boolean")
myTable.Columns.Add(colBoolean)

Problem With Script

Anonymous25-Aug-04 22:36

25-Aug-04 22:36

Hi I have the following script that will let me change DNS/WINS settings on remote machine. It will also report the current DNS/WINS settings. However It currently just displays the current DNS settings anyone know what why its not showning WINS settings?

' IMPORTANT !!!! Change these constants !!!!
Const STR_SERVERS = "TEST1 TEST2" ' Enter your servers here, separated by a space
Const STR_NEWDNS1 = "192.168.17.5"
Const STR_NEWDNS2 = "192.168.17.59"
Const STR_NEWWINS1= "192.168.13.20"
Const STR_NEWWINS2= "192.168.13.2"

' ///////////////////////////////////////////////////////////////////////////////////////////////
Do
cKeuze = MakeChoise( "Choose: Report or Change (R/C)?" )
Loop until cKeuze = "C" Or cKeuze = "R"
WScript.Echo
If( cKeuze = "C" ) Then
Change( STR_SERVERS )
Else
Report( STR_SERVERS )
End If
' ///////////////////////////////////////////////////////////////////////////////////////////////

' ///////////////////////////////////////////////////////////////////////////////////////////////
Sub Change( strParamServers )
arrServers = Split( strParamServers, " " )
For i = 0 To UBound( arrServers )
ShowDnsWins arrServers( i )
Do
cKeuze = MakeChoise( " Change DNS/WINS and reboot (y/n)?" )
Loop until cKeuze = "Y" Or cKeuze = "N"
If( cKeuze = "Y" ) Then
SetDnsWins arrServers( i )
RebootServer( arrServers( i ) )
End If

WScript.StdOut.Write( vbCrlf )
Next
End Sub
' ///////////////////////////////////////////////////////////////////////////////////////////////
Sub Report( strParamServers )
arrServers = Split( strParamServers, " " )
For i = 0 To UBound( arrServers )
ShowDnsWins arrServers( i )
Next
End Sub
' ///////////////////////////////////////////////////////////////////////////////////////////////
Sub ShowDnsWins( strServer )
strWinMgmt = "winmgmts:{impersonationLevel=impersonate}!//"& strServer &""
Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
WScript.StdOut.Write( strServer & ": " & vbCrlf )
For Each objNIC In objNICs
If objNIC.IPEnabled Then
WScript.StdOut.Write( " " & objNIC.Description & ": " & vbCrlf & " " )
n = 1
For Each strDns In objNIC.DNSServerSearchOrder
WScript.StdOut.Write "DNS" & n & ":" & strDns & " "
n = n + 1
Next
WScript.StdOut.Write( vbCrlf )
End If
Next
WScript.StdOut.Write( vbCrlf )
End Sub
' ///////////////////////////////////////////////////////////////////////////////////////////////
Sub SetDnsWins( strServer )
strWinMgmt = "winmgmts:{impersonationLevel=impersonate}!//"& strServer &""
Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
WScript.StdOut.Write( " Set DNS for NIC: " )
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetWINSServer STR_NEWWINS1,STR_NEWWINS2
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
WScript.StdOut.Write objNIC.Description & " "
End If
Next
WScript.StdOut.Write( vbCrlf )
End Sub
' ///////////////////////////////////////////////////////////////////////////////////////////////
Sub RebootServer( strServer )
Set OpSysSet = GetObject("winmgmts:{(RemoteShutdown)}//" & strServer & "/root/cimv2").ExecQuery("Select *
from Win32_OperatingSystem where Primary=True")
WScript.StdOut.Write( " Reboot: " )
For Each OpSys In OpSysSet
WScript.StdOut.Write OpSys.Name
OpSys.Reboot()
Next
WScript.StdOut.Write( vbCrlf )
End Sub
' ///////////////////////////////////////////////////////////////////////////////////////////////
Function MakeChoise( strMesg )
WScript.StdOut.Write(strMesg)
WScript.StdIn.Read(0)
strChoise = WScript.StdIn.ReadLine()
MakeChoise = UCase( Left( strChoise, 1 ) )
End Function

Re: Problem With Script

Dave Kreskowiak26-Aug-04 2:53

Dave Kreskowiak

26-Aug-04 2:53

You're probably going to kick yourself for this one -> You don't have any code to show the addresses!

Sub ShowDnsWins( strServer )
    strWinMgmt = "winmgmts:{impersonationLevel=impersonate}!//"& strServer &""
    Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
    WScript.StdOut.Write( strServer & ": " & vbCrlf )
    For Each objNIC In objNICs
        If objNIC.IPEnabled Then
            WScript.StdOut.Write( " " & objNIC.Description & ": " & vbCrlf & " " )
            n = 1
            For Each strDns In objNIC.DNSServerSearchOrder 
                WScript.StdOut.Write "DNS" & n & ":" & strDns & " "
                n = n + 1
            Next
            WScript.StdOut.Write " WINS Primary Server  : " & objNIC.WINSPrimaryServer & vbCrLf
            WScript.StdOut.Write " WINS Secondary Server: " & objNIC.WINSSecondaryServer
            WScript.StdOut.Write( vbCrlf )
        End If
    Next
    WScript.StdOut.Write( vbCrlf )
End Sub

Now, There is a problem in Windows 2000 where Win32_NetworkAdapterConfiguration might not return valid WINS Server addresses if the user logged in is not a member of the Administrators group. This problem was fixed in Windows 2000 Service Pack 4.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Problem With Script

Anonymous27-Aug-04 0:08

27-Aug-04 0:08

god dam it!! rolleyes:

need help! :(

Member 90460525-Aug-04 15:04

Member 904605

25-Aug-04 15:04

i just want to ask,does ms access have a pivot table wizard like in ms excel?coz im having problem with excel for there are only limited datas to store with.i just want to try if i can make it in database and run it in macro..is it possible?tnx..

Re: need help! :(

Anonymous25-Aug-04 15:26

How do I access URL from within the code in VB(not .NET)

25-Aug-04 15:26

Teach your users to analyze Access data with pivot tables and charts

http://techrepublic.com.com/5100-6270-1042409.html

JM9325-Aug-04 13:46

JM93

25-Aug-04 13:46

How do I access an URL from within the VB or VC++ code.
my requirement is, I need to create a DLL which accesses an URL, and parses the XML returned(the url I'm accessing returns XML, not HTML).How can I do that in VC++/VB?
Also, are there any classes in VC++/VB for parsing XML returned.
Any sample code would be appreciated.

Everything needs to be non .NET.

jmc

Re: How do I access URL from within the code in VB(not .NET)

Anonymous25-Aug-04 16:02

25-Aug-04 16:02

Here is the source code for a rss news reader that accesses an url and parses xml in vb6.

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=24994&lngWId=1

or you may want to use their search, they have ton's of older vb6 stuff.

data between grids???

mittalpa25-Aug-04 12:35

mittalpa

25-Aug-04 12:35

Hi I have a dataset with two columns as follows:

FullName IsGYMMember
Joe Y
Arhtur N
Sam N
AJ Y
Jerry N

I have two Windows grids on the form. One which shows the GYM members and the other one who are not. There are Add, Remove members also to change the grid members between them.

Using just one dataset and two grids, how can I do this?

Please advice. Thanks in advance.

PJ

Follow your goals, Means will follow you ---Gandhi---

Jim Matthews26-Aug-04 5:04

Jim Matthews

26-Aug-04 5:04

hi pj,

this is actually pretty simple to do. from your single dataset create two dataviews.

dim dvMembers as new Dataview(myDataset.Tables("myTable"))

Dim dvNonMembers as New Dataview(myDataset.Tables("myTable"))

'set the rowfilter for each view

dvMembers.RowFilter = "IsGYMMember='Y'"
dvNonMembers.RowFilter = "IsGYMMember='N'"

membersDataGrid.DataSource = dvMembers
nonMembersDataGrid.DataSource = dvNonMembers

next, for each of your grids you'll want to create a tablestyle and set the MappingName property equal to your datatable name (not dataset, but datatable)

then add a few GridColumnStyles to the ColumnStyles collection of your TableStyle property.

create one DataGridTextBoxColumn and one DataGridCheckBoxColumn (i forget the actual name of these offhand, but you should be able to figure it out as you're going through, if not just let me know)

set the mapping name for your textboxcolumnstyle to "FullName" and the mapping name for your CheckBoxColumnStyle to "IsGYMMember".

a suggestion i'd make here is to change the IsGYMMember datatype to boolean. this will make for a more intuitive exchange of the data between the underlying datasource and display. But if you don't want to do that, at this point set the TrueValue of the CheckBoxGridColumn to 'Y' and the FalseValue of the CheckBoxGridColumn to 'N'. If you switch the datatype of the underlying column in the datasource this step is not necessary.

Remember that you should do this for each grid so that the data from each of the views is displayed properly.

next, when some one needs to be added to the members list you can have a button to change the IsGYMMember value in the corresponding datatable row to 'Y'. this is the approach i would take if you're working with two grids. you could also have a single grid and just allow the user to check and uncheck the checkbox columns to manipulate the datasource. i don't like the idea of having the user click the checkbox and the entire datarow moving to the other grid. but that's just my opinion.

hope this helps,

-jim

mittalpa27-Aug-04 8:46

mittalpa

27-Aug-04 8:46

Thanks a lot Jim.

Well ..about the screen design, can't do much about it as it is the requirement. Gotta do it.

one issue: After filtering and binding the dataviews to their respective datagrids, I am getting the last filtered view of records in both grids. Not sure why this happening.

To make sure, I commented the 2nd filter and 2nd databinding. Then the 1st databinding and filtering works OK.

Hope I am clear.. Any ideas??

Follow your goals, Means will follow you ---Gandhi---

Jim Matthews27-Aug-04 8:49

Jim Matthews

27-Aug-04 8:49

there may be a problem with the binding context... can you post some of your code?

-jim

mittalpa27-Aug-04 9:11

mittalpa

27-Aug-04 9:11

ooopss... i didn't follow ur code as is and used Defaultview instead creating new views for both grids.

now its working fine. thanks a bunch.

a happy customer Smile | :)

Follow your goals, Means will follow you ---Gandhi---

Parse sql query without executing

Jim Matthews27-Aug-04 9:14

Jim Matthews

27-Aug-04 9:14

good. i'm glad it helped. Smile | :)

take it easy.

-jim

tocheng00525-Aug-04 11:39

tocheng005

25-Aug-04 11:39

Hi All,
Is there any way that I can parse and validate a SQL query (like the Parse Query function in Query Analyzer of SQL Server) before actually executing it in .NET code? Thanks a lot!

Tony Cheng

Anonymous25-Aug-04 17:19

25-Aug-04 17:19

I think your looking for this,

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tsqlref/ts_set-set_47eh.asp

Call New SqlCommand("Set parseonly on", connection).ExecuteNonQuery()

Hope that helps

tocheng00525-Aug-04 19:44

tocheng005

25-Aug-04 19:44

Yep. It does work. But when I tried to run:
SET PARSEONLY ON
--some query here
SET PARSEONLY OFF
it does not like it and execute the query in the middle. But thanks a lot for your reply. It's good enough.

Tony

Anonymous26-Aug-04 6:36

26-Aug-04 6:36

Just a note Tony,

I don't think you have to use the OFF because
the SET would only last the duration of the query, the SET would release as soon as you come back to the next line of code.

I'm glad it worked for you.

Propertygrid and dropdownlist from Database

tocheng00526-Aug-04 11:52

tocheng005

26-Aug-04 11:52

You are right. If you use a different connection each time(e.g. new a connection for each query), you need not set PARSEONLY off. But if you use the same connection for different queries, you need to set it off before you DO want to execute any query. Thanks again for your message.

Tony

David M J25-Aug-04 11:32

David M J

25-Aug-04 11:32

Hi,
I am trying to write an app where the users would have to define for
instance company departments where employer would work. These departments are
store in my database. In the user interface, where the user has to enter the
employers, I am trying to use the propertygrid. For the department I want to
use a dropdownlist filled with the options from the database. I have got a
typeconverter that converts a sting into a dropdownlist, but this is only
hardcoded. I am not able to pass a string created from my database into the
typeconverte. The converter looks like this
Public Class DropDownConv
Inherits StringConverter
'Override the GetStandardValuesSupported method to indicate that this
object supports a standard set of values.

'Override the GetStandardValues method and return a
StandardValuesCollection filled with our custom list.

Dim _States As String() = New String() {"Alabama", "Alaska", _
"Arizona", "Arkansas", _
"California", "Colorado", "Connecticut", "Delaware", _
"Florida", "Georgia", _
"Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas", _
"Kentucky", "Louisiana", "Maine", "Maryland",
"Massachusetts", _
"Michigan", "Minnesota", "Mississippi", "Missouri",
"Montana", _
"Nebraska", "Nevada", "New Hampshire", _
"New Jersey", "New Mexico", _
"New York", "North Carolina", "North Dakota", _
"Ohio", "Oklahoma", _
"Oregon", "Pennsylvania", "Rhode Island", "South Carolina", _
"South Dakota", "Tennessee", "Texas", "Utah", _
"Vermont", "Virginia", _
"Washington", "West Virginia", "Wisconsin", "Wyoming"}

Public Overloads Overrides Function GetStandardValuesSupported( _
ByVal context As ITypeDescriptorContext) As Boolean
Return True
End Function

Public Overloads Overrides Function _
GetStandardValues(ByVal context As _
System.ComponentModel.ITypeDescriptorContext) _
As System.ComponentModel.TypeConverter.StandardValuesCollection

Return New StandardValuesCollection(_States)
End Function
'Finally override the GetStandardValuesExclusive method. When set to
false, it changes the dropdown list to Combo box (editable). If set to true,
then its a simple list box (Read only).

Public Overloads Overrides Function _
GetStandardValuesExclusive(ByVal context _
As System.ComponentModel.ITypeDescriptorContext) _
As Boolean

Return True
End Function
End Class

Can you give me some ideas on how to continue?

Thanks
David J

.MAT files from Visual Basic (Again)

murphypa25-Aug-04 10:34

murphypa

25-Aug-04 10:34

I need to write a .mat file (MATLAB file) from visual basic. Are there any scripts out there that can do this? I am not a professional programmer, so any help here would be greatly appreciated. Last time i ask this question, i got a reference to a website explaining the format of a .mat file, but i am still alittle lost.

thanks

Re: .MAT files from Visual Basic (Again)

Anonymous25-Aug-04 12:00