|
|
i am trying to populate a datacombo box based on what has been chosen from another using the following code:
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim strProductType As String
strProductType = DataComboType.Text
Dim descSQL As String
descSQL = "SELECT Product.Description FROM ProductType INNER JOIN Product ON ProductType.TypeCode = Product.TypeCode WHERE ProductType.Description= '" & strProductType & "'"
Set RS = Conn.Execute(descSQL)
Do While Not RS.EOF
DataComboProduct.DataField = RS.Fields("Description")
RS.MoveNext
Loop
However, the second combo box does not populate at all - why is this? Thank you!
|
|
|
|
|
Hi
I assume that "DataComboProduct" is the name of your second combobox, and that you are sure that you recieve records to your recordset.
I have not used the "DataField" method so I don't know how it works.
My suggestion is:
DataComboProduct.AddItem RS.Fields("Description")
Good luck
//Keder
|
|
|
|
|
Thank you so much for your help - i tried the AddItem method (which does make sense) but it returned the error "Method or data item not found"....is there anything else i could try??!!
|
|
|
|
|
I'm not sure but I think the error message says that it couldn't find RS.Fields("Description"). When you write your select statement you use Product.Description, maybe that have something to do with it.
Try this, not so nice, but it works
RS.Fields(0) 'Description
If you had recieved more info you should write
RS.Fields(1) 'Name
RS.Fields(2) 'Street
//Keder
|
|
|
|
|
Hello
Can someone explaine,simple, how I should work with IShellPropSheetExt, IShellExtInit. I have a reference to a .tlb file that contents IShellPropSheetExt and IShellExtInit.
I'm trying to add a tab in "Active Directory Users And Computer". All info I have found is for C++ but I'm using VB6.
//Keder
|
|
|
|
|
If I try to insert the ms flexgrid (and other ms activeX) in visual studio .NET i promts that I dont have a run time licence. I have the professional edition, and I can insert it in Visual Studio 6. Somebody know how to fix this problem?
|
|
|
|
|
we want to move to n-tier using .NET.
Our Current Env:-NT/SQLServer/VB6 -ClientServer App
Planend New Env:-NT/Oracle/VB.NET or C#
here is what we are planning :-
vb client->.net components (developed in VB.NET/C#) ->Oracle
if somebody can advice on the following..
1.Should we host the components in COM+ as it gives advantages like object pooling and dbconnection pooling, but at the same time is it really beneficial?
Are the advantages really worth?
Our thin client downloads lot of data upfront and then it becomes very user intensive app.
2.what should be the medium to communicate from client to components?
a.remoting with http/tcp
b.can we try to use webservices.
thanks in advance
|
|
|
|
|
Did this easily in VC++, now I'm trying to learn VBasic 6.0...
ClassA
ClassB - includes pointer to an ordered list of ClassA's
ClassC - inherits from ClassB, includes pointer to one ordered list of both
ClassA's and ClassB's
All classes created and destroyed dynamically, multiple instances
On form:
Custom ListBoxA - with pointer to list of ClassA's whose member variable
"name" determines items in ListBox
Custom ListboxB - same as above, but ClassB's
Custom ListBoxC - same, but both ClassA and ClassB as items
the problem:
Drag items from ListBoxes A and B and drop onto ListBox C. Want to create custom dragndrop mousepointers which consist of the text from the listbox being dragged (can I create an icon/cursor on a device context and assign that to the pointer??)
VBasic doesn't seem "pointer-friendly." Can I dynamically create a List of ClassA objects, then point to it from one or more of the listboxes?? I'm still new to VB's data types.
Is this the kind of thing I would use a Collection class for?
One more thing, sorry for being so needy. I want to be able to re-order items within the ListBoxes, by drag n drop, so I need to know exactly where in the listbox the mouse is pointing... ideally which item number as well as which pixel within the item's rectangle. Can I do this in VB 6.0 or is there a better method to this??
Thank you to anyone who has read this far and who responds.
Tym!
|
|
|
|
|
bad news man, VB6 doesn't support pointers as far as I know. I have read an article somewhere in CP that uses API to get pointers in VB6 but I can't seem to find it again. 
On the list reordering, when an item is clicked in the listbox, you can refer to it by:
List1.ListIndex 'this gets the zero based index of the list item OR
List1.List(List1.ListIndex) ' this gets the string value of the selected list
Notorious SMC
The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning
Mark Twain
Get your facts first, and then you can distort them as much as you please
Mark Twain
|
|
|
|
|
Dim strCompany As String
strCompany = txtCompany.Text
Dim findSQL As String
findSQL = "Select * " & _
" from Client " & _
" Where name like '" & strCompany & " '%"
the above is a SQL statement and i wish to populate a datagrid (either on the same page or a different one) with the results of the statement. How do i do this? Thank you!
|
|
|
|
|
Is this question regarding VB6 or VB.net ? They way to populate the datagrid are quite different for for vb6 and .net
Notorious SMC
The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning
Mark Twain
Get your facts first, and then you can distort them as much as you please
Mark Twain
|
|
|
|
|
sorry for lack of detail,and thank you for your time! its vb6, as it stands my code is:
Dim strCompany As String
Dim strLikeCompany As String
strCompany = txtCompany.Text
strLikeCompany = strCompany & "*"
Dim findSQL As String
findSQL = " Select ClientCode, Company, ContactName " & _
" from Client " & _
" Where Company LIKE '" & strLikeCompany & "'"
Set RS = Conn.Execute(findSQL)
Adodc2.RecordSource = findSQL
MsgBox ("Showing Results")
Me.Adodc2.Refresh
Me.DataGrid1.Refresh
but it displays the error "no recordset specified, command text was not set for command object." on loading and it fails to populate grid.
|
|
|
|
|
|
I want to declare the DTE.How to declare this one.If i use DTE directly,it is saying reference to non-shared member require the object reference or i have to import any class.
colAddins = DTE.AddIns()
cmds = DTE.Commands
cmdobj = cmds.Item("File.NewFile")
|
|
|
|
|
I want to write a Windows app in VB.NET which can be excuted by command like with parameters (Example: C:\abc.exe -id:[myvalue]). How to do? And how can use those parameters' value in my app? Thx a lot!
I'm ...
a fan of Manchester United
a fan of Ozzy Osbourne
a King of Nothing
|
|
|
|
|
|
Hello,
I'm using VB.NET and i have created an MDI application using 2 forms, called masterform and childform. when i got to the point where i had many instances of childform i thought that it would be necessary to have an option of closing all MDI child windows at once, but i don't even know where to begin. any help would be greatly appreciated.
|
|
|
|
|
Have you ever used the pure Windows API? There's a function called EnumChildWindows() that will help you out. I found a VB example online to help you get started...
http://www.syix.com/wpsjr1/EnumChildWindows.zip[^]
Jeremy Falcon
Imputek
<nobr>Excrement escapes everyone - even elders.
|
|
|
|
|
I got .NET Enterprise Architect Edition installed in my machine.
Every time I try load a new project the application closes down without giving any error message but that project is somehow saved in the project list. Then when I re-start the .NET and open one of the saved projects and try to add a new windows form, again the application closes down.
I tried repairing the .NET but same thing kept on happening.
I tried re installing .NET but same thing kept happening.
I didn't try reinstalling the OS and then installing .NET.
I'm having a Intel P4 with 256 Ram running Windows 2000 professional edition.
Why is this problem pertaining?
kind rgds
|
|
|
|
|
I has terrible problems with the IDE but did two thing and it's been ok since.
1.Defragged and consolidation my drive
2.Put Service Pack 3 on.
Don't know if it will help but you can give it a go.
|
|
|
|
|
I tried by installing the service pack 2 but still the problem is there.
Is there any others solutions? Pls help.
Thanks.
A.Aluthwala
|
|
|
|
|
<br />
...<br />
intDy = Int(lngCs / 86400) ' lngCS = 404090, intDy = 4<br />
lngCs = lngCs - (intDy * 86400) ' no overflow, lngCs = 58490<br />
intHr = Int(lngCs / 3600) ' intHr = 16<br />
lngCs = lngCs - (intHr * 3600) ' overflow here, WTF?!?<br />
...<br />
How come the VB runtime can process int * 86400 but when it tries to multiply int * 3600 it gets an overflow? Is this just completely insane, or am I missing something?
"You only disagree because you're a moron. If you were a man of intelligence you would see that I'm obviously right." - The General Consensus
|
|
|
|
|
86400 is treated as a Long while 3600 is treated as an Integer
In the first case, the temporary is stored in a Long. The temporary result of the second one is stored in an Integer causing an overflow.
Try:
lngCs = lngCs - (intHr * CLng(3600))
|
|
|
|
|
Yeah. I guess. It was easier just to change the intHr to a Long though.
"You only disagree because you're a moron. If you were a man of intelligence you would see that I'm obviously right." - The General Consensus
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
