2,155 Posted Topics
 | [CODE]strSQL2 = "INSERT INTO CPALLIB.loanData(amount) VALUES ('" + intAmount + "')"[/CODE] Added the " ' " sign.  |
| | If you used the code as per your previous thread, the following should work - [CODE]Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Not VScroll1.Value = VScroll1.Min Then 'if minimum then stops pbInner.Left = -HScroll1.Value pbInner.Top = -VScroll1.Value End If End If End Sub[/CODE] |
| | Re: Free Dashboards Welcome to Daniweb. I have asked that your post be moved to our community feedback forum. I'm sure you will get more replies from there.:) |
 | I have found this interesting thread [URL="http://blog.architexa.com/2011/01/new-years-resolutions-of-a-software-developer/"]Here[/URL]. [QUOTE]Happy new year all! With the new year comes a chance to re-invent yourself, and as a software developer I find that it is a great opportunity to reflect on how I can improve my skills in the upcoming months. I have thought … |
| | It all depends on what you want the user to see. You need to give us much more information in order for us to help you. |
 | Seems I was asleep. I would have liked to see more on In-vehicle information systems/technology. Oh well, so be it...:) |
| | I do not think the OP means text boxes, by mentioning columns etc.:) What exactly do you need? Are you talking about excel with rows and columns or a datagrid? |
| | Mmmmm, I don't think so because I can not see it.;) You need to be much more specific on what you need. Highlighted where what code etc.:) |
| | This sounds like you need help for the entire project, which unfortunately we do not do here. You need to show us what you have already in code, then we can help i9f any errors occur.:) |
 | @rrajm, you need to open your OWN thread, we will then answer from there. This is a VERY old post(2006), nobody will give you help from here. Click [URL="http://www.daniweb.com/forums/newthread.php?do=newthread&f=4"]HERE[/URL] to open a new thread.:) |
| | |
| | Use the following - [CODE]Dim Cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Set cn = New ADODB.Connection Set Rs = New ADODB.Recordset With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\YourDatabaseNameHere.mdb" .Open .CursorLocation = adUseClient End With Rs.Open "SELECT * FROM YourTableHere",cn, adOpenStatic, adLockOptimistic … |
| | |
| | |
| | Replace the frame with 2 picture boxes if you want to scroll just the controls. Have a look at [URL="http://www.techrepublic.com/article/create-scrolling-controls-on-a-form-using-vb/5355438"]This[/URL] link wich gives you all the code as well. |
| | Dear Tech Support, Last year I upgraded from Boyfriend to Husband and noticed a distinct slowdown in overall system performance, particularly in the flower and jewellery applications, which operated flawlessly under Boyfriend. In addition, Husband uninstalled many other valuable programmes, such as Romance and Personal Attention and then installed undesirable …  |
 | |
| | Below is the code. You will need 1 form to test it for now - [CODE]'Form1 Private Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex … |
 | Abe, give me the code you are using for population of listview and combobox, the adding of data as well to the combo in form 2. |
| | Get the column that the user clicked on to get the database field value. Now reload the grid with the data sorted as per the users selection. [CODE]rs.Open "SELECT * FROM MyTableName ORDER BY " & "'" & UserValueChosen & "'" Set Datagrid1.Datasource = rs[/CODE] |
| | |
| | |
| | Welcome to Daniweb Adam. We wish you all of the best and hope your time with us is an awesome experience.:) |
| | |
| | |
| | Re: macro error If I read this correctly, the sub is searching fro blank, if not found it still wants to do something, hence the error. Add some error trapping so the sub can be exited if an error was raised. |
| | Firstly, I have asked the mods to move this to vb.Net. You will not get much help here in the vb4/5/6 forum.:) Secondly,Your devisions does not look right. If you want to say take 10% of an amount, you would get the percentage amount as in - [CODE]Amount100 = AmountPercent … |
| | [CODE]Public Function Dec2Bin(DecVal) Dim bits, Dec As String Dec = DecVal 'The decimal value If Dec >= 128 Then bits = "1": Dec = Dec - 128 Else bits = "0" If Dec >= 64 Then bits = bits & "1": Dec = Dec - 64 Else bits = bits … |
| | Re: monthly report Try and change the following - [QUOTE]Today WHERE DateAdded = 'now'"[/QUOTE] to, [CODE]...Today WHERE DateAdded = DateValue(" & "'" & "Date" & "'"[/CODE] |
| | An interesting link that I have found [URL="http://www.johndcook.com/blog/2009/07/24/windows-console-fonts/"]HERE[/URL]. It allows you to change the fonts in your command prompt console or in powershell.  |
| | Only with the title. The title needs to have a description of your error, say "Add numbers in labels". Being new, no harm no foul.:) As far as your question goes, what bexactly do you need if you are not going to get the sum of both. If you click …  |
| | Re: Hello Friends Welcome to Daniweb Ravikant AND poloblue.:) @Poloblue, we do not let members "hijack"/take over other members threads though. You always have to open your own. Being said, have an awesome time here at Daniweb.;) |
| | |
| | @Master, sorry being weekend and all, I will not be spending a lot on this. Maybe tomorrow if I have a huge hangover.;) Your logic is not as good. Zip and load your app again with the database, let me change some code. I will not do the entire project … |
 | |
| | Re: TreeView It will be under components/Microsoft Windows Common Controls 6.0 (SP6). You will need service pack 6 installed, or under Microsoft Windows Common Controls 5.0 (SP2). |
| | Morning Martin, I'm glad to see that your coding skills is improving every day. Keep it up!:) Your problem - You have made a call to rsAdd while it is still open, hence the error. You need to do one of two things here, either open "Total Stock" in the … |
| | |
| | |
| | Re: Hi NEW here Welcome to Daniweb Anna. Have a look at all our forum menus at the top of this page and have fun.:) |
| | I think it might be a problem with vb6 service pack. If not sp6, this might cause the error with the access database. It seems that if you would have been using access 2000 the error refers to the aged database. It now seems that access being 2007, is the … |
| | Try the following connection string, backslashes added and your server (pc) name - [CODE]Data Source=\\192.168.0.100\MyServerNameHere\yourinstancename;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;[/CODE] |
| | Re: search code I think you might be looking for the sql statement here. [CODE]"SELECT * FROM YourTableNameHere WHERE YourFieldNameHere LIKE 'see%'"[/CODE] |
| | BEFORE Form5.Show, put the following code - [CODE]Form5.Adodc1.Refresh Datagrid1.Refresh Form5.Show[/CODE] |
| | Re: KeyDown problem From the VB Help file on the KeyPreview> property of a form -> Note Some controls intercept keyboard events so that the form can't receive them. Examples include the ENTER key when focus is on a CommandButton control and arrow keys when focus is on a ListBox/Textbox control. The space … |
| | Re: How to connect You need to reference the adobe library files under references. From there you can use all of the adobe products installed on your system. |
| | Nice, now we are getting there, thank you.:) This part - [CODE]Set rs = New ADODB.Recordset rs.Open "SELECT * FROM storage WHERE Current Stock = '" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic 'Assuming that "Current Stock is the stock number you are using, because there is a space between … |
| | The mouse wheel support is not included in the VB6 environment. Read [URL="http://support.microsoft.com/kb/837910"]THIS[/URL] link FIRST and download the mousewheel scroll .exe before you can even think of using it to scroll a listbox. There are sample code included in the package on how to use the scroll function. |
| | Your code looks fine, is it working for you? |
| | On which line does the error occur? The sql statement that Jhai has given is fine, so where do we find the error? |
The End.