Type: Posts; User: morbid.ivan
Search took 0.02 seconds.
I got it. Thanks for reading this thread.
Dim sfilepath As String
Dim FSO As FileSystemObject
Dim fldData As folder
Dim folder As folder
Set FSO = New FileSystemObject
How to list out all the folders to listbox?
-> Parent Folder
---> Folder 1
---> Folder 2
---> Folder 3
How will I put the folder1, folder2 and etc to listbox?
I am looking for records for the past 1 year.
January 21, 2013
January 21, 2014
November 6, 2015 This record should not appear. Not more than 1 year.
This is how I do this in SQL...
I have found this on merrion's Site. It has a Printer name, Port Name and driver name... and how about Printer status?
Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32...
I have tried to use the codes from https://support.microsoft.com/en-us/kb/202480 and my problem is... even the printer is offline the return value is ready.
Any help to tweak these codes?
Thanks for the ideas.
I found the answer here : http://www.vbforums.com/showthread.php?620873-VB6-Encryption-amp-Decryption-Try-it-!-%28Make-itSimple%29
Encryption Solve my problem...
This is how I save my file...
Public Function SaveTemplate()
Dim itmSave As Long
Dim Filename As String
On Error GoTo ErrHandler
Example, I save my to my custom file extension.
Let say my file extension is .tsf (File.tsf). How to avoid to show all
the values inside the file by changing the file extension to .txt?
Thanks a lot. Now its working..
In sql this is my approach:
SELECT * FROM tbl_Sample WHERE Name IN ('James', Lars, Brian)
How about in RecordSelectionFormula?
I can only filter one record in this code:
Thanks a lot. this worked like a charm...
Windows 7 Ultimate 32bit both.
I found the installer on google.
This is what I've got in my laptop
Yes, I do searched it... I've heard a lot about this control and I just downloaded it.
This control works fine in my Laptop. But when I try to put it on my Desktop, its not working. But it...
I register the ocx file correctly, but once I put the control in a form.... Error occurs.
This is how I register ocx file:
I also try this. Unregister and...
you must split the address into 2
Textbox 1: for Number, Streetname and etc.
Textbox 2: City or Province
Function FindCityAddress(StrFind As String)
Dim strQuery As String...
Please help me about fusioncharts, I dont know how to use this control.
Any examples or tutorial of its basic usage?
Thanks in advance
I have one more question... What is the purpose of & after 3?
Thank you so much Bonnie West... This is exactly what I need.
I turn spaces into "/", and now my problem is how do I eliminate excess "/" on the last part?
Heres my code:
Dim sNames As String
sNames = IIf((Len(Trim(txtName(0).Text)) = 0), "",...
For example: I dont want to start with #1, I want to start at #3.
3 - Start Here
For example my textbox(0) only allows 12 varchar after reaches the maximum characters allowed, all the remaining characters
will be automatically moved to textbox(1) and so on....
and also this:
date(IfNull(Null,'" & Format(txtDates(1).Text, "yyyy-MM-dd") & "'))
Thank you for viewing... I solve it.
Dim sDateEnd As String
If IsDate(txtDates(1).Text) Then
sDateEnd = Format(txtDates(1).Text, "yyyy-MM-dd")
sDateEnd = "NULL"
I am using Vb6 and Mysql database
I am having a problem on saving null value on date field.
If it has a date it saves, and if doesn't have it also saves but when
I tried to look at the...
strQuery = "SELECT LAST_INSERT_ID() as retID FROM employee"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strQuery, conn, adOpenForwardOnly, adLockOptimistic
How to I get the ID after I insert record?
I want it to display the return ID number on Textbox...
This is how I insert record:
Insert Single Only
Dim strQry As String
+Root (I got this part)
--Parent (I got this part)
---Child (Error starts here)
I am trying to join 2 tables, but no success.
I got this Error "Invalid object 35610"
I have 2 different tables table1 name 'tab1' and table2 named 'tab2'.
I can insert record to table2 and update table1 using separate button. 1 button for adding/insert and 1 for updating table1
In mysql, query worked well.
UPDATE `tab1` SET `Addr`='SPL',`Remarks`='NEW HOME' WHERE `LinkID`='E-001';INSERT INTO `tab2` (`LinkID`,`Addr`,`Remarks`) VALUES ('E-001','SPL', 'NEW HOME');
I insert record on table2 named 'tab2'
LinkID = 'E-001'
Address = txtaddr.Text
Remarks = txtRemarks.Text
At the same time it must update table1 name...
Is it possible to join 2 different statement in one query?
I use this to insert record
Dim strQry As String
strQry = "INSERT INTO tab2 " & _
"(LinkID, Addr, Remarks) " & _
I have a blank Listview, and I also have a List Box (Checkbox)
Listbox Items: (database Table Fields)
I get it... Problem solved
If Not node.Parent Is Nothing Then
If Not node.Parent.Parent Is Nothing Then
Dim rs As ADODB.Recordset
Dim lItems As ListItem
ListView1.View = lvwReport
Set rs = New ADODB.Recordset
.CursorLocation = adUseClient
Please check out what went wrong.
Dim objNode As node
Set objNode = .SelectedItem
If Not objNode Is Nothing Then
If objNode.Children > 0 Then
Selecting treeview nodes
>--- IBANEZ (Parent Node)
|------ Gio (Child Node)
SELECT a.ID, a.Name, b.ID, b.Name, b.Relationship FROM tbl_Name AS a
INNER JOIN tbl_Dependents AS b ON b.ID=a.ID
1 |James Hinrich
2 |Larch Hamster
Click Here to Expand Forum to Full Width
Survey posted by VBForums.