Hi there can somebody tell how can will i be able to shorten my code: coz i think the code that i have is very redundant, can someone help me with this, i just want to do it in a single for loop.
Here's my code: -
'Time Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [Time]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
frmMain.Combo1(x).AddItem rs.Fields("Time").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Time Connection
-
-
'Room Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [ROOMS]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
frmMain.Combo2(x).AddItem rs.Fields("ROOM").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Room Connection
-
-
'Days Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [DAYS]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
Form2.Combo3(x).AddItem rs.Fields("DAYS").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Days Connection
-
-
i hope someone hav an idea on this, thank you in advance.
1  1072  
Hi there can somebody tell how can will i be able to shorten my code: coz i think the code that i have is very redundant, can someone help me with this, i just want to do it in a single for loop.
Here's my code:
-
'Time Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [Time]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
frmMain.Combo1(x).AddItem rs.Fields("Time").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Time Connection
-
-
'Room Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [ROOMS]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
frmMain.Combo2(x).AddItem rs.Fields("ROOM").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Room Connection
-
-
'Days Connection
-
If rs.State = adStateOpen Then rs.Close
-
rs.Open "Select * from [DAYS]", cnn, adOpenKeyset, adLockOptimistic
-
While rs.EOF <> True
-
For x = 0 To 11
-
Form2.Combo3(x).AddItem rs.Fields("DAYS").Value
-
Next x
-
rs.MoveNext
-
Wend
-
'Days Connection
-
-
i hope someone hav an idea on this, thank you in advance.
Hey, darrel!
Is it necessary to have Combo3 on a different form, why not a frame within the same form. That should help reduce the code....
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Mountain Bikn' Guy |
last post by:
Take some standard code such as shown below. It simply loops to add up a
series of terms and it produces the correct result.
// sum numbers with a loop
public int DoSumLooping(int iterations)
{...
|
by: Montrose... |
last post by:
After working in c# for a year, the only conclusion I can come to is
that I wish I knew c.
All I need is Linux, the gnu c compiler and I can do anything.
Web services are just open sockets...
|
by: Gremlin |
last post by:
If you are not familiar with the halting problem, I will not go into
it in detail but it states that it is impossible to write a program
that can tell if a loop is infinite or not. This is a...
|
by: Mr BigSmoke |
last post by:
Hi everybody... I have an app that has to controll some ascii files
every 10/30 seconds... I was planning to have an GUI using wxpython.
The problems is that i wasn't able to manage my application...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
| |
