MS Excel/VBA: Querying DB to populate combo boxes

Hi.
I am trying to populate five different combo boxes.
They are in an order of importance - market, product, duration, trade period description and trade date. Therfore, if a user selects a different market, then all of the other combo boxes should automatically update to show, for example, only the products which operate in that market should be visible, and this should be iterated all of the way down the other three combo boxes.
I have written code for this to happen so the query for product only includes those for that market.
However, when I use the ListFillRange to select all of the available products and populate the combo boxes an error occurs sometimes stating "Application-defined or object-defined error". It highlights the .Refresh BackgroundQuery:=False line.
Is there a better way to go about completing this task?
Thanks, Dan.

Sometimes I've seen this in access with form, where the database data has either something line a linefeed character or a load of spaces before the actual
text eg " text" in which case the
columns in the control will be too narrow.
You could try udjusting your coulumns width in its control
You might need to loop through each item in the cotrol and adjust using say
the MID() function or the TRIM() function.

Similar Messages

Populate Combo Box field into another field

I've got a form (form1) based off a table (table1). In the form I have a field from table1 called
bagtype that is a combobox type field with a row source from another table with two fields that show up in the drop down box when selected. When I select a field from the dropdown box only the first field populates the actual form field
(and underlying table) which is what I want. What I'd also like to happen is the second field of the combo box that doesn't populate the bagtype field is for it to populate another field (from table1) on the same form and store that
value in the underlying table as well. The other field in the form is called
AStd.
TAK

Hi,
you need 1 line of VBA code in the AfterUpdate event of the combo box:
Me!NameOfTheTargetFieldOrControl = Me!BagType.Column(1)
The column index is zero based i.e. 0 = first column of the combo box, 1 = second column etc.
cu
Karl
Access FAQ (de/it): donkarl.com
Access Lobby: AccessDevelopers.org

Populate Combo box from recordgroup

I made a procedure to Get the values for a combo box these procedure send the values to another procedure that create a recordgroup and populate the recordgroup and the list. I'm not having errors at compilation time but the list is empty and I have values entered. What would it be.

Eunice,
did you call populate_list('<user_list>',<recordgroup>) ?
Please provide code snippets.
Frank

Populate Combo box on runtime

Hi all,
Please help me to populate a combo box on runtime.
vcclient_no:=FK_SPLIT(vcBuffer);
vcpol_ref:=FK_SPLIT(vcBuffer);
vcmake:=FK_SPLIT(vcBuffer);
vcmodel:=FK_SPLIT(vcBuffer);
vcchassis:=FK_SPLIT(vcBuffer);
i need to populate the values in these variable to a combo box.

There is a built-in called ADD_LIST_ELEMENT, this will help you.

Filtering my DataGridView with Combo Boxes

Hello everyone! I have recently started working with windows form application and I must say it is really
awsome! I have came up with a project but I came across a little problem and I hope some of you might help me!
I have established a local database and managed to connect it to a DataGridView, awsome I can see my database
in my windows form! I have also made 7 combo boxes, each with its strings in it, then i added a button that should filter the data grid view according to the strings the user selected in the combo boxes. My question is, how do i do that? I mean how do i make
the button fillter my DataGridView according to the strings selected in my combo boxes?
Hope for a quick answer, sorry for my english and lack of knowledge in windows form!

Maybe you could go this way:
Populate the combobox manually, first adding "All", then adding the items from industryGroupsDataSet.Tables[0].
Add a BindingSource between companiesDataSet.Tables[0] and dataGridView1.DataSource.
In the SelectedIndexChanged event of the combobox, alter the Filter property of the BindingSource. If the selected index is zero ("All"), set the Filter to null, otherwise set the filter to String.Format("groupID = '{0}'", cmbBxGroupFilter.SelectedValue).
You may also have a look at these too:
filtering data from a
data table to populate combo box on a datagridview based on the user selection
How to search the datagridview
based on values selected in combo box, just like a search based on combo box values
Happy Coding!

Filtering of Data through Combo Box with chart drill down Option.

Hey Guys,
I need to ask one thing about combo box filtering option, i want to filter my data like country, agent, customer and in the end material. I have achieved this through filter component but the thing which bother me is that if i select the specific customer in filter option it directly give's input to other filter's which i don't want. So the alternate is combo box but the thing which is creating problem is that if i filter my data through combo box it doesn't give any option for the chart filtering. For more convenience i am attaching my spreadsheet data which i want to filter. please help me in this matter.
Thanks & Best Regards,
Hassan Ali.
Sample Is Below::
Country
Customer
Material
Austria
David
   Mat 1
Austria
Simon
   Mat 2
China
XYI jo
   Mat 2
China
CHU pa
   Mat 4
India
Suresh
   Mat 1
India
Ramesh
   Mat 5
Sales Quantity
Export Sales
300.000 FT2
1,631,020.77 PKR
600.000 FT2
3,108,107.67 PKR
600.000 FT2
11,917,131.08 PKR
200.000 FT2
8,679,817.14 PKR
760.000 FT2
8,059,453.23 PKR
790.000 FT2
1,727,072.16 PKR

Nothing to do with excel file, just the logic with combo box.

Problem with SQL Query in Excel VBA

I am trying to retrieve data from a SQL table using Excel VBA. The query will only return data from the first field in the query. this is the code I am using:
objGroupConn.Open
Set objGroupCmd.ActiveConnection = objGroupConn
objGroupCmd.CommandText = "SELECT GroupName, GroupNotes, GroupTotal, ArrivalTime" _
& " FROM dbo.tblGroups" _
& " WHERE((tblGroups.VisitDate)= '" & vdate & "')"
objGroupCmd.CommandType = adCmdText
objGroupCmd.Execute
Set objGroupRecordset.ActiveConnection = objGroupConn
objGroupRecordset.Open objGroupCmd
ActiveSheet.Range("BN5").CopyFromRecordset (objGroupRecordset)
objGroupRecordset.Close
objGroupConn.Close
The query is asking for information from 4 fields and only returns GroupName. Any ideas?

Hi GAMinTN,
I can't reproduce your problem, if I created the same table as yours, I can successfully retrieve the data from the table and copy to the specified range.
I recommend that you firstly check if the table in the database contains the proper data in all the 4 columns. Since the command text can be executed successfully and get the data of one column, it should be able to get the data from the other columns.
Also please debug your code, check if the objGroupRecordset contains the proper data, and try to execute the SQL statement directly in the Sql Server, make sure the SQL statement is correct.
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

How do I populate the choices in a Combo Box in a PDF Form from an Excel spreadsheet or text file?

Pleasel let me know if there is a way to copy and paste choices for a Combo Box from an Excel spreadsheet or text file. I have over 250 values I'd like to add and don't trust my typing!
Thanks for the help!
Ken K. - 2191

Yes, using the field.getItemAt method: http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/JS_API_AcroJS.88.745.html
E.g.:
var aItems = [];
var f = getField("combo1");
for (var i = 0; i < f.numItems; i++) {
aItems[i] = f.getItemAt(i);
If there are export values you need to decide how to use the optional bExportValue parameter.

Calling UDF (MS Access) from Excel VBA

Hi,
I need to run a query on an MS Access database that has to perform a weekday calculation between two date columns,
and this query has two date parameters that it receives dynamically. I am using Excel VBA as the front end.
Select AgeRange, count(*) from
(Select IIF(networkdays(date1,date())<=2, "0-2 days","over 2 days")) as AgeRange
from table1
where date2 >= startdt
and date2 <=enddt
) d
group by AgeRange
The actual query is more complex, but this will help illustrate the issue. I build a string variable with
the query, and substitute Startdt and enddt variables with the actual values. I then create a new QueryDef object and get the results from OpenRecordSet.
Except, Networkdays is not a valid function in MS Access. So, this query fails.
I created a WorkDays UDF in MS Access, and used that instead - the query works fine in MS Access, but when
I try to pass it in the QueryDef object, it fails with 3085 error (function not available).
I'm not sure how to get around this, and could use some help.
In summary, I need to run a select query that will calculate weekdays or workdays between two columns (query
is dynamic - dates are variable) from VBA to MS Access, get the results back to VBA so that I can populate the results. Any suggestions are appreciated and welcome.
Thanks!
I tried using datediff with the "w" parameter, but that doesn't work as I had hoped - it gives the
number of weeks between the dates instead of weekdays
I realize that I could get all the data (without doing the group by) down into Excel and then, do the networkdays
formula calculation there, and summarize after that, but that is a very inefficient way - and defeats the purpose of having an access database in the first place. Getting tens of thousands of records is going to cause space issues in Excel too.

Hi Bob,
One solution is to create a table in the Access database storing all the dates in these years, add a column to determine if this date is a week day or not. And create another table to store the dates that are to be excluded from the working days.
In this way, you need to create a separate query to count the valid working days based on the two tables. So the most difficult thing is to create the table that contains all the dates, please check this VBA code snippet which helps you to insert all the
dates into the table.
Sub InsertDatesIntoTable()
Dim StartDate As Date
Dim EndDate As Date
Dim d As Date
Dim w As Integer
Dim IsWorkDay As Boolean
StartDate = #1/1/2015#
EndDate = #12/31/2015#
For d = StartDate To EndDate
Debug.Print d
w = Weekday(d, vbSunday) 'first day of the week is Sunday
If w = 1 Or w = 7 Then ' if the current day is Sunday or Satuday
IsWorkDay = False
Else
IsWorkDay = True
End If
'Here you can insert d and IsWorkDay into the table
Next d
End Sub
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

How to Bind a Combo Box so that it retrieves and display content corresponding to the Id in a link table and populates itself with the data in the main table?

I am developing a desktop application in Wpf using MVVM and Entity Frameworks. I have the following tables:
1. Party (PartyId, Name)
2. Case (CaseId, CaseNo)
3. Petitioner (CaseId, PartyId) ............. Link Table
I am completely new to .Net and to begin with I download Microsoft's sample application and
following the pattern I have been successful in creating several tabs. The problem started only when I wanted to implement many-to-many relationship. The sample application has not covered the scenario where there can be a any-to-many relationship. However
with the help of MSDN forum I came to know about a link table and managed to solve entity framework issues pertaining to many-to-many relationship. Here is the screenshot of my application to show you what I have achieved so far.
And now the problem I want the forum to address is how to bind a combo box so that it retrieves Party.Name for the corresponding PartyId in the Link Table and also I want to populate it with Party.Name so that
users can choose one from the dropdown list to add or edit the petitioner.

Hello Barry,
Thanks a lot for responding to my query. As I am completely new to .Net and following the pattern of Microsoft's Employee Tracker sample it seems difficult to clearly understand the concept and implement it in a scenario which is different than what is in
the sample available at the link you supplied.
To get the idea of the thing here is my code behind of a view vBoxPetitioner:
<UserControl x:Class="CCIS.View.Case.vBoxPetitioner"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:v="clr-namespace:CCIS.View.Case"
xmlns:vm="clr-namespace:CCIS.ViewModel.Case"
mc:Ignorable="d"
d:DesignWidth="300"
d:DesignHeight="200">
<UserControl.Resources>
<DataTemplate DataType="{x:Type vm:vmPetitioner}">
<v:vPetitioner Margin="0,2,0,0" />
</DataTemplate>
</UserControl.Resources>
<Grid>
<HeaderedContentControl>
<HeaderedContentControl.Header>
<StackPanel Orientation="Horizontal" HorizontalAlignment="Right">
<TextBlock Margin="2">
<Hyperlink Command="{Binding Path=AddPetitionerCommand}">Add Petitioner</Hyperlink>
| <Hyperlink Command="{Binding Path=DeletePetitionerCommand}">Delete</Hyperlink>
</TextBlock>
</StackPanel>
</HeaderedContentControl.Header>
<ListBox BorderThickness="0" SelectedItem="{Binding Path=CurrentPetitioner, Mode=TwoWay}" ItemsSource="{Binding Path=tblParties}" />
</HeaderedContentControl>
</Grid>
</UserControl>
This part is working fine as it loads another view that is vPetioner perfectly in the manner I want it to be.
Here is the code of vmPetitioner, a ViewModel:
Imports Microsoft.VisualBasic
Imports System.Collections.ObjectModel
Imports System
Imports CCIS.Model.Party
Namespace CCIS.ViewModel.Case
''' <summary>
''' ViewModel of an individual Email
''' </summary>
Public Class vmPetitioner
Inherits vmParty
''' <summary>
''' The Email object backing this ViewModel
''' </summary>
Private petitioner As tblParty
''' <summary>
''' Initializes a new instance of the EmailViewModel class.
''' </summary>
''' <param name="detail">The underlying Email this ViewModel is to be based on</param>
Public Sub New(ByVal detail As tblParty)
If detail Is Nothing Then
Throw New ArgumentNullException("detail")
End If
Me.petitioner = detail
End Sub
''' <summary>
''' Gets the underlying Email this ViewModel is based on
''' </summary>
Public Overrides ReadOnly Property Model() As tblParty
Get
Return Me.petitioner
End Get
End Property
''' <summary>
''' Gets or sets the actual email address
''' </summary>
Public Property fldPartyId() As String
Get
Return Me.petitioner.fldPartyId
End Get
Set(ByVal value As String)
Me.petitioner.fldPartyId = value
Me.OnPropertyChanged("fldPartyId")
End Set
End Property
End Class
End Namespace
And below is the ViewMode vmParty which vmPetitioner Inherits:
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports CCIS.Model.Case
Imports CCIS.Model.Party
Imports CCIS.ViewModel.Helpers
Namespace CCIS.ViewModel.Case
''' <summary>
''' Common functionality for ViewModels of an individual ContactDetail
''' </summary>
Public MustInherit Class vmParty
Inherits ViewModelBase
''' <summary>
''' Gets the underlying ContactDetail this ViewModel is based on
''' </summary>
Public MustOverride ReadOnly Property Model() As tblParty
'''' <summary>
'''' Gets the underlying ContactDetail this ViewModel is based on
'''' </summary>
'Public MustOverride ReadOnly Property Model() As tblAdvocate
''' <summary>
''' Gets or sets the name of this department
''' </summary>
Public Property fldName() As String
Get
Return Me.Model.fldName
End Get
Set(ByVal value As String)
Me.Model.fldName = value
Me.OnPropertyChanged("fldName")
End Set
End Property
''' <summary>
''' Constructs a view model to represent the supplied ContactDetail
''' </summary>
''' <param name="detail">The detail to build a ViewModel for</param>
''' <returns>The constructed ViewModel, null if one can't be built</returns>
Public Shared Function BuildViewModel(ByVal detail As tblParty) As vmParty
If detail Is Nothing Then
Throw New ArgumentNullException("detail")
End If
Dim e As tblParty = TryCast(detail, tblParty)
If e IsNot Nothing Then
Return New vmPetitioner(e)
End If
Return Nothing
End Function
End Class
End Namespace
And final the code behind of the view vPetitioner:
<UserControl x:Class="CCIS.View.Case.vPetitioner"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:vm="clr-namespace:CCIS.ViewModel.Case"
mc:Ignorable="d"
Width="300">
<UserControl.Resources>
<ResourceDictionary Source=".\CompactFormStyles.xaml" />
</UserControl.Resources>
<Grid>
<Border Style="{StaticResource DetailBorder}">
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="Auto" />
<ColumnDefinition Width="*" />
</Grid.ColumnDefinitions>
<TextBlock Grid.Column="0" Text="Petitioner:" />
<ComboBox Grid.Column="1" Width="240" SelectedValuePath="." SelectedItem="{Binding Path=tblParty}" ItemsSource="{Binding Path=PetitionerLookup}" DisplayMemberPath="fldName" />
</Grid>
</Border>
</Grid>
</UserControl>
The problem, presumably, seems to be is that the binding path "PetitionerLookup" of the ItemSource of the Combo box in the view vPetitioner exists in a different ViewModel vmCase which serves as an ObservableCollection for MainViewModel. Therefore,
what I need to Know is how to route the binding path if it exists in a different ViewModel?
Sir, I look forward to your early reply bringing a workable solution to the problem I face.
Warm Regards,
Arun

How to get Data from SAP B1 through Journal Entries objects (Excel VBA)

Hi Genius
i had try to login SAB B1 thorugh MS Excel VBA code and it worked well. but i need some questions regards getting the data from after login. that means i want the Posting date, Transaction No, account code, debit and credit amount from Journal entries posted in a particular day through MS excel VBA into excel sheets 1 cell A1:E1
how i get it if any possible ways to do that
here my code to login
Public Sub login()
    Sheets("Login").Select 'access the login tab
    Worksheets("Login").Range("B1").Activate 'put focus on cell B1 (manager)
    B1UserID = Trim(ActiveCell.Value2) 'set Businsss One user
    ActiveCell.Offset(1, 0).Activate
    B1Password = Trim(ActiveCell.Value2) 'set Business One password
    ActiveCell.Offset(1, 0).Activate
    sqluser = Trim(ActiveCell.Value2) 'set SQL user
    ActiveCell.Offset(1, 0).Activate
    sqlpass = Trim(ActiveCell.Value2) 'set SQL password
    ActiveCell.Offset(1, 0).Activate
    Db = Trim(ActiveCell.Value2)      'set Database name
    ActiveCell.Offset(1, 0).Activate
    Server = Trim(ActiveCell.Value2) 'set Server name
    Set company1 = New SAPbobsCOM.Company 'initialate DI company object
    company1.DbServerType = dst_MSSQL2005
    company1.Server = Server
    company1.DbUserName = sqluser
    company1.DbPassword = sqlpass
    company1.CompanyDB = Db
    company1.UserName = B1UserID
    company1.Password = B1Password
    'connect to the database
     lRetCode = company1.Connect
        If lRetCode <> 0 Then
            sErrMsg = company1.GetLastErrorDescription
            MsgBox (sErrMsg)
        Else
            MsgBox ("Connected to: " & company1.CompanyName)
        End If
End Sub
pls help me
advance thanks to solvers

Gordons way is the easiest - just query the OJDT table for journal entry headers and JDT1 for journal entry lines if needed.
But if you want to work with the business objects:
'Journal entry
   Dim oJE As SAPbobsCOM.JournalEntries
   Set oJE = company1.GetBusinessObject(oJournalEntries)
   oJE.GetByKey(1234)
   Dim postingDate as String
   postingDate = oJE.DueDate
'etc etc

How to populate the combo boxes that are created dynamically in jsp

Hi,
I am using JSP.
I am creating combo boxes dynamically (based on the num selected by the user). These dynamically created combo boxes need to have A-Z as options (each box) . Now, when the user chooses the option A in any of the combo-boxes,the rest should not have this option. so on..
how do i achieve this.Kindly help.

You'll need to use JavaScript...I have a complicated example and a simple example, however, I cannot really understand the complex example but I know how it works. The looping is too complex for me.
First you'll need to populate a server side variable...depending on how often the data is updated you may want this to run each time a new session is created...this example is run each time Tomcat is started and the application context is initialized:
package kms.web;
// Servlet imports
import javax.servlet.ServletContextListener;
import javax.servlet.ServletContextEvent;
import javax.servlet.ServletContext;
// utility imports
import java.util.Map;
// domain imports
import kms.domain.LocationService;
import kms.domain.DeptService;
import kms.domain.PatentService;
* This listenter is used to initialize
* the Maps of Locations, Patents & Depts used to populate
* pulldown lists in JSPs
public class InitializeData implements ServletContextListener {
    * This method creates the Maps.
   public void contextInitialized(ServletContextEvent sce) {
      ServletContext context = sce.getServletContext();
      LocationService lServ = new LocationService();
      // Create the Maps
      Map campuses = lServ.getCampuses();
      Map buildings = lServ.getBuildings();
      Map floors = lServ.getFloors();
      Map locs = lServ.getLocations();
      // And store them in the "context" (application) scope
      context.setAttribute("campuses", campuses);
      context.setAttribute("buildings", buildings);
      context.setAttribute("floors", floors);
      context.setAttribute("locs", locs);
      DeptService dServ = new DeptService();
      Map depts = dServ.getDepts();
      context.setAttribute("depts", depts);
      PatentService pServ = new PatentService();
      Map patents = pServ.getPatents();
      context.setAttribute("patents", patents);
      //I did this one myself
/*    CodeService cServ = new CodeService();
      Map masterMks = cServ.getCodes();
      context.setAttribute("masterMks", masterMks);
    * This method is necessary for interface.
   public void contextDestroyed(ServletContextEvent sce) {
   // I have no clue what the heck this is for???
   // Let me know if you do!
}So now we travel into the PatentService method called 'getPatents();' which in turn calls a PatentDAO method
Map patents = pServ.getPatents();
Below is the code for the PatentService object:
package kms.domain;
import kms.util.ObjectNotFoundException;
import java.util.*;
* This object performs a variety of dept services, like retrieving
* a dept object from the database, or creating a new dept object.
public class PatentService {
   * The internal Data Access Object used for database CRUD operations.
private PatentDAO patentDAO;
   * This constructor creates a Dept Service object.
public PatentService() {
    patentDAO = new PatentDAO();
public Map getPatents() {
      Map patents = null;
      try {
        patents = patentDAO.retrieveAll();
      // If the dept object does not exist, simply return null
      } catch (ObjectNotFoundException onfe) {
        patents = null;
      return patents;
}It may be useful for you to see the code of the Patent class:
package kms.domain;
/*** This domain object represents a dept.
public class Patent implements java.io.Serializable {
private int codeGgm;
private String name = "";
private String description = "";
private int creator;
private String creationDate = "";
private int used;
   * This is the full constructor.
public Patent(int codeGgm, String name, String desc, int creator, String creationDate, int used) {
    this.codeGgm = codeGgm;
    this.name = name;
    this.description = desc;
    this.creator = creator;
    this.creationDate = creationDate;
    this.used = used;
public Patent() { }
public int getCodeGgm() {
      return codeGgm;
public void setCodeGgm(int codeGgm) {
       this.codeGgm = codeGgm;
public String getName() {
    return name;
public void setName(String name) {
      this.name = name;
public String getDesc() {
    return description;
public void setDesc(String desc) {
      this.description = desc;
public int getCreator() {
      return creator;
public void setCreator(int creator) {
       this.creator = creator;
public String getCreationDate() {
      return creationDate;
public void setCreationDate(String creationDate) {
       this.creationDate = creationDate;
public int getUsed() {
       return used;
public void setUsed(int used){
       this.used = used;
}And here is the Database table which stores the Patents:
DESC PATENT:
CODE_GGM NUMBER(3)
NAME VARCHAR2(15)
DESCRIPTION VARCHAR2(250)
CREATOR NUMBER(10)
CREATION_DATE DATE
USED NUMBER(1)
So, we then travel into the code of the PatentDAO to see how the DAO object executes the DB query to get all of the Data we need for the select list:
package kms.domain;
import javax.naming.*;
import javax.sql.*;
import java.util.*;
import java.sql.*;
import kms.util.*;
* This Data Access Object performs database operations on Patent objects.
class PatentDAO {
   * This constructor creates a Patent DAO object.
   * Keep this package-private, so no other classes have access
PatentDAO() {
* This method returns a Map of all the Dept names
* The key is the Dept id
Map retrieveAll()
     throws ObjectNotFoundException {
      Connection connection = null;
      ResultSet results = null;
      // Create the query statement
      PreparedStatement query_stmt = null;
      try {
        // Get a database connection
      Context initContext = new InitialContext();
       DataSource ds = (DataSource)initContext.lookup("java:/comp/env/jdbc/keymanOracle");
       connection = ds.getConnection();
        // Create SQL SELECT statement
        query_stmt = connection.prepareStatement(RETRIEVE_ALL_NAMES);
        results = query_stmt.executeQuery();
        int num_of_rows = 0;
      Map patents = new TreeMap();
       // Iterator over the query results
        while ( results.next() ) {
            patents.put(new Integer(results.getInt("code_ggm")), results.getString("name"));
         if ( patents != null ) {
                return patents;
              } else {
                throw new ObjectNotFoundException("patent");
       // Handle any SQL errors
     } catch (SQLException se) {
        se.printStackTrace();
       throw new RuntimeException("A database error occured. " + se.getMessage());
    } catch (NamingException se) {
      throw new RuntimeException("A JNDI error occured. " + se.getMessage());
      // Clean up JDBC resources
      } finally {
        if ( results != null ) {
          try { results.close(); }
          catch (SQLException se) { se.printStackTrace(System.err); }
        if ( query_stmt != null ) {
          try { query_stmt.close(); }
          catch (SQLException se) { se.printStackTrace(System.err); }
        if ( connection != null ) {
          try { connection.close(); }
          catch (Exception e) { e.printStackTrace(System.err); }
private static final String RETRIEVE_ALL_NAMES
      = "SELECT code_ggm, name FROM patent ";
}Now when you wish to use the 'combo box' (also called select lists), you insert this code into your jsp:
<TR>
<%@ include file="../incl/patent.jsp" %>
</TR>
depending on how your files on your server are organized, the "../incl/patent.jsp"
tells the container to look up one directory from where the main jsp is to find the 'patent.jsp' file in the 'incl' directory.
I need some help creating multi-level select lists with JavaScript:
Can anyone explain this code:
<%@ page import="java.util.*,kms.domain.*" %>
<jsp:useBean id="campuses" scope="application" class="java.util.Map" />
<TR><TD ALIGN='right'>Campus: </TD>
<TD>
<select name="campus" size="1" onChange="redirect(this.options.selectedIndex)">
<option value="0" selected>No Campus</option>
<% LocationService ls = new LocationService();
   Iterator c = campuses.keySet().iterator();
   Map[] bm = new Map[campuses.size()];
   Map[][] fm = new Map[campuses.size()][0];
   Map[][][] lm = new Map[campuses.size()][0][0];
   int i2 = 0;
   int j2 = 0;
   int k2 = 0;
   int jj = 0;
   int kk = 0;
   while (c.hasNext()) {
      Integer i = (Integer)c.next();
      out.print("<OPTION ");
      out.print("VALUE='" + i.intValue()+ "'>");
      out.print( (String) campuses.get(i) );
      out.print("</OPTION>");
      bm[i2] = ls.getBuildingsByCampus(i.intValue());
      fm[i2] = new Map[bm[i2].size()];
      lm[i2] = new Map[bm[i2].size()][];
      Iterator b = bm[i2].keySet().iterator();
      j2 = 0;
      while (b.hasNext()) {
        Integer j = (Integer)b.next();
        fm[i2][j2] = ls.getFloorsByBuilding(j.intValue());
        lm[i2][j2] = new Map[fm[i2][j2].size()];
        Iterator f = fm[i2][j2].keySet().iterator();
        k2 = 0;
        while (f.hasNext()) {
          Integer k = (Integer)f.next();
          lm[i2][j2][k2] = ls.getLocationsByFloor(k.intValue());
          k2++;
          kk++;
        j2++;
        jj++;
      i2++;
   } %>
</select></TD>
</TR>
<TR><TD ALIGN='right'>Building: </TD>
<TD>
<select name="building" size="1" onChange="redirect1(this.options.selectedIndex)">
<option value="0" selected>No Building</option>
</select></TD>
</TR>
<TR><TD ALIGN='right'>Floor: </TD>
<TD>
<select name="floor" size="1" onChange="redirect2(this.options.selectedIndex)">
<option value="0" selected>No Floor</option>
</select></TD>
</TR>
<TR><TD ALIGN='right'>Room: </TD>
<TD>
<select name="location_id" size="1">
<option value="0" selected>No Room</option>
</select></TD>
</TR>
<script>
var cNum = <%=i2%>
var bNum = <%=jj%>
var fNum = <%=kk%>
var cc = 0
var bb = 0
var ff = 0
var temp=document.isc.building
function redirect(x){
cc = x
for (m=temp.options.length-1;m>0;m--)
temp.options[m]=null
temp.options[0]=new Option("No Building", "0")
if (cc!=0) {
    for (i=1;i<=group[cc-1].length;i++){
      temp.options=new Option(group[cc-1][i-1].text,group[cc-1][i-1].value)
temp.options[0].selected=true
redirect1(0)
var group=new Array(cNum)
for (i=0; i<cNum; i++) {
group[i]=new Array()
<% for (int i=0; i< bm.length; i++) {
Iterator bldgs = bm[i].keySet().iterator();
int j = 0;
while (bldgs.hasNext()) {
Integer intJ =(Integer) bldgs.next(); %>
group[<%=i%>][<%=j%>] = new Option("<%=bm[i].get(intJ)%>", "<%=intJ%>");
<% j++;
} %>
var group2=new Array(cNum)
for (i=0; i<cNum; i++) {
group2[i] = new Array()
for (j=0; j<=bNum; j++) {
group2[i][j] = new Array()
<% for (int i=0; i< fm.length; i++) {
for (int j=0; j< fm[i].length; j++) {
Iterator flrs = fm[i][j].keySet().iterator();
int k = 0;
while (flrs.hasNext()) {
Integer intK =(Integer) flrs.next(); %>
group2[<%=i%>][<%=j%>][<%=k%>] = new Option("<%=fm[i][j].get(intK)%>", "<%=intK%>");
<% k++;
} %>
var temp1=document.isc.floor
var camp=document.isc.campus.options.selectedIndex
function redirect1(x){
bb = x
for (m=temp1.options.length-1;m>0;m--)
temp1.options[m]=null
temp1.options[0]=new Option("No Floor", "0")
if (cc!=0 && bb!=0) {
for (i=1;i<=group2[cc-1][bb-1].length;i++){
temp1.options[i]=new Option(group2[cc-1][bb-1][i-1].text,group2[cc-1][bb-1][i-1].value)
temp1.options[0].selected=true
redirect2(0)
var group3=new Array(cNum)
for (i=0; i<cNum; i++) {
group3[i] = new Array()
for (j=0; j<=bNum; j++) {
group3[i][j] = new Array()
for (k=0; k<=fNum; k++) {
group3[i][j][k] = new Array()
<% for (int i=0; i< lm.length; i++) {
for (int j=0; j< lm[i].length; j++) {
for (int k=0; k< lm[i][j].length; k++) {
Iterator locs = lm[i][j][k].keySet().iterator();
int m = 0;
while (locs.hasNext()) {
Integer intM =(Integer) locs.next(); %>
group3[<%=i%>][<%=j%>][<%=k%>][<%=m%>] = new Option("<%=lm[i][j][k].get(intM)%>", "<%=intM%>");
<% m++;
} %>
var temp2=document.isc.location_id
function redirect2(x){
ff = x
for (m=temp2.options.length-1;m>0;m--)
temp2.options[m]=null
temp2.options[0]=new Option("No Room", "0")
if (cc!=0 && bb!=0 && ff!=0) {
for (i=1;i<=group3[cc-1][bb-1][ff-1].length;i++){
temp2.options[i]=new Option(group3[cc-1][bb-1][ff-1][i-1].text,group3[cc-1][bb-1][ff-1][i-1].value)
temp2.options[0].selected=true
</script>
This produces a related select list with 4 related lists by outputting JavaScript to the page being served. It works the same way as the first example that I describe but I don't understand the looping...maybe someone could explain how to go from the single select list to a double and/or triple level drill down?

Date parameter has error in Excel VBA

Hi Expert,
I follow up experts code to create a query in Excel VBA, but when running, I got error(Invalid column name "StartDate") in SQL query. I don't know how to fix it because beginner. I hope somebody can help.
The code is this.
Public Sub Run()
Dim SQL As String
Dim Connected As Boolean
Dim StartDate As Date
Dim curdate As Date
Dim MsgDate As String
Dim TitleMsg As String
MsgDate = "Enter the Start Date in A2 to use for these Timesheets (d/mm/yy), or Accept the Default (Today - 30)"
TitleMsg = "Timesheet Start Date"
curdate = Date - 30
MsgBox (MsgDate)
StartDate = Application.InputBox(MsgDate, TitleMsg, FormatDateTime(curdate, vbShortDate), Type:=1)
' Our query
SQL = "select [Posting Date],[Ship-to Code],[External Document No_],[Order No_],[Pallet Amount]" & _
"from dbo.[Valley Fine Foods$Sales Shipment Header]" & _
"where [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= ""'StartDate'"";"
' Connect to the database
Connected = Connect("vffserver9m", "vffnav2013")
If Connected Then
' If connected run query and disconnect
Call Query(SQL)
Call Disconnect
Else
' Couldn't connect
MsgBox "Could Not Connect!"
End If
End Sub
James Liang

Try
SQL = "SELECT [Posting Date], [Ship-to Code], [External Document No_], [Order No_], [Pallet Amount] " & _
"FROM dbo.[Valley Fine Foods$Sales Shipment Header] " & _
"WHERE [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= #" & _
Format(StartDate, "yyyy-mm-dd") & "#"
or
SQL = "SELECT [Posting Date], [Ship-to Code], [External Document No_], [Order No_], [Pallet Amount] " & _
"FROM dbo.[Valley Fine Foods$Sales Shipment Header] " & _
"WHERE [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= '" & _
Format(StartDate, "yyyy-mm-dd") & "'"
Regards, Hans Vogelaar (http://www.eileenslounge.com)

How to make Excel VBA (on Windows OS) to work on Mac

Hi,
I have made an application which uses Excel forms and other features of Excel Form 9like Title, Combo Box, List Box, Buttons etc).
The code works well on Windows OS however when I run it on Mac it fails to work. Can anyone help me how to make this work.
Regards, Hitesh

Hi ExcelUser2507,
To be honest, I do not have much experience about Office for Mac.
>> The code works well on Windows OS however when I run it on Mac it fails to work.
This is possible, MAC and Windows are 2 different platforms and the features of Office System on this 2 platform is also inconsistent (the Office for Windows has more rich features).
>> How to make Excel VBA (on Windows OS) to work on Mac
This forum is mainly for discussing question about the Office on Windows platform.
The thread below may help, and Office for Mac forum should be more appropriate for asking questions about Office for Mac.
http://answers.microsoft.com/en-us/mac/forum/macoffice2011-macword/vba-support-on-office-mac/5023cdbc-fadf-4e39-a49f-59d2534aef85
Hope it will help.
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

How to populate data in the data table on combo box change event

hi
i am deepak .
i am very new to JSF.
my problem is i want to populate data in the datatable on the combo box change event.
for example ---
combo box has name of the city. when i will select a city
the details of the city should populate in the datatable. and if i will select another city then the datatable should change accordingly..
its urgent
reply as soon as possible
thanks in advance

i am using Rational Application Developer to develop my application.
i am using a combo box and i am assigning cityName from the SDO.
and i am declaring a variable in the pageCode eg.
private String cityName;
public void setCityName(String cityName){
this.cityName = cityName;
public String getCityName(){
return cityName;
<h:selectOneMenu id="menu1" styleClass="selectOneMenu" value="#{pc_Test1.loginID}" valueChangeListener="#{pc_Test1.handleMenu1ValueChange}">
                    <f:selectItems
                         value="#{selectitems.pc_Test1.usercombo.LOGINID.LOGINID.toArray}" />
               </h:selectOneMenu>
               <hx:behavior event="onchange" target="menu1" behaviorAction="get"
                    targetAction="box1"></hx:behavior>
and also i am declaring a requestParam type variable named city;
and at the onChangeEvent i am writing the code
public void handleMenu1ValueChange(ValueChangeEvent valueChangedEvent) {
FacesContext context = FacesContext.getCurrentInstance();
Map requestScope = ext.getApplication().createValueBinding("#{requestScope}").getValue(context);
requestScope.put("login",(String)valueChangedEvent.getNewValue());
and also i am creating another SDO which is used to populate data in datatable and in this SDO in the where clause i am using that requestParam .
it is assigning value in the pageCode variable and in the requestParam but it is not populating the dataTable. i don't no why??
it is possible that i may not clear at this point.
please send me the way how my problem can be solved.
thanks in advance

MS Excel/VBA: Querying DB to populate combo boxes

Similar Messages

Maybe you are looking for