Type: Posts; User: morbid.ivan
Search took 0.03 seconds.
I replace this part Jet OLEDB:Engine Type=5; with this: Jet OLEDB:Database Password=pwd123456;
I can create database but my main problem is
how do I set password using these codes?
Dim catDB As Object
Dim cnDB As ADODB.Connection
Set catDB = CreateObject("ADOX.Catalog")
Is it possible to extract blob file to destination where you want to store the image file?
Any help or ideas?
Using these codes I won't be able to pass the values to MYSQL database. All fields is in null value aside to Auto Increment number.
I have search how to pass values.
Thanks a bunch for this.
I created my own version for this:
I look at on some conversion sites find some formula.
Dim sInput As String
Dim uCM As Integer
Need help: Converting centimeter to ft - in
I have some basic codes but I can't extract the values in 2 textboxes.
dim iCM as Double
iCM = 173
Msgbox (FormatNumber(iCM / .0328085, 2))
I have no problem using these codes in yahoomail.
But when I've try to tweak a little bit, it doesn't work with GMail.
Dim cdoMsg As New CDO.Message
Is there any way to put picture to Listview/Flexgrid column from the database? Or any control can do this?
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');
Click Here to Expand Forum to Full Width
Survey posted by VBForums.