Combo box with filter using VB6

Code on combo box filtering a related combo box using vb6.

  • (2 Pages)
  • +
  • 1
  • 2

19 Replies - 36540 Views - Last Post: 13 October 2011 - 10:47 AM Rate Topic: -----

#1 jeff_sibal  Icon User is offline

  • New D.I.C Head

Reputation: 4
  • View blog
  • Posts: 24
  • Joined: 02-April 07

Combo box with filter using VB6

Post icon  Posted 24 September 2007 - 12:29 AM

Hi guys I'm back.. Want some sample code on combo box or two related combo box using vb6?


Send me your queries. Thanx

Jeff Sibal
Is This A Good Question/Topic? 0
  • +

Replies To: Combo box with filter using VB6

#2 PsychoCoder  Icon User is offline

  • Google.Sucks.Init(true);
  • member icon

Reputation: 1633
  • View blog
  • Posts: 19,853
  • Joined: 26-July 07

Re: Combo box with filter using VB6

Posted 24 September 2007 - 06:04 AM

Maybe you should try Google before coming here and just asking for source code.
Was This Post Helpful? 0
  • +
  • -

#3 jeff_sibal  Icon User is offline

  • New D.I.C Head

Reputation: 4
  • View blog
  • Posts: 24
  • Joined: 02-April 07

Re: Combo box with filter using VB6

Posted 27 September 2007 - 09:55 PM

I'm not asking for a source code... I'm offering help to anyone who want to have a sample code regrading combo box with filter using vb 6.

That's why I said, send me your queries....


Happy Coding too!

JEFF SIBAL

View PostPsychoCoder, on 24 Sep, 2007 - 06:04 AM, said:

Maybe you should try Google before coming here and just asking for source code.

Was This Post Helpful? 0
  • +
  • -

#4 jeff_sibal  Icon User is offline

  • New D.I.C Head

Reputation: 4
  • View blog
  • Posts: 24
  • Joined: 02-April 07

Re: Combo box with filter using VB6

Posted 27 September 2007 - 11:38 PM

sample code for combo box with filter, record saving, editing, deleting, record counting, record selecting, data grid...
Copy/paste the source below or you may download the complete project file.

Note:
After downloading & unzipping the file:
1. Copy paste the folder "SampleData" directly into your "C:\" and folder "Sample" into your Desktop
2. Open the VB6 Project named " Sample.vbp" from the folder "Sample"
3. Thats all all folks!

Happy Programming!

To PsychoCoder... IM NOT ASKING FOR YOUR CODE.. I here to Help Others..God bless you!

>>>>>>>>>>>>>>>>>Copy paste the source code below>>>>>>>>>>>>>>>>>>>>>>

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'This is a sample program code
'Please do not remove this part when you use this code.
'THANK YOU!
'Contributor: JEFF SIBAL OF PHILIPPINES
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Public tempicode, temprcode, temppcode As String 'Constatnt declaration
Public PressAdd As Boolean
Private Sub cboIsland_Click() ' This part displays all the list available in the combo box
With deSample.rsIsland
	.MoveFirst
	.Find "Islandname='" & Me.cboIsland.Text & "'"
	If Not .EOF = True Then
	tempicode = !Icode
	End If
	DoEvents
End With
Me.cboRegion.Enabled = True
End Sub
Private Sub cboIsland_GotFocus() ' Focus the selected item
Me.cboIsland.Clear
With deSample.rsIsland
	.Sort = "icode"
	.MoveFirst
	While Not .EOF
		Me.cboIsland.AddItem StrConv(!Islandname, vbUpperCase)
		.MoveNext
	Wend
End With
DoEvents
End Sub
Private Sub cboProvince_Click() ' This part displays all the list available in the combo box
With deSample.rsProvince
	.MoveFirst
	.Find "province='" & Me.cboProvince.Text & "'"
	If Not .EOF = True Then
		temppcode = !pcode
	End If
End With
DoEvents
End Sub
Private Sub cboProvince_GotFocus() ' Filter all the items under the selected item in the second combo box
Me.cboProvince.Clear
With deSample.rsProvince
	.Filter = "rcode='" & temprcode & "'"
	.Sort = "Province"
	.MoveFirst
		While Not .EOF
			Me.cboProvince.AddItem StrConv(!Province, vbUpperCase)
			.MoveNext
		Wend
End With
DoEvents
End Sub
Private Sub cboRegion_Click() ' This part displays all the list available in the combo box
With deSample.rsRegion
	.MoveFirst
	.Find "region='" & Me.cboRegion.Text & "'"
	If Not .EOF = True Then
		temprcode = !Rcode
	End If
End With
DoEvents
Me.cboProvince.Enabled = True
End Sub
Private Sub cboRegion_GotFocus() ' Filter all the items under the selected item in the first combo box
Me.cboRegion.Clear
With deSample.rsRegion
	.Filter = "icode='" & tempicode & "'"
	.Sort = "Region"
	.MoveFirst
		While Not .EOF
			Me.cboRegion.AddItem StrConv(!Region, vbUpperCase)
			.MoveNext
		Wend
End With
DoEvents
End Sub
Private Sub cmdAdd_Click() ' This procedure is for adding new record or updating existing record.
If cmdAdd.Caption = "Add" Then
PressAdd = True
Call Clear
	Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
	Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
	Me.cmdAdd.Caption = "Save"
	Me.cmdEdit.Caption = "Cancel"
	Me.cmdDelete.Enabled = False
	Me.cmdReturn.Enabled = False
	Me.cmdEdit.Enabled = True
	Me.cboIsland.Enabled = True
	Else
	If PressAdd = True Then
			deSample.rsLocation.AddNew
			Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
			Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
			Me.cmdAdd.Caption = "Add"
			Me.cmdEdit.Caption = "Edit"
			Me.cmdDelete.Enabled = True
			Me.cmdReturn.Enabled = True
			Me.cboIsland.Enabled = False
			Me.cboRegion.Enabled = False
			Me.cboProvince.Enabled = False
				Call Save
				Call CountRecords1
		deSample.rsLocation.Update
		deSample.rsLocation.Resync
		Else
			Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\clip08.ico")
			Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\nOTE16.ico")
			Me.cmdAdd.Caption = "Add"
			Me.cmdEdit.Caption = "Edit"
			Me.cmdDelete.Enabled = True
			Me.cmdReturn.Enabled = True
			Me.cboIsland.Enabled = False
			Me.cboRegion.Enabled = False
			Me.cboProvince.Enabled = False
			Call Save
			Call CountRecords1
		 deSample.rsLocation.Update
		 deSample.rsLocation.Resync
		End If
End If
End Sub
Private Sub cmdDelete_Click() ' Deletes existing record
PressAdd = False
With deSample
	If .rsLocation.RecordCount <> 0 Then
		If MsgBox("Are you sure you want to delete record?", vbYesNo, "Message Alert!") = vbYes Then
		 .rsLocation.Delete
		 Call Clear
		End If
	End If
			If .rsLocation.RecordCount = 0 Then
				MsgBox "R e c o r d   i s   E m p t y!", vbOKOnly, "Alert!"
			End If
End With
End Sub
Private Sub cmdEdit_Click() ' Procedure to edit existing record
If Me.cmdEdit.Caption = "Edit" Then
Me.cmdAdd.Enabled = True
Me.cboIsland.Enabled = True
Me.cmdAdd.Caption = "Save"
Me.cmdEdit.Caption = "Cancel"
Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
Me.cmdDelete.Enabled = False
Me.cmdReturn.Enabled = False
PressAdd = False
Else
		Me.cmdAdd.Caption = "Add"
		Me.cmdEdit.Caption = "Edit"
		Me.cmdDelete.Enabled = True
		Me.cmdReturn.Enabled = True
		Me.cboIsland.Enabled = False
		Me.cboRegion.Enabled = False
		Me.cboProvince.Enabled = False
		Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\clip08.ico")
		Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\nOTE16.ico")
End If
End Sub
Private Sub cmdReturn_Click() 'Closes the data entry form
Unload Me
End Sub
Private Sub DataGrid1_Click() 'Select items in the data grid
	With deSample.rsLocation
		Me.cboIsland.Text = !Islandname
		Me.cboRegion.Text = !Region
		Me.cboProvince.Text = !Province
	End With
End Sub
Private Sub Form_Load() ' Creates ODBC Connection and opens all tables needed for the application
	DoEvents
	Dim sAttrib As String
	Dim sDriver As String
	sAttrib = "DBQ=C:\SampleData\Sample.MDB"
	sDriver = "Microsoft Access Driver (*.mdb)"
	DBEngine.RegisterDatabase "Sample", sDriver, True, sAttrib
	DoEvents

With deSample
	If Not .rsIsland.State = adStateOpen Then
		.rsIsland.Open
	End If
	
	If Not .rsRegion.State = adStateOpen Then
		.rsRegion.Open
	End If
	
	If Not .rsProvince.State = adStateOpen Then
		.rsProvince.Open
	End If
	
End With
Call CountRecords1
End Sub
Private Sub Clear() ' Clears all the combo boxes
With Me
	.cboIsland.Text = ""
	.cboRegion.Text = ""
	.cboProvince.Text = ""
End With
End Sub
Public Sub CountRecords1() ' Counts existing record in the database
With deSample.rsLocation
Me.lblRaters1 = deSample.rsLocation.RecordCount & " Record/s"
Me.lblRaters1.Refresh
End With
End Sub
Private Sub Save() ' Procedure needed to save and update records
	With deSample.rsLocation
		!Islandname = Me.cboIsland.Text
		!Icode = tempicode
		!Region = Me.cboRegion.Text
		!Rcode = temprcode
		!Province = Me.cboProvince.Text
		!pcode = temppcode
	End With
End Sub




* Always use code blocks, like it says in the huge text area you posted this message in :)

Attached File(s)


This post has been edited by PsychoCoder: 28 September 2007 - 04:37 AM

Was This Post Helpful? 0
  • +
  • -

#5 Louisda16th  Icon User is offline

  • dream.in.assembly.code
  • member icon

Reputation: 15
  • View blog
  • Posts: 1,967
  • Joined: 03-August 06

Re: Combo box with filter using VB6

Posted 28 September 2007 - 04:38 AM

Ahhhhhhh!!!! No code tags :crazy: !!!!!
jeff_sibal,
Posts like this would qualify better as snippets or tutorials. More people would have a look at it in those sections. A mod will have to approve your submission first however.
EDIT: Sheesh! You had to edit it while I was posting :P

This post has been edited by Louisda16th: 28 September 2007 - 04:41 AM

Was This Post Helpful? 0
  • +
  • -

#6 PsychoCoder  Icon User is offline

  • Google.Sucks.Init(true);
  • member icon

Reputation: 1633
  • View blog
  • Posts: 19,853
  • Joined: 26-July 07

Re: Combo box with filter using VB6

Posted 28 September 2007 - 04:39 AM

Please don't just create projects where the user just has to download the project, copy & paste the code and be done. They don't learn anything, this community is about teaching, not doing peoples work for them. If you want to offer help like this, please write a tutorial on the subject and submit it :)
Was This Post Helpful? 0
  • +
  • -

#7 jeff_sibal  Icon User is offline

  • New D.I.C Head

Reputation: 4
  • View blog
  • Posts: 24
  • Joined: 02-April 07

Re: Combo box with filter using VB6

Posted 30 September 2007 - 09:06 PM

PsychoCoder,

Ok sir. Thanks for your nice advice. I understand your point and I strongly agree with you..

Peace Brother!

Jeff Sibal

View PostPsychoCoder, on 28 Sep, 2007 - 04:39 AM, said:

Please don't just create projects where the user just has to download the project, copy & paste the code and be done. They don't learn anything, this community is about teaching, not doing peoples work for them. If you want to offer help like this, please write a tutorial on the subject and submit it :)

Was This Post Helpful? 0
  • +
  • -

#8 jeff_sibal  Icon User is offline

  • New D.I.C Head

Reputation: 4
  • View blog
  • Posts: 24
  • Joined: 02-April 07

Re: Combo box with filter using VB6

Posted 03 October 2007 - 06:53 PM

" HAPPY ANNIVERSARY TO ALL MY FELLOW TRISKELIONS WORLDWIDE! LONG LIVE TAU GAMMA PHI TRISKELION GRAND FRATERNITY "

MABUHAY ANG KAPATIRAN NG MGA SUPREMO!
MABUHAY ANG TAU GAMMA PHI!
MABUHAY ANG TRISKELION!


*Dont use font that size (I changed it)

This post has been edited by PsychoCoder: 03 October 2007 - 06:56 PM

Was This Post Helpful? 0
  • +
  • -

#9 Louisda16th  Icon User is offline

  • dream.in.assembly.code
  • member icon

Reputation: 15
  • View blog
  • Posts: 1,967
  • Joined: 03-August 06

Re: Combo box with filter using VB6

Posted 04 October 2007 - 02:26 AM

huh?
Was This Post Helpful? 0
  • +
  • -

#10 uqbahd  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 15-December 08

Re: Combo box with filter using VB6

Posted 03 August 2009 - 02:22 AM

Dear I will be grateful if you help me in following query:

Searching particular Keyword "Device Name" through getting number of devices name in DataCombo-Box using ADODC with ACCESS97 in VB6.

I put DATAGRID to get all Fields but Particular Records to which I want to search the "Device Name" in ACCESS97 Database.

Thanks in Advance

ScorpSpirit.



View Postjeff_sibal, on 23 Sep, 2007 - 11:29 PM, said:

Hi guys I'm back.. Want some sample code on combo box or two related combo box using vb6?


Send me your queries. Thanx

Jeff Sibal

Was This Post Helpful? 0
  • +
  • -

#11 raziel_  Icon User is offline

  • Like a lollipop
  • member icon

Reputation: 463
  • View blog
  • Posts: 4,255
  • Joined: 25-March 09

Re: Combo box with filter using VB6

Posted 03 August 2009 - 02:26 AM

WTF is this treat about ?
Was This Post Helpful? 0
  • +
  • -

#12 dawood_s  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 08-December 09

Re: Combo box with filter using VB6

Posted 09 December 2009 - 12:04 AM

View Postjeff_sibal, on 27 Sep, 2007 - 10:38 PM, said:

sample code for combo box with filter, record saving, editing, deleting, record counting, record selecting, data grid...
Copy/paste the source below or you may download the complete project file.

Note:
After downloading & unzipping the file:
1. Copy paste the folder "SampleData" directly into your "C:\" and folder "Sample" into your Desktop
2. Open the VB6 Project named " Sample.vbp" from the folder "Sample"
3. Thats all all folks!

Happy Programming!

To PsychoCoder... IM NOT ASKING FOR YOUR CODE.. I here to Help Others..God bless you!

>>>>>>>>>>>>>>>>>Copy paste the source code below>>>>>>>>>>>>>>>>>>>>>>

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'This is a sample program code
'Please do not remove this part when you use this code.
'THANK YOU!
'Contributor: JEFF SIBAL OF PHILIPPINES
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Public tempicode, temprcode, temppcode As String 'Constatnt declaration
Public PressAdd As Boolean
Private Sub cboIsland_Click() ' This part displays all the list available in the combo box
With deSample.rsIsland
	.MoveFirst
	.Find "Islandname='" & Me.cboIsland.Text & "'"
	If Not .EOF = True Then
	tempicode = !Icode
	End If
	DoEvents
End With
Me.cboRegion.Enabled = True
End Sub
Private Sub cboIsland_GotFocus() ' Focus the selected item
Me.cboIsland.Clear
With deSample.rsIsland
	.Sort = "icode"
	.MoveFirst
	While Not .EOF
		Me.cboIsland.AddItem StrConv(!Islandname, vbUpperCase)
		.MoveNext
	Wend
End With
DoEvents
End Sub
Private Sub cboProvince_Click() ' This part displays all the list available in the combo box
With deSample.rsProvince
	.MoveFirst
	.Find "province='" & Me.cboProvince.Text & "'"
	If Not .EOF = True Then
		temppcode = !pcode
	End If
End With
DoEvents
End Sub
Private Sub cboProvince_GotFocus() ' Filter all the items under the selected item in the second combo box
Me.cboProvince.Clear
With deSample.rsProvince
	.Filter = "rcode='" & temprcode & "'"
	.Sort = "Province"
	.MoveFirst
		While Not .EOF
			Me.cboProvince.AddItem StrConv(!Province, vbUpperCase)
			.MoveNext
		Wend
End With
DoEvents
End Sub
Private Sub cboRegion_Click() ' This part displays all the list available in the combo box
With deSample.rsRegion
	.MoveFirst
	.Find "region='" & Me.cboRegion.Text & "'"
	If Not .EOF = True Then
		temprcode = !Rcode
	End If
End With
DoEvents
Me.cboProvince.Enabled = True
End Sub
Private Sub cboRegion_GotFocus() ' Filter all the items under the selected item in the first combo box
Me.cboRegion.Clear
With deSample.rsRegion
	.Filter = "icode='" & tempicode & "'"
	.Sort = "Region"
	.MoveFirst
		While Not .EOF
			Me.cboRegion.AddItem StrConv(!Region, vbUpperCase)
			.MoveNext
		Wend
End With
DoEvents
End Sub
Private Sub cmdAdd_Click() ' This procedure is for adding new record or updating existing record.
If cmdAdd.Caption = "Add" Then
PressAdd = True
Call Clear
	Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
	Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
	Me.cmdAdd.Caption = "Save"
	Me.cmdEdit.Caption = "Cancel"
	Me.cmdDelete.Enabled = False
	Me.cmdReturn.Enabled = False
	Me.cmdEdit.Enabled = True
	Me.cboIsland.Enabled = True
	Else
	If PressAdd = True Then
			deSample.rsLocation.AddNew
			Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
			Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
			Me.cmdAdd.Caption = "Add"
			Me.cmdEdit.Caption = "Edit"
			Me.cmdDelete.Enabled = True
			Me.cmdReturn.Enabled = True
			Me.cboIsland.Enabled = False
			Me.cboRegion.Enabled = False
			Me.cboProvince.Enabled = False
				Call Save
				Call CountRecords1
		deSample.rsLocation.Update
		deSample.rsLocation.Resync
		Else
			Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\clip08.ico")
			Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\nOTE16.ico")
			Me.cmdAdd.Caption = "Add"
			Me.cmdEdit.Caption = "Edit"
			Me.cmdDelete.Enabled = True
			Me.cmdReturn.Enabled = True
			Me.cboIsland.Enabled = False
			Me.cboRegion.Enabled = False
			Me.cboProvince.Enabled = False
			Call Save
			Call CountRecords1
		 deSample.rsLocation.Update
		 deSample.rsLocation.Resync
		End If
End If
End Sub
Private Sub cmdDelete_Click() ' Deletes existing record
PressAdd = False
With deSample
	If .rsLocation.RecordCount <> 0 Then
		If MsgBox("Are you sure you want to delete record?", vbYesNo, "Message Alert!") = vbYes Then
		 .rsLocation.Delete
		 Call Clear
		End If
	End If
			If .rsLocation.RecordCount = 0 Then
				MsgBox "R e c o r d   i s   E m p t y!", vbOKOnly, "Alert!"
			End If
End With
End Sub
Private Sub cmdEdit_Click() ' Procedure to edit existing record
If Me.cmdEdit.Caption = "Edit" Then
Me.cmdAdd.Enabled = True
Me.cboIsland.Enabled = True
Me.cmdAdd.Caption = "Save"
Me.cmdEdit.Caption = "Cancel"
Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\arw11sw.ico")
Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\disk04.ico")
Me.cmdDelete.Enabled = False
Me.cmdReturn.Enabled = False
PressAdd = False
Else
		Me.cmdAdd.Caption = "Add"
		Me.cmdEdit.Caption = "Edit"
		Me.cmdDelete.Enabled = True
		Me.cmdReturn.Enabled = True
		Me.cboIsland.Enabled = False
		Me.cboRegion.Enabled = False
		Me.cboProvince.Enabled = False
		Me.cmdAdd.Picture = LoadPicture(App.Path & "\Graphics\clip08.ico")
		Me.cmdEdit.Picture = LoadPicture(App.Path & "\graphics\nOTE16.ico")
End If
End Sub
Private Sub cmdReturn_Click() 'Closes the data entry form
Unload Me
End Sub
Private Sub DataGrid1_Click() 'Select items in the data grid
	With deSample.rsLocation
		Me.cboIsland.Text = !Islandname
		Me.cboRegion.Text = !Region
		Me.cboProvince.Text = !Province
	End With
End Sub
Private Sub Form_Load() ' Creates ODBC Connection and opens all tables needed for the application
	DoEvents
	Dim sAttrib As String
	Dim sDriver As String
	sAttrib = "DBQ=C:\SampleData\Sample.MDB"
	sDriver = "Microsoft Access Driver (*.mdb)"
	DBEngine.RegisterDatabase "Sample", sDriver, True, sAttrib
	DoEvents

With deSample
	If Not .rsIsland.State = adStateOpen Then
		.rsIsland.Open
	End If
	
	If Not .rsRegion.State = adStateOpen Then
		.rsRegion.Open
	End If
	
	If Not .rsProvince.State = adStateOpen Then
		.rsProvince.Open
	End If
	
End With
Call CountRecords1
End Sub
Private Sub Clear() ' Clears all the combo boxes
With Me
	.cboIsland.Text = ""
	.cboRegion.Text = ""
	.cboProvince.Text = ""
End With
End Sub
Public Sub CountRecords1() ' Counts existing record in the database
With deSample.rsLocation
Me.lblRaters1 = deSample.rsLocation.RecordCount & " Record/s"
Me.lblRaters1.Refresh
End With
End Sub
Private Sub Save() ' Procedure needed to save and update records
	With deSample.rsLocation
		!Islandname = Me.cboIsland.Text
		!Icode = tempicode
		!Region = Me.cboRegion.Text
		!Rcode = temprcode
		!Province = Me.cboProvince.Text
		!pcode = temppcode
	End With
End Sub


Attachment attachment

* Always use code blocks, like it says in the huge text area you posted this message in :)



Mr Jeff,

Unable to extract the zip file. Would you please mail it to me on ridahmohib@gmail.com or upload it once again.

Thanks in anticipation
Was This Post Helpful? 0
  • +
  • -

#13 habitualsoul  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 09-December 09

Re: Combo box with filter using VB6

Posted 09 December 2009 - 02:36 PM

Hey Jeff.. I just posted a combobox question .. can u take a look at it for me?
Was This Post Helpful? 0
  • +
  • -

#14 Louisda16th  Icon User is offline

  • dream.in.assembly.code
  • member icon

Reputation: 15
  • View blog
  • Posts: 1,967
  • Joined: 03-August 06

Re: Combo box with filter using VB6

Posted 10 December 2009 - 04:05 AM

Jeff hasn't signed on to dream in code since May. I feel this thread ought to be closed (and possibly push the code to the snippets section).
Was This Post Helpful? 0
  • +
  • -

#15 Guest_dengkee*


Reputation:

Re: Combo box with filter using VB6

Posted 19 June 2010 - 12:22 AM

jeff


where is the initialization of recordsets and database?
Was This Post Helpful? -1

  • (2 Pages)
  • +
  • 1
  • 2