Type: Posts; User: Arnoutdv
Search took 0.03 seconds.
You can not search for the key, because if you know the key then you can just retrieve the ListItem based on the key.
* value An integer or constant specifying whether the string will be matched...
strPressedKey = TxtPass.Text
TxtPass.Text = strPressedKey
But there is a lot more wrong with your tiny bit of code.
How can you do a Select Case on a new variable?
You ask for HistName and TotalWorked, so you only have those fields....
Wait a minute, do you still get the first error?
Because the current query is quite different from the original query.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Shell App.Path & "\" & App.EXEName & ".exe", vbHide
I find it a...
Put the query in a string variable and use Debug.Print to show the content of the query.
dim sQuery As String
Set rs = New ADODB.Recordset
sQuery = "SELECT EnterWorkHistory.HistName,...
You should not use Month names but month numbers.
Indeed for every locale setting there can be different month/day names.
Set Rsa = CN.Execute ("SELECT HistDate,HistName, Sum(HisTotal) AS SumOfHisTotal FROM EnterWorkHistory GROUP BY HistDate WHERE HistName ='" & RplS(CmbEmp.Text) & ", CN, adOpenKeyset,...
Using the MouseUp with a Cancel:
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Cancel As Boolean
If X < 0 Or Y < 0...
See this thread:
Links to an external websites:
I think Salsa was only giving you an example how to add a reference to an external library.
Adding the Microsoft ActiveX Data Object to your project will not help you.
You used sample code for an...
Why don't you start a new thread instead of posting in an old codebank thread?
If you already know how to program in C# and having a course which requires VB6 then stick to what VB6 can do without residing to use external .NET libraries. Just choose something else to impress...
You can perfectly assign an array to an array in a single line.
For Functions returning an array you have to do it all the time.
If you have fixed arrays which are not the same size then this will not work.
Maybe you can use the CopyMemory API, I never use fixed arrays.
Just a single remark first; Office documents .docx, .xlsx, .pptx are already compressed. So compressing them again will not help.
But WHY do you want to convert this code to VB6 and use the NET libraries?
In the other thread with the same question you are trying to use the .NET libraries from VB6, why not write your code in VB.NET??
See your other thread.
WebClient is a .NET library, it does not exist for VB6
There are so many references to .NET libraries that you can not just convert the code from .NET to VB6.
For RegEx and Base64 you can find external VB6...
Like techgnome already stated, that will only work if you only use the MDB for storing data.
Not if you have a lot of code in the MDB.
You have declared m_PenVal() as Double, which means you can not assign a String Value to it.
m_PenName(0) = "" & .Columns(3)
Using the "" is to prevent additional code for handling NULL...
That has not really much to do with Visual Basic 6.
What kind of server are you talking about? Database server?
Show the code where you actually you fill the array m_PenVal().
The Let/Get methods can't be the problem.
Convert MS-Access DB to SQL Server
If you use ADO then you only have to change your connection string.
I think it's going to fast to see the update.
Looping through 2000 records only takes a fraction of a second.
Also have you set the progressbar min and max values.
By default it works with...
That's not really a useful advice, the domain tadawul.com is not the same as tadawul.com.sa
That sound like monitoring the ClipBoard.
Do a search on Google for vb6 monitor clipboard
Instead of bumping, read the advice you have been given.
That's bad advice to just download some version of the OCX!
Also read this thread
Do you mean vbSpeed:
You should create multiple Enums per type
Public Enum enCellNameCaption
Public Enum enCellNameValue
These are not 64bits components, so the should not be in SysWOW64!!
Does my sample work for you?
The declaration for NewItem is obviously not correct, because I did not know you where using a different ListView control.
Very basic sample
Private Sub Command1_Click()
Is it the CodeJock ListView?
And sorry for the mistake in the first line :/
Set NewItem = LsVw.ListItems.Add(, , rs!FullName)
Have a look at this thread on another forum:
The 3rd parameter is the zoom size in percentages.
Pressing CTRL + increases the percentage,...
LsVw.ListItems.Add = rs!FullName ' <- here you add a new row
NewItem.SubItems(1) = rs!Address ' <- here you update row 1
Dim NewItem As ListItem
Set rs = CN.Execute("SELECT * FROM...
Have you tried the Cls method of the picture control?
You first add a new ListItem to the ListView and then you are updating ListItems(1)!
Click Here to Expand Forum to Full Width
Survey posted by VBForums.