|
Right now I am trying to pull passwords from a SQL db:
SQL code
--------
SELECT 'EXEC sp_addlogin @loginame = ''' + loginname + ''''
,', @defdb = ''' + dbname + ''''
,', @deflanguage = ''' + language + ''''
,', @encryptopt = ''skip_encryption'''
,', @passwd ='
, cast(password AS varbinary(256))
,', @sid ='
, sid
FROM syslogins
WHERE name NOT IN ('sa')
AND isntname = 0
EXAMPLE OUTPUT:
---------------------
EXEC sp_addlogin @loginame = 'LinkedServer' , @defdb = 'systemdb' , @deflanguage = 'us_english' , @encryptopt = 'skip_encryption' , @passwd = 0x01000C74A920A815D49EFEABA3AE9DF66033B7FC149D51AD2442D7D392EADFB228AAF057951E8A247C8A55013B66 , @sid = 0x1AB151EF4AD9D246B445B9BD0264DDB2
EXEC sp_addlogin @loginame = 'adam' , @defdb = 'systemdb' , @deflanguage = 'us_english' , @encryptopt = 'skip_encryption' , @passwd = 0x010026748C70D74D580075328745A31846A8B003831B65466931B360ED0F0EF775175ACAABEA78874A9B694D141D , @sid = 0x6203292274E01748BA9AB323FC8797F6
------------------------
VB code-
-------
getserverusers_command_jobs.CommandText = "SELECT 'EXEC sp_addlogin @loginame = ''' + loginname + '''' ,', @defdb = ''' + dbname + '''' ,', @deflanguage = ''' + language + '''' ,', @encryptopt = ''skip_encryption''' ,', @passwd =' , cast(password AS varbinary(256)) ,', @sid =' , sid FROM syslogins WHERE name NOT IN ('sa') AND isntname = 0"
Set getserverusers_recordset_jobs = getserverusers_command_jobs.Execute
Do Until getserverusers_recordset_jobs.EOF
'output_file.WriteLine( getserverusers_recordset_jobs.Fields(7).Value)
wscript.echo(getserverusers_recordset_jobs.Fields(7).Value)
getserverusers_recordset_jobs.MoveNext
Loop
-----
Right now whenever I use an output file write with the PASSWD or SID field I get a type mismatch type, but on a wscript.echo, don't get a type mismatch. Anyway around this? Or any vbfunctions that can help me on this one?
|
|
|
|
|
Not sure how this happened, but I have 6 combo boxes on my form, and after populating them with data, They all seem linked together. If I change a value in one, the others will all reflect the same selection. I am sure that this is happening due to the databinding in the first part, but I am not sure how else to accomplish my needs.
I am including the troublesome code below: (yes, it is a raw product traceability program for farmers)
'get full list of field names for cbfieldEDITs<br />
commandtext = "Select field_number,field_names From field_info"<br />
sConnString = TheconnectionString<br />
Try<br />
Dim conn As New OleDb.OleDbConnection(sConnString)<br />
Dim cmd As New OleDb.OleDbCommand(commandtext, conn)<br />
conn.Open()<br />
cmd.CommandType = CommandType.Text<br />
Dim dafields As New OleDbDataAdapter(commandtext, conn)<br />
dsfields.Clear()<br />
dafields.Fill(dsfields, "field_info")<br />
cbfieldEdit1.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit1.DisplayMember = "field_names"<br />
cbfieldEdit1.ValueMember = "field_number"<br />
<br />
cbfieldEdit2.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit2.DisplayMember = "field_names"<br />
cbfieldEdit2.ValueMember = "field_number"<br />
<br />
cbfieldEdit3.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit3.DisplayMember = "field_names"<br />
cbfieldEdit3.ValueMember = "field_number"<br />
<br />
cbfieldEdit4.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit4.DisplayMember = "field_names"<br />
cbfieldEdit4.ValueMember = "field_number"<br />
<br />
cbfieldEdit5.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit5.DisplayMember = "field_names"<br />
cbfieldEdit5.ValueMember = "field_number"<br />
<br />
cbfieldEdit6.DataSource = dsfields.Tables("field_info")<br />
cbfieldEdit6.DisplayMember = "field_names"<br />
cbfieldEdit6.ValueMember = "field_number"<br />
<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
End Try<br />
<br />
'******GET FIELDS PLANTED INFO*********<br />
<br />
'I expected this part to just add the actual value to the end and select it.<br />
<br />
commandtext = "Select * From fields_planted where lot_number = " & TheLotNumber<br />
sConnString = TheconnectionString<br />
'MessageBox.Show(commandtext)<br />
Try<br />
Dim conn As New OleDb.OleDbConnection(sConnString)<br />
Dim cmd As New OleDb.OleDbCommand(commandtext, conn)<br />
conn.Open()<br />
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.Default)<br />
' dr.Read()<br />
cmd.CommandType = CommandType.Text<br />
<br />
Dim i As Integer = 1<br />
<br />
Do While dr.Read<br />
<br />
If i = 1 Then<br />
cbfieldEdit1.Items.Add(dr.GetValue(2))<br />
cbfieldEdit1.SelectedIndex = cbfieldEdit1.Items.Count - 1<br />
txtfield_percent1.Text = (dr.GetValue(3))<br />
End If<br />
If i = 2 Then<br />
cbfieldEdit2.Items.Add(dr.GetValue(2))<br />
cbfieldEdit2.SelectedIndex = cbfieldEdit2.Items.Count - 1<br />
txtfield_percent2.Text = (dr.GetValue(3))<br />
End If<br />
If i = 3 Then<br />
cbfieldEdit3.Items.Add(dr.GetValue(2))<br />
cbfieldEdit3.SelectedIndex = cbfieldEdit3.Items.Count - 1<br />
txtfield_percent3.Text = (dr.GetValue(3))<br />
End If<br />
If i = 4 Then<br />
cbfieldEdit4.Items.Add(dr.GetValue(2))<br />
cbfieldEdit4.SelectedIndex = cbfieldEdit4.Items.Count - 1<br />
txtfield_percent4.Text = (dr.GetValue(3))<br />
End If<br />
If i = 5 Then<br />
cbfieldEdit5.Items.Add(dr.GetValue(2))<br />
cbfieldEdit5.SelectedIndex = cbfieldEdit5.Items.Count - 1<br />
txtfield_percent5.Text = (dr.GetValue(3))<br />
End If<br />
If i = 6 Then<br />
cbfieldEdit6.Items.Add(dr.GetValue(2))<br />
cbfieldEdit6.SelectedIndex = cbfieldEdit6.Items.Count - 1<br />
txtfield_percent6.Text = (dr.GetValue(3))<br />
End If<br />
i = i + 1<br />
Loop<br />
<br />
conn.Close()<br />
Catch ex As Exception<br />
' MessageBox.Show(ex.Message & "ERROR DURING GET FIELDS PLANTED INFO")<br />
End Try
Now, I don't claim to be an expert of any kind, but I did expect the above code to work. If I am doing something bass ackwards (probable), please let me know.
AND Thanks in advance for any help on this.
|
|
|
|
|
The reason they appear linked is because they in fact are. You are databinding to a single DataSet. If you manipulate the DataSet in either combo box, you are manipulating data contained in that single DataSet. The changes will then appear in all other combo boxes because they are binded to the same DataSet.
I hope that makes sense?
|
|
|
|
|
Btw, I'm not sure why you would want to have 6 combo boxes viewing and manipulating the same table in a database. This seems like a bad idea to me. But if you really want to have each combo box viewing the same table and have different data. You will most likely need 6 DataSets.
Warning, if you use 6 DataSets your data will conflict if you plan on updating your DataSet to the DataSource.
|
|
|
|
|
Had a feeling that was the problem.
For each "Seed Lot" in the seed_lot_info table, there is to be up to 6 rows of data in the "fields_planted" table. The combo boxes are to hold individual row data (field_name) from the "fields_planted" table Where the lot number = blah
So now I am attempting to create one dataset, and then copying it once for each combobox. Thanks
Not updating the datasource from the datasets... I just need the value that they selected in each.
|
|
|
|
|
plz guide me how to connect to a database with unbound controls(through coding precisely)
and also how to use oledbdataadapter to populate my form with data.
Mian Rashed Inam Khattak
|
|
|
|
|
I have this number in Double 0.0000000001 and I want to convert it to String in the same Format
( detail:
Dim a As Double = 0.000000001
Dim s As String
'The code to convert a to s here
'After convert the value of s is "0.000000001" not "1E-9"
).
Please help me ! Thanks in advance !
Hung
|
|
|
|
|
what actuall you want is it you want 0.000000001 or 1E-9
explain clearly
|
|
|
|
|
I want this just to display on the screen.
|
|
|
|
|
how do you convert ?
please give the code...
did you try with s = a.ToString() ?
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
Hi,
How can I create a network share using .net code? I've search every forum and articles that i can find on the internet but still didn't came to any solution that suited for me. I'm creating a simple application that create a folder and share the folder to the network and unshare the previous folder with the same network sharename
|
|
|
|
|
There is nothing in the .NET Base Class Library that will do this. You need to either P/Invoke the appropriate Win32 API functions to setup the Share and appropriate rights or you can do it using WMI and the System.Management namespace.
I don't have any code to share with you because I've never had to do it. You could look at
this[^] WSH scripting, using WMI, that does approximately what you want. You could use this as a template to create your own code in VB.NET.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for the link. I'll try the script...
|
|
|
|
|
Hello. I am portuguese, sorry if my english isn't good.
I have a Datagrid. I want to use the keyDown event to reconize one key. But I have no luck at all. The problem is that the keydown event won't fire at all, unless I click on a row (withs will be selected) and then click on it again. Now if I press any key the event will fire. 
When a row is selected i want that if one key is pressed the data in the row selected go for another form.
waiting for your help... 
Thanks.
|
|
|
|
|
hi,
create custom table styles for that datagrid and then check it out
|
|
|
|
|
It works fine.  Thanks.
|
|
|
|
|
I have several *.config files located in various directories. Some of the *.config files contain lines similar to this:
add key="Raw Data Quality = " value="0"
add key="Raw Data Justification = " value="Component quality is good and was constructed from good data."
add key="Data Completeness = " value="-1"
add key="Data Completeness Justification = " value="This should be written out in the Non-Zero report."
I’m trying to extract all non-zero values, and print (to a new line in a text file) the key of the non-zero and the value of the key on the next line.
Like this:
Data Completeness = -1: This should be written out in the Non-Zero report.
I apologize for asking such a broad question. I’ve spent hours trying to figure out how to write the *.config file and now I can’t seem to find out how to read this format back out to a text file.
Thanks
Brad
|
|
|
|
|
|
Hey ppl, I have ported this code from a vb6 example, but can't seem to get it working... Any ideas
<br />
Private Class TitleBarInfo<br />
<System.Runtime.InteropServices.DllImport("user32")> Shared Function GetTitleBarInfo(ByVal hwnd As IntPtr, ByRef pti As TITLEBARINFO) As Boolean<br />
End Function<br />
<br />
<br />
Private Const STATE_SYSTEM_FOCUSABLE As Integer = &H100000<br />
Private Const STATE_SYSTEM_INVISIBLE As Short = &H8000S<br />
Private Const STATE_SYSTEM_OFFSCREEN As Integer = &H10000<br />
Private Const STATE_SYSTEM_UNAVAILABLE As Short = &H1S<br />
Private Const STATE_SYSTEM_PRESSED As Short = &H8S<br />
Private Const CCHILDREN_TITLEBAR As Short = 5<br />
Public Structure RECT<br />
Public left As Integer<br />
Public top As Integer<br />
Public right As Integer<br />
Public bottom As Integer<br />
End Structure<br />
Public Structure TITLEBARINFO<br />
Public cbSize As Integer<br />
Public rcTitleBar As RECT<br />
<VBFixedArray(CCHILDREN_TITLEBAR)> Public rgstate() As Integer<br />
Public Sub Initialize()<br />
ReDim rgstate(CCHILDREN_TITLEBAR)<br />
End Sub<br />
End Structure<br />
Public Shared Function GetTitleBarInfo(ByVal Handle As IntPtr) As TITLEBARINFO<br />
Dim TitleInfo As TITLEBARINFO<br />
'Initialize structure<br />
TitleInfo.Initialize()<br />
TitleInfo.cbSize = Len(TitleInfo)<br />
<br />
GetTitleBarInfo(Handle, TitleInfo)<br />
return TitleInfo<br />
Return TitleInfo<br />
End Function<br />
End Class<br />
|
|
|
|
|
Private Structure TITLEBARINFO
Dim cbSize As Integer
Dim rcTitleBar As RECT
<VBFixedArray(CCHILDREN_TITLEBAR + 1)> _
Dim rgstate() As Integer
Public Sub Initialize()
ReDim rgstate(CCHILDREN_TITLEBAR + 1)
End Sub
End Structure
and
GetTitleBarInfo(Me.Handle.ToInt32, TitleInfo)
hope this helps
|
|
|
|
|
Sorry AndrewVos,
I sent that last message to fast, I checked it again and I was still getting a error 87, sorry.
add this import:
Imports System.Runtime.InteropServices
and the structure should be more like this:
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Private Structure TITLEBARINFO
Dim cbSize As Long
Dim rcTitleBar As RECT
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=CCHILDREN_TITLEBAR)> _
Dim rgstate() As Long
Public Sub Initialize()
ReDim rgstate(CCHILDREN_TITLEBAR)
End Sub
End Structure
It should return err code 0 now.
hope that helps
|
|
|
|
|
Consider this code....
<br />
Private Class TitleBarInfo<br />
<System.Runtime.InteropServices.DllImport("user32")> Private Shared Function GetTitleBarInfo(ByVal hWnd As IntPtr, ByRef pti As TITLEBARINFO) As Boolean<br />
End Function<br />
<br />
Private Const STATE_SYSTEM_FOCUSABLE As Integer = &H100000<br />
Private Const STATE_SYSTEM_INVISIBLE As Short = &H8000S<br />
Private Const STATE_SYSTEM_OFFSCREEN As Integer = &H10000<br />
Private Const STATE_SYSTEM_UNAVAILABLE As Short = &H1S<br />
Private Const STATE_SYSTEM_PRESSED As Short = &H8S<br />
Private Const CCHILDREN_TITLEBAR As Short = 5<br />
Public Structure RECT<br />
Public left As Integer<br />
Public top As Integer<br />
Public right As Integer<br />
Public bottom As Integer<br />
End Structure<br />
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> Private Structure TITLEBARINFO<br />
Dim cbSize As Integer<br />
Dim rcTitleBar As RECT<br />
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=CCHILDREN_TITLEBAR + 1)> Dim rgstate() As Integer<br />
Public Sub Initialize()<br />
ReDim rgstate(CCHILDREN_TITLEBAR + 1)<br />
End Sub<br />
End Structure<br />
<br />
Private Shared Function GetTitleBarInfo(ByVal Handle As IntPtr) As TITLEBARINFO<br />
Dim TitleInfo As TITLEBARINFO<br />
'Initialize structure<br />
<br />
TitleInfo.Initialize()<br />
TitleInfo.cbSize = Len(TitleInfo)<br />
<br />
' GetTitleBarInfo(Handle, TitleInfo)<br />
GetTitleBarInfo(Handle, TitleInfo)<br />
'Show some of that information<br />
Return TitleInfo<br />
End Function<br />
<br />
<br />
Public Shared ReadOnly Property CaptionButtonCount(ByVal Handle As IntPtr) As Integer<br />
Get<br />
Dim count As Integer<br />
<br />
Dim tbi As TITLEBARINFO<br />
tbi = GetTitleBarInfo(Handle)<br />
<br />
'Index TitleBar Element<br />
'0 The title bar itself. <br />
'1 Reserved. <br />
'2 Minimize button. <br />
'3 Maximize button. <br />
'4 Help button. <br />
'5 Close button. <br />
Dim x As Integer<br />
For x = 2 To 5<br />
If Not (tbi.rgstate(x) = STATE_SYSTEM_INVISIBLE) And Not tbi.rgstate(x) = 0 Then<br />
count += 1<br />
End If<br />
Next x<br />
Return count<br />
End Get<br />
End Property<br />
<br />
End Class<br />
<br />
|
|
|
|
|
MSDN on the GetTitleBarInfo function.....
"If the function succeeds, the return value is nonzero."
|
|
|
|
|
Yeah, I been tweaking the code for a while now with no luck, anyone with a good understanding of interop, please comment, thanks.
|
|
|
|
|
AndrewVos,
Sorry, I was woring on it between other code so it didn't get my full attention or time, I think this solution should work now that I've had time to see what was going on. It works on my end.
'----------------------------------------
Imports System.Runtime.InteropServices
'----------------------------------------
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure Rect
Public rLeft, rTop, rRight, rBottom As Int32
Public Function ToRectangle() As Rectangle
Return Rectangle.FromLTRB(rLeft, rTop, rRight, rBottom)
End Function
Public Overrides Function ToString() As String
Return "Rect: " & ToRectangle.ToString
End Function
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure TitleBarButtonStates
Public TitleBarState As TBBStates
Public Reserved As TBBStates
Public MinState As TBBStates
Public MaxState As TBBStates
Public HelpState As TBBStates
Public CloseState As TBBStates
End Structure
Enum TBBStates
STATE_SYSTEM_UNAVAILABLE = &H1
STATE_SYSTEM_PRESSED = &H8
STATE_SYSTEM_INVISIBLE = &H8000
STATE_SYSTEM_OFFSCREEN = &H10000
STATE_SYSTEM_FOCUSABLE = &H100000
End Enum
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Structure TITLEBARINFO
Dim cbSize As Int32
Dim rcTitleBar As Rect
Dim rgstate As TitleBarButtonStates
End Structure
Private Declare Function GetTitleBarInfo Lib "user32.dll" ( _
ByVal hwnd As Int32, ByRef pti As TITLEBARINFO) As Long
Public Shared Function GetTitleBarInfo(ByVal Handle As Int32) As TITLEBARINFO
Dim TitleInfo As TitleBarInfo
'Initialize structure
TitleInfo.cbSize = Len(TitleInfo)
GetTitleBarInfo(Handle, TitleInfo)
' *debug* the information we got back
With TitleInfo.rcTitleBar
System.Diagnostics.Debug.WriteLine(" (" & CStr(.rLeft) & "," & CStr(.rTop) & ")-(" & CStr(.rRight) & "," & CStr(.rBottom) & ")")
End With
With TitleInfo.rgstate
System.Diagnostics.Debug.WriteLine(.TitleBarState)
End With
'return with the TitleInfo
Return TitleInfo
End Function
'----------------------------------------------------------
My last test Return was:
Last DLL Error
(51,33)-(318,59)
STATE_SYSTEM_FOCUSABLE
whew.. Hope this helps...
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
