|
I figured it out myself.
The problem was that I was trying to edit the oResult Object which doesn't work!
oResult = oSearcher.FindOne
Dim deObject as DirectoryEntry
deObject=oResult.GetDirectoryEntry
deObject.Properties("member").Remove(something...)
deObject.CommitChanges()
That's all.
Hope this helps someone.
Uli
|
|
|
|
|
hellow to all
i am trying to build my own Custom Control that Inherits from AxMSMask.AxMaskEdBox .
i wanna do simple thing i wanna have some property that when i make it ture it will run function every time that the user leave the MaskedBox it will run .
i started writing my own code , but i code stucked i didn't found good stuff anyone can help me with the following code ? , or give me links to related issues ?
Imports System.ComponentModel
Public Class MskTextBox
Inherits AxMSMask.AxMaskEdBox
Private DateStr As Boolean
Public Property DateValidator() As Boolean
Get
DateValidator = DateStr
End Get
Set(ByVal Value As Boolean)
DateStr = Value
End Set
End Property
Private Sub MskTextBox(ByVal Datestr As AxMSMask.AxMaskEdBox)
If Not IsDate(Datestr.FormattedText) Then
MessageBox.Show("error ! ")
End If
End Sub
End Class
|
|
|
|
|
Is there is specific problem you are having with your code?
|
|
|
|
|
I have developed project on VB6.0 and Database backend in SQL Server
more than 30 user are use this software in at time. They are not faced any problem the s/w working fine but as soon as the no. of user are increased we are
faced process Id problem Plz Help me
Process ID problem means There was error as dead processId of sql server
-- modified at 9:00 Friday 14th July, 2006
|
|
|
|
|
Sinchan Nikam wrote: but as soon as the no. of user are increased we are
faced process Id problem
What do you mean by "a process Id problem"?? There's not enough information here to figure out what your talking about let alone what the problem is.
The EXACT, word-for-word, error message would help greatly!
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 9:53 Friday 14th July, 2006
|
|
|
|
|
If it's the error that I THINK you're getting, you might want to look at Troubleshooting Deadlocks[^] in the SQL Server documentation.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Please help me how to set the connection pulling in VB6.0
|
|
|
|
|
Sinchan Nikam wrote: Please help me how to set the connection pulling in VB6.0
"Connection pulling"?? What do you mean by this?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I'm assuming he means connection pooling
cheers,
Chris Maunder
CodeProject.com : C++ MVP
|
|
|
|
|
So am I, but I've been wrong before! 
I'm actually looking for why he thinks he needs to "turn it on"...
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 9:47 Friday 14th July, 2006
|
|
|
|
|
I need my program to do the following things in this order:
Find all the CDROM Drives on a computer
Determine which CDROM Drive contains a certain CD (i.e. My Stuff)
Find a file on that cd ( i.e. Setup)
Run that file
thankyou in advance
Im using VB.NET Express Edition and i am only a self taught amateur.
Posted by The ANZAC
-- modified at 6:56 Friday 14th July, 2006
|
|
|
|
|
try this. it's VB 2005.
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'get the drives
Dim di As System.IO.DriveInfo
For Each di In My.Computer.FileSystem.Drives
'check that the drive is ready
If di.IsReady = True Then
If di.DriveFormat = "CDFS" Then
If di.VolumeLabel = "My Stuff" Then
'list files
FileSearch(di.Name)
End If
End If
End If
Next
End Sub
Private Sub FileSearch(ByVal Drive As String)
'search for files on the drive matching criteria
Dim strCriteria As String = "*.exe"
Dim objDirInfo As New DirectoryInfo(Drive)
Dim objFile As FileInfo
'list each file in all directories
For Each objFile In objDirInfo.GetFiles(strCriteria, SearchOption.AllDirectories)
If objFile.Name = "Setup.exe" Then
objFile.Open(FileMode.Open, FileAccess.Read)
End If
Next
End Sub
End Class
-- modified at 7:46 Friday 14th July, 2006
|
|
|
|
|
Thankyou very much, just testing now.
-----------------------------------------
Didnt seem to work.
What about DVD Drives?
Is it possible to directly access the drive that the program was run from.
Posted by The ANZAC
-- modified at 8:31 Friday 14th July, 2006
|
|
|
|
|
The ANZAC wrote: Didnt seem to work.
which version of vb are you using? 6? 7? 8? it worked for me (i tested it using a text file in VB Express).
The ANZAC wrote: Is it possible to directly access the drive that the program was run from.
yes, examine the code in the FormLoad sub - it's a method for accessing drives.
|
|
|
|
|
I understand about the FormLoad Sub.
Ive done some tests with a message box that says "Worked!" and it appears that the program is finding the file, it's just not running it.
Posted by The ANZAC
|
|
|
|
|
I figured it out. As oppose to using objfile.open, i used the following:
If objFile.Name = "Install.exe" Then
Dim strInstallPath = objFile.FullName
System.Diagnostics.Process.Start(strInstallPath)
End If
Thankyou for all your help!
Posted by The ANZAC
|
|
|
|
|
I need a quick code to able me to
make a multiple selection useing CommonDialog
i'm useing VB 6
Thx;P
Khalefa...@
|
|
|
|
|
CommonDialog1.Falgs=cdlOFNAllowMultiselect
|
|
|
|
|
Dear Collegues,
I thought I might try to use databindings to create a dialog that will enable a user to change some default colours. I can get the panel to show the colour stored in my class but I can't seem to get the class colour to update when the colour of the panel is changed.
I have a databinding between the BackColor of a Panel control and the LineColour property of a ProjectPreferences Class. The details of each follow. When I show the dlgPrefs dialog, the pnlLineColour.BackColor is correct. After I change the pnlLineColour.BackColor using the ColorDialog, the m_pp.LineColour does not change to suit.
Have I done this correctly or am I expecting too much? I am using VB.NET 2003
I have a class ProjectPrefences which holds the data. e.g. ProjectPreferences.LineColour:-
<br />
Public Property LineColour() As Color<br />
Get<br />
Return m_LineColour<br />
End Get<br />
Set(ByVal Value As Color)<br />
m_LineColour = Value<br />
End Set<br />
End Property<br />
I call the dialog with the following code:-
<br />
Dim MyPrefs As New ProjectPreferences<br />
<br />
Private Sub mnuPreferences_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuPreferences.Click<br />
Dim dlg As New dlgPrefs<br />
dlg.PreferenceData = MyPrefs<br />
If dlg.ShowDialog() = DialogResult.OK Then<br />
MyPrefs = dlg.PreferenceData<br />
End If<br />
End Sub<br />
The Dialog code is:-
<br />
Public Class dlgPrefs<br />
Inherits System.Windows.Forms.Form<br />
<br />
Private m_pp As ProjectPreferences<br />
<br />
Public Property PreferenceData() As ProjectPreferences<br />
Get<br />
Return m_pp<br />
End Get<br />
Set(ByVal Value As ProjectPreferences)<br />
unBindData()<br />
m_pp = Value<br />
If Not m_pp Is Nothing Then<br />
BindData()<br />
End If<br />
End Set<br />
End Property<br />
<br />
''' this routine handles a click in all of the colour panels<br />
Private Sub ColourPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pnlLineColour.Click, pnlElementColour.Click<br />
Dim cdlg As New ColorDialog<br />
cdlg.Color = sender.backcolor<br />
If cdlg.ShowDialog = DialogResult.OK Then<br />
sender.BackColor = cdlg.Color 'changes the panel.BackColor<br />
End If<br />
End Sub<br />
<br />
Private Sub BindData()<br />
'pnlElementColour is a Panel on the dialog<br />
Me.pnlElementColour.DataBindings.Add("BackColor", m_pp, "ElementColour")<br />
Me.pnlLineColour.DataBindings.Add("BackColor", m_pp, "LineColour")<br />
End Sub<br />
Private Sub unBindData()<br />
Me.pnlElementColour.DataBindings.Clear()<br />
Me.pnlLineColour.DataBindings.Clear()<br />
End Sub<br />
End Class<br />
Cheers
Tim
|
|
|
|
|
 hi!
i use commandbuilder to build sql command to my dataadapter, then i update my dataset, then it return error message contain "syntax error in update statement".
my code was:
private sub update()
dim da as new oledbdataadapter("select * from tabItems",cn) 'cn is oledbconnection
dim cb as new commandbuilder(da)
dim ds as new dataset
da.fill(ds)
'code to modify ds
da.update(ds)
end sub
any help would be useful to me, thanx before...
Ghost
|
|
|
|
|
Yes it can, if you use "*" to denote which fields you want to return. Specify which fields you want, even if it's all of them. You cannot use a "*" in an UPDATE statement in SQL, and that's what the CommandBuilder tried to do.
SELECT field1, field2, field3, field4 FROM tabItems
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
thanx dave, i will try it.
|
|
|
|
|
hi i want to change the width of excel column but it gives error that cannt change read only property,i m using code below
ws.Row[1,2].Entirecolmn.widht=12;//gives error?
how to change the width of excel column
Tasleem Arif
|
|
|
|
|
Hi all,
I am using the following code for my searching function, but when I try to run it, it are allow me to search the item for column 1, but I want to search the item for column 2 as well columun 3, what mistake I have make, can anyone give me some advice on this?
This is my code:,
Private Sub ListView_Master_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView_Master.ColumnClick
Dim exactMatch As Boolean
Dim mySearchText As String
Select Case e.Column
Case 0 'column one BOM ID
'Search for item at column 0 when user click on column 0
'MsgBox(e.Column)
Case 1 'column two Cust Part # = BOM
'Search for item at column 1 when user click on column 1
MsgBox(e.Column)
mySearchText = Trim(InputBox("Please enter your Customer Part #", "Search Product Master Entry Data"))
For Each itm As ListViewItem In ListView_Master.Items
If exactMatch Then
If itm.Text = mySearchText Then
' an exact match was found ...
MsgBox("Exact")
End If
Else
mySearchText &= "*"
If itm.Text Like mySearchText Then
' a partial match was found ...
MsgBox("Partial")
End If
End If
Next
Case 2 'column three Child Part#A = CodeAChild Part#B = CodeB
'Search for item at column 2 when user click on column 2
MsgBox(e.Column)
Case 3 'column three Child Part#B = CodeB
'Search for item at column 3 when user click on column 3
MsgBox(e.Column)
End Select
End Sub
|
|
|
|
|
Could you clarify please? Do you mean that when the user clicks on column 1 it should search column 1, column 2, and column 3? If that is the case, then you need another loop to cycle through the columns before you cycle through the items.
Or do you mean that when the user clicks column 1 it should search column 1 only, and if they click column 2 it should search column 2 only, and so on? In this case what you are saying is that the code is not hitting the Case 2 or Case 3 of your select statement. Try putting a breakpoint at Select Case e.column. Run your program and click on column 2 or 3. Then when it hits the breakpoint quickwatch to see what column you are on. Maybe that can help point you in the right direction.
Sorry I couldn't be more helpful.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
