|
Moveman,
Here is the code I have. I'll try to explain the method to my madness. BTW, you can use this code for both combo and list boxes.
Step 1 - Load the combo box using a subroutine.
Private Sub Load_lstCourses()
'Load the Student course listbox.
On Error GoTo Load_lstCourses_Err
Dim strItem As String
'Clearing the list box
lstCourses.Clear
'Load the lstCourse listbox
Set rsData = New ADODB.Recordset
strSQL = "SELECT * FROM usystblCourses WHERE (((usystblCourses.intDeleted)=False));"
rsData.Open strSQL, cnnMainDb, adOpenKeyset, adLockReadOnly
With rsData
Do While .EOF = False
lngCourse = !lngCourseID
strItem = !txtCourseName
lstCourses.AddItem strItem
lstCourses.ItemData(lstCourses.NewIndex) = lngCourse
.MoveNext
Loop
End With
Load_lstCourses_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Sub
Load_lstCourses_Err:
Msg = "Error in frmCourses - Load_lstCourses Subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Load_lstCourses_Exit
End Sub
Step 2 - Code to delete the selected item from the combobox. I'm using MS-Access as my DB
Private Function Delete_Course(lngCourse As Long) As Boolean
On Error GoTo Delete_Course_Err
cnnMainDb.BeginTrans
strSQL = "UPDATE usystblCourses SET usystblCourses.dtmModified = Now(), " & _
"usystblCourses.intDeleted = True WHERE " & _
"(((usystblCourses.lngCourseID) = " & [lngCourse] & "));"
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cnnMainDb
cmdChange.CommandText = strSQL
Set rsData = New ADODB.Recordset
rsData.Open "usystblCourses", cnnMainDb, , , adCmdTable
cmdChange.Execute
DoEvents
Msg = "Do you wish to delete " & lstCourses & "?"
intResponse = MsgBox(Msg, vbYesNo + vbDefaultButton2 + vbQuestion, "Deleting Cosmetology Course")
If intResponse = vbYes Then
cnnMainDb.CommitTrans
Delete_Course = True
Else
cnnMainDb.RollbackTrans
Delete_Course = False
End If
Delete_Course_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Function
Delete_Course_Err:
Msg = "Error in frmCourse - Delete_Course function " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Delete_Course_Exit
End Function
Step 3 - Know which item you want to delete.
Private Sub cboCourses_Click()
lngCourse = CLng(cboCourses.ItemData(cboCourses.ListIndex))
End Sub
Step 4- Delete the item. I had a routine to check and make sure an item was selected before I deleted it.
Private Sub cmdDelete_Click()
If Is_Data_Present Then 'Checking routine
If Delete_Course(lngCourse) Then
Msg = lstCourses & " has been deleted."
MsgBox Msg, vbInformation, "Deleting item."
Else
Msg = lstCourses & " has NOT been deleted."
MsgBox Msg, vbInformation, "Deleting item."
End If
Else
Msg = "Before you can delete an item you must double click on the item name " & _
"you wish to delete. " & vbCr & _
"The item name must be placed into the Course Name box " & _
"before I can remove it from the database."
MsgBox Msg, vbInformation, "Deleting item."
End If
Call Load_lstCourses
txtCourse.Text = Empty
txtCourse.SetFocus
End Sub
I hope this helps,
Quecumber256
|
|
|
|
|
You will find lots of useful .Net material in this site
Visit this site
http://www.dotnetguide.co.nr
:->
|
|
|
|
|
|
i write integer in a textbox he transform to string
how i let him read integer
naganaga
|
|
|
|
|
All you need do is declare the variable you want to use.
for example:
Dim I as Integer
.........
.........
..........
End Sub
I believe this will solve your problem.
Yours,
Damilola
Dammy
|
|
|
|
|
I THINK YOU ARE ASKING
HOW TO CONVERT STRIN TO INTEGER
DIM N AS INTEGER
N= VAL(TEXT1.TEXT)
THIS IS HELP FULL TO U
sdgsdfsdfsdfsdfsdfsdfsdfsdfsdfsdf
|
|
|
|
|
how i can hide a part from file.pdf in any component windows in vb.net
comment je peux cacher une partie de file dans une formats pdf (f.pdf) par un tel chose qui demande de l'utilisateur username+password en langage vb.net si ce utilisateur le rempli justement alors le texte en entier s'ouvre
+ code
|
|
|
|
|
Hello VB gurus!
I’m a Java developer but I need to design an ASP application the will access database and extract records (employee data). Now, my question is like this. Normally in Java I would create an Employee class, which will mimic database design and hold employee data. After I get connection to DB I can loop through each record and create the Employee class instance to hold the data and assign it to Enumeration (which I later store in session for farther use).
Since I have no idea on how to do this in ASP maybe someone can help me with steps. My guess is that I do the same thing but….
1. How do I create .vb class?
2. How do I compile it?
3. How do I create instance of the class?
4. Can I use Enumeration to store instances of the class?
Thanks a lot for help. I will appreciate any help coming my way. 
|
|
|
|
|
Hi is it possible to change the width of a standard scroll bar for an auto scroll panel? I expect its simple and was expecting a property on the the propertys but cannot see it.. VB.NET - VS2005
Kadi
-- modified at 9:15 Thursday 4th May, 2006
|
|
|
|
|
hi all,
i want to hide the page footer in the last page.
how can i do this .pls give me the code
thanks
vipin paliwal
|
|
|
|
|
hi frendz,
here is ur frend needs help regarding:
How to call/add chart object in a powerpoint slide by using vb.net lang?
I did in the following way.. just observer it
1) I add a referance of powerpoint in my application.
2) create a new object of powerpoint application
3) create a new object of presentation and add it to powerpoint object.
4) create a new slide object and add it to presentation object.
.......
I don't know what is the exact implementation coz ground level learner in thhis kind of the concepts.
do the needful for me
wish me as All The BEST.
|
|
|
|
|
|
I am using the following code
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open "C:\Documents and Settings\Administrator\Desktop\Sandy\db2.mdb"
rs.Open "select * from student", con
Set dg1.DataSource = rs
the error is The rowset is not bookmark
|
|
|
|
|
Reposting your question every 2 hours until someone gives you the answer you want, will only get you ignored...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Try specifying the cursor location. Add this to your code:
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open "C:\Documents and Settings\Administrator\Desktop\Sandy\db2.mdb"
rst.CursorLocation = adUseClient
rs.Open "select * from student", con
Set dg1.DataSource = rs
IIRC, Access databases don't support server-side cursors...
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 11:58 Thursday 4th May, 2006
|
|
|
|
|
Dear Sir/Madam,
I am design an VB.Net application for a project and I am using data grid. Can I split the data grid to fixed a column and row heading like we do in Microsoft Excel?
What is the code and command for that?
Regards,
Sithy
|
|
|
|
|
Suddenly the error appear and i don't why....
Query Engine Error:'C:\Documnet ...... \Temp\tem_1edd79...etc.rpt
Help!
Militiaware
Faris Madi
|
|
|
|
|
|
Or you can try to find an answer on the Support forums at http://www.buisnessobjects.com[^]. After all, they wrote Crystal Reports.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I have a MainMenu with multi MenuItem on it. I want to disable that menuitem when that childform open. And enable that menuitem when childform close. How can I control it. Plz help me Thanks a lot.
|
|
|
|
|
Build one function in MDI like this
Public Sub SetMenu(Enable as boolean)
mnuITem.enabled=enable
end sub
and call this from mdiChild
like me.Parent.SetMenu(True)
|
|
|
|
|
Dear Sir/Madam,
I posted my first question here yesterday and received some advice on that. But the result is still empty. For clarity sake: I designed a database application by using VB.Net as interface and SQL Server 2000 as back end data stored. My clients wants to use the local language, Khmer or Cambodian.
The data type for the text string is NvarChar. For example I want to search for a particular person by his/her first name:
I wrote the typical query statement but the result is empty. But when I double check the data stored in the table, there exists such name. I tried to use the "N" keyword, it's still doesn't work.
What is the solution to this situation? Will it support for searching using "like" key word?
Sithy
|
|
|
|
|
how can i call one form's procedure from another form.i have created an object of first form and call ,it works but the values in the first form is not changed.
|
|
|
|
|
I guess You are using VB.Net...
It wont update because they are different objects...
|
|
|
|
|
If they are both of the same type, you can make the method static, which would mean it can't access any member variables. Either way, you can use delegates to hook methods between classes.
Christian Graus - Microsoft MVP - C++
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
