Search Results

Showing results 1 to 40 of 72
Search took 0.01 seconds.
Search: Posts Made By: Teme64 ; Forum: Visual Basic 4 / 5 / 6 and child forums
Forum: Visual Basic 4 / 5 / 6 Apr 19th, 2009
Replies: 1
Solved: Sql issue
Views: 438
Posted By Teme64
My guess is that a 'Materials' can have many 'MaterialRequisitionDetail' (1-N relationship).

Now, MaterialRequisitionOrder.requisition_no = 129 gives you a single 'MaterialRequisitionOrder'....
Forum: Visual Basic 4 / 5 / 6 Feb 1st, 2009
Replies: 3
Views: 476
Posted By Teme64
Something like that your code does seems to do. And what is the question?
Forum: Visual Basic 4 / 5 / 6 Jan 13th, 2009
Replies: 5
Views: 596
Posted By Teme64
To be honest, no :)

I was a bit lazy and didn't test what I wrote, sorry. Here's my previous code, slightly modified and with a bug fix:
Private InstNames() As String
Private InstPaths() As...
Forum: Visual Basic 4 / 5 / 6 Jan 11th, 2009
Replies: 5
Views: 596
Posted By Teme64
Lets combine what SCBWV wrote and arrays for "linking".

Use arrays to hold names in combo box(es) and actual filepaths
Private InstNames() As String
Private InstPaths() As String

Private Sub...
Forum: Visual Basic 4 / 5 / 6 Jan 6th, 2009
Replies: 6
Views: 991
Posted By Teme64
Hi smile4evr! I've been on holiday :) Have you solved your problem?
Forum: Visual Basic 4 / 5 / 6 Dec 27th, 2008
Replies: 11
Views: 1,037
Posted By Teme64
Your code is then ok. Assuming you do get only one record :)
Forum: Visual Basic 4 / 5 / 6 Dec 25th, 2008
Replies: 11
Views: 1,037
Posted By Teme64
Your code will actually display the last record found. Instead of the loop, check that the recordset is not empty and display only one (first) record. Add "Next"-button to the form and when the user...
Forum: Visual Basic 4 / 5 / 6 Dec 24th, 2008
Replies: 11
Views: 1,037
Posted By Teme64
Yes, a bit confusing. Without seeing the "big picture", I would allow user make the selection criteria in the first form. When user presses the button I would build a new SQL select statement with...
Forum: Visual Basic 4 / 5 / 6 Dec 24th, 2008
Replies: 1
Views: 512
Posted By Teme64
No, it's not possible.
If tCommand$
end if
is not a valid statement in VB6 so you can't get the code through the compiler.
Neither
tCommand = ".width <= 36"
If tCommand$ Then
wqty = 1
Else...
Forum: Visual Basic 4 / 5 / 6 Dec 23rd, 2008
Replies: 6
Views: 991
Posted By Teme64
What is your "data report" and the DB where the data comes from?
Forum: Visual Basic 4 / 5 / 6 Dec 22nd, 2008
Replies: 3
Views: 700
Posted By Teme64
QVeen is quite right, but basically it doesn't matter what is saved to DB. The original code works, if the saved data is read:
If RS("MyCheckField") = 1 Then
MyCheckBox.Value = vbChecked
Else
...
Forum: Visual Basic 4 / 5 / 6 Dec 22nd, 2008
Replies: 3
Views: 700
Posted By Teme64
I don't see anything wrong in how you save checkbox's checked state to DB.
You do read this information back in to the form, right? You may have some error in how you read and set checkbox's state.
Forum: Visual Basic 4 / 5 / 6 Dec 16th, 2008
Replies: 1
Views: 541
Posted By Teme64
Hi Todor!
This is VB 4/5/6 (i.e. classic Visual Basic) forum. Post your question to DaniWeb's VB.NET (http://www.daniweb.com/forums/forum58.html) forum, you're more likely get your question answered...
Forum: Visual Basic 4 / 5 / 6 Dec 16th, 2008
Replies: 1
Views: 463
Posted By Teme64
Use parenthesis
Text3.Text = (3 ^ 1 + 3 ^ 2) - (3 ^ 0 + 3 ^ 1 + 3 ^ 2 + 3 ^ 3)
Forum: Visual Basic 4 / 5 / 6 Dec 13th, 2008
Replies: 1
Views: 393
Posted By Teme64
I'm not any MySQL guru. I use MySQL ODBC and the connection string:
"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=test; UID=root; PWD=XXXX;"

If the problem comes from the...
Forum: Visual Basic 4 / 5 / 6 Dec 8th, 2008
Replies: 1
Views: 458
Posted By Teme64
Since rtb does not have a Justify property, you have to do it with API calls. Here's a one example VB6 - Justify text in RichTextBox (http://www.vbforums.com/showthread.php?t=275310) to start with.
Forum: Visual Basic 4 / 5 / 6 Dec 4th, 2008
Replies: 8
Views: 1,616
Posted By Teme64
Here's a slightly modified code:
Option Explicit

Public cn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset

Private Sub removeMileDupes()
Dim...
Forum: Visual Basic 4 / 5 / 6 Dec 4th, 2008
Replies: 8
Views: 1,616
Posted By Teme64
I'm trying to re-produce your case.

Here's my simplified tables.
Temp-table:
USE [EditorTest]
GO
/****** Object: Table [dbo].[CASE_MILESTONE_TEMP] Script Date: 12/04/2008 10:35:36 ******/...
Forum: Visual Basic 4 / 5 / 6 Dec 4th, 2008
Replies: 4
Hi
Views: 529
Posted By Teme64
First, this is the VB 4/5/6 forum. You're coding with VB.NET which is a different forum in DaniWeb.

There's not a single, right solution. Here's one solution without any fancy UI, this more about...
Forum: Visual Basic 4 / 5 / 6 Dec 3rd, 2008
Replies: 1
Views: 399
Posted By Teme64
You may try to ask that in MS SQL (http://www.daniweb.com/forums/forum127.html) forum. I think that's something you have to do at the database side.
Forum: Visual Basic 4 / 5 / 6 Dec 3rd, 2008
Replies: 2
Views: 447
Posted By Teme64
A short answer: no.

There's a VB RezQ (http://www.vbrezq.com/). I haven't tried it. I highly doubt it can do what it claims to do and definitely I wouldn't pay $149 for a piece of s**tware.
And...
Forum: Visual Basic 4 / 5 / 6 Dec 3rd, 2008
Replies: 8
Views: 1,616
Posted By Teme64
What is the exact error message that you get? What error number you get from oConn.Errors(0).NativeError (oConn being your connection object)?

A few things come to my mind straight away. Are the...
Forum: Visual Basic 4 / 5 / 6 Dec 2nd, 2008
Replies: 2
Views: 1,083
Posted By Teme64
Like you said, there are attributes to hide folders. And also to unhide them.

If your purpose is to "hide" information, I suggest using an encrypted file. You'll find encryption algorithms and...
Forum: Visual Basic 4 / 5 / 6 Dec 2nd, 2008
Replies: 4
Hi
Views: 529
Posted By Teme64
Here are the things to consider:
- what does an elevator do?
- how do you represent 4 floors in VB (a clue: you need a data structure)
Forum: Visual Basic 4 / 5 / 6 Dec 1st, 2008
Replies: 1
Views: 486
Posted By Teme64
And the problem is??? And where should I look at???
Forum: Visual Basic 4 / 5 / 6 Nov 19th, 2008
Replies: 8
Views: 1,438
Posted By Teme64
Ok. Here's a snippet from the code I'm using now:

Set oConn = New ADODB.Connection
ConStr = "PROVIDER=SQLOLEDB;Data Source=XXX; INITIAL CATALOG=XXXlab; User ID=XXX; Password=XXX;"
oConn.Open...
Forum: Visual Basic 4 / 5 / 6 Nov 19th, 2008
Replies: 8
Views: 1,438
Posted By Teme64
Then I'll refer to my first reply. At the point of error, what values does
oConn.Errors(0).NativeError
oConn.Errors(0).Description
have? oConn is your connection object. Also what type of...
Forum: Visual Basic 4 / 5 / 6 Nov 18th, 2008
Replies: 2
Views: 877
Posted By Teme64
You must double double quotes inside double quotes:
LoadCommand = "(load \""S:\Tools\Tools_Subfolder\MyStuff\test.txt \"")"
Forum: Visual Basic 4 / 5 / 6 Nov 18th, 2008
Replies: 8
Views: 1,438
Posted By Teme64
I see. I wasn't aware of that.

However, the article suggested a solution that should solve the problem. This is, if I did understood it right. Update MDAC (latest version is 2.8) and use a...
Forum: Visual Basic 4 / 5 / 6 Nov 17th, 2008
Replies: 8
Views: 1,438
Posted By Teme64
Do you need adorset.Move 0 ?
However, you do have a connection object. Check from the connection object which is the native error and description
oConn.Errors(0).NativeError...
Forum: Visual Basic 4 / 5 / 6 Nov 13th, 2008
Replies: 1
Views: 1,645
Posted By Teme64
Why don't you use
MkDir "C:\TempDir"
Ok. If you want to do it hard way:
Private Declare Function CreateDirectory Lib "shell32.dll" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath...
Forum: Visual Basic 4 / 5 / 6 Nov 2nd, 2008
Replies: 2
Views: 820
Posted By Teme64
You have to loop the original string:
Private Function InsertChar(ByVal StringIn As String, _
ByVal CharToInsert As String, _
ByVal InsPosition As Integer) As String

Dim NewString As...
Forum: Visual Basic 4 / 5 / 6 Oct 17th, 2008
Replies: 3
Views: 1,086
Posted By Teme64
Hi! If your question is solved, please mark the thread as solved. Thank you!
Forum: Visual Basic 4 / 5 / 6 Oct 14th, 2008
Replies: 2
Views: 797
Posted By Teme64
Are you taking course on Visual Basic? AFAIK connecting with RMI or socket has something to do with Java :-O
Forum: Visual Basic 4 / 5 / 6 Oct 14th, 2008
Replies: 11
Views: 1,100
Posted By Teme64
smile4evr said there are also combo boxes. Could the validation fail with combos?
Forum: Visual Basic 4 / 5 / 6 Oct 14th, 2008
Replies: 11
Views: 1,100
Posted By Teme64
No. None of them is a complete solution and nobody can give one without seeing the whole code.

There may be a just a little spot everyone's missed. Can you give more details?

But few things to...
Forum: Visual Basic 4 / 5 / 6 Oct 14th, 2008
Replies: 4
Views: 749
Posted By Teme64
Use arrays or collections. Maybe even dictionary might work in that.

But maybe a simple array will do (pseudo code):
Const TotalOptions = 5600
Dim GrossPay(TotalOptions) As Single
Dim...
Forum: Visual Basic 4 / 5 / 6 Oct 14th, 2008
Replies: 7
Views: 697
Posted By Teme64
As far as I know "01/01/2008 23:00" and "02/01/2008 01:00" are valid UK dates.

You also need to convert string to date
d1 = CDate(AdHocData.Recordset.Fields("StartDate") + (" ") + _...
Forum: Visual Basic 4 / 5 / 6 Oct 13th, 2008
Replies: 3
Views: 1,086
Posted By Teme64
Here you are:

Dim LoanDate As Date
Dim LoanDays As Integer
Dim DueDate As Date
Dim DiffDays As Long
Dim Fine As Single
Dim Total As Single

' When loaned
Forum: Visual Basic 4 / 5 / 6 Oct 13th, 2008
Replies: 7
Views: 697
Posted By Teme64
Assuming you can convert start and ending times to valid dates, use DateDiff with "n" which gives you minutes:

Dim d1 As Date
Dim d2 As Date
Dim DiffMinutes As Long

d1 = CDate("1.1.2008...
Showing results 1 to 40 of 72

 


About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC