BorlandTalk.com

Grant · Guest

Hi all I have a access database." mail.mdb".

I am trying to loop through all the records in a field. Field name is
"ListName".
This is were I am.
ShowMessage(Query1.fieldbyname('ListName').AsString);
My Sql is. select * from ListNames where ListName = :param1.
So I want to show message of all info in the field ListName.
Thanks in advance for helping.

Bill Todd · Guest

Grant wrote:

Grant · Guest

Yes I need to loop through the rows
returned by the query and concatenate all of the returned ListNames
into a string. Well i need to loop through all and populate a combobox.
Thanks
Grant
"Bill Todd" <no (AT) no (DOT) com> wrote in message
news:45293a39$1 (AT) newsgroups (DOT) borland.com...

Bill Todd · Guest

Grant wrote:

Grant · Guest

Tlhanks for helping me. I do not no any SQL.
Lets say there is 20 records . The field ListName might have list1,
list2.list3, list4 and so on. I need to figure out the correct sql to loop
through all the records and return info to a combobox. I hope this willl
clear it up. Thanks for all comments.

"Bill Todd" <no (AT) no (DOT) com> wrote in message
news:452940ff (AT) newsgroups (DOT) borland.com...

Bill Todd · Guest

Ok. Since you posted in the ADO newsgroup I assume you are using and
ADODataSet to execute the SELECT statement. The code would be almost
the same if you use an ADOQuery.

// Assign a value to the parameter in the SELECT statement.
AdoDataSet1.Parameters.ParamByName('Param1').Value := TheListName'
// Execute the query.
AdoDataSet1.Open;
// Empty the combobox.
ComboBox1.Items.Clear;
// Loop through the records returned by the query and add the
// ListName value to the combobox.
while not AdoDataSet1.EOF do
begin
ComboBox1.Items.Add(AdoDataSet1.FieldByName('ListName').AsString);
AdoDataSet1.Next;
end;

--
Bill Todd (TeamB)

Grant · Guest

Thanks for you patience and help. I am useing an ado.query. look below.

// Assign a value to the parameter in the SELECT statement.
Query1.Parameters.ParamByName('Param1').Value := 'ListName';
// Execute the query.
Query1.Open;
// Empty the combobox.
ComboBox1.Items.Clear;
// Loop through the records returned by the query and add the
// ListName value to the combobox.
while not Query1.EOF do
begin
ComboBox1.Items.Add(Query1.FieldByName('ListName').AsString);
Query1.Next;
I enter in a,b,c,d and when i run the app it just load the letter d into the
combobox.. I wornder is my sql statement correct. here it is.
select * from ListNames where ListName = :param1 .

I wornder if i need to alter the statmemt. Again I do not know SQL .

Thanks

Grant

"Bill Todd" <no (AT) no (DOT) com> wrote in message
news:45297c3c (AT) newsgroups (DOT) borland.com...

Bill Todd · Guest

Show us the actual code that you are using that does not work.

--
Bill Todd (TeamB)

Grant · Guest

Thanks for looking.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOTable2ID: TAutoIncField;
ADOTable2ListName: TWideStringField;
DBGrid2: TDBGrid;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
DBCheckBox1: TDBCheckBox;
Label3: TLabel;
DBEdit3: TDBEdit;
DBNavigator1: TDBNavigator;
Label4: TLabel;
DBEdit4: TDBEdit;
DBNavigator2: TDBNavigator;
Label5: TLabel;
ADOTable1ID: TAutoIncField;
ADOTable1Salutation: TWideStringField;
ADOTable1FirstName: TWideStringField;
ADOTable1Company: TWideStringField;
ADOTable1LastName: TWideStringField;
ADOTable1Address1: TWideStringField;
ADOTable1Address2: TWideStringField;
ADOTable1City: TWideStringField;
ADOTable1State: TWideStringField;
ADOTable1Zip: TIntegerField;
ADOTable1Country: TWideStringField;
ADOTable1Phone: TIntegerField;
ADOTable1Fax: TIntegerField;
ADOTable1DoNotSend: TBooleanField;
ADOTable1EMail: TWideStringField;
ADOTable1List: TWideStringField;
Label6: TLabel;
DBEdit5: TDBEdit;
DBComboBox1: TDBComboBox;
Query1: TADOQuery;
DataSource3: TDataSource;
Button1: TButton;
Edit1: TEdit;
Query1ID: TAutoIncField;
Query1ListName: TWideStringField;
Query1ListName2: TWideStringField;
Label7: TLabel;
DBEdit6: TDBEdit;
DBComboBox2: TDBComboBox;
Button2: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close; //A good thing to begin with closing the query
Query1.SQL.clear; //Clear the SQL

//Now we add the SQL statement (getting all the the info from
//the table InfoComputer that meet a specific os (param1)
Query1.sql.Add('select * from ListNames where ListName = :param1');

{Call ParseSQL to parse the SQL statement for parameters.

From Delphi HELP :
function ParseSQL(SQL: String; DoCreate: Boolean): String;

-SQL is a String containing the SQL statement to parse.
-DoCreate indicates whether to clear all existing parameter definitions
before parsing the SQL statement.
}
Query1.Parameters.ParseSQL(Query1.SQL.Text, True);

// Give a value to our parameter

Query1.Parameters.ParamByName('param1').value := Edit1.text;

//Open the query
Query1.open;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Assign a value to the parameter in the SELECT statement.
Query1.Parameters.ParamByName('Param1').Value := 'ListName';
// Execute the query.
Query1.Open;
// Empty the combobox.
ComboBox1.Items.Clear;
// Loop through the records returned by the query and add the
// ListName value to the combobox.
while not Query1.EOF do
begin
ComboBox1.Items.Add(Query1.FieldByName('ListName').AsString);
Query1.Next;

end;
end;
end.
"Grant" <grantfullen (AT) yahoo (DOT) com> wrote in message
news:45298a39 (AT) newsgroups (DOT) borland.com...

Bill Todd · Guest

What you posted is of no help at all. First, I do not need and did not
ask for the entire contents of the form's unit. I asked for the code
you are using that does not work. Instead, you posted two OnClick event
handlers. How am I supposed to know which one you are using? I will try
one last time. Please post:

1) Just the code you are executing that does not work.
2) The actual value you assign to the parameter in the query.
3) A clear description of what you want to happen and what actually
does (or does not) happen including the complete and exact text of any
error messages that are displayed.

--
Bill Todd (TeamB)

Grant · Guest

I'm using the code you gave me to populate the combobox with the ListName
fields in the table.

(1.) Here's the code:

// Assign a value to the parameter in the SELECT statement.
Query1.Parameters.ParamByName('Param1').Value := 'ListName';
// Execute the query.
Query1.Open;
// Empty the combobox.
ComboBox1.Items.Clear;
// Loop through the records returned by the query and add the
// ListName value to the combobox.
while not Query1.EOF do
begin
ComboBox1.Items.Add(Query1.FieldByName('ListName').AsString);
Query1.Next;
end;
end;

(2.) The parameter is select * from ListNames where ListName = :param1

(3.) Here's what I want to happen. Let's say I have 10 records, which will
be a,b,c,d,e,f,g,h,i,j. These will be in the ListNames field when you add a
record. When I click the button, I want to populate the combobox with all
the a,b,c, etc. records in the ListName field.

When I use the code you gave me, it only adds the last record in that field,
which would be j.

Thanks.
"Bill Todd" <no (AT) no (DOT) com> wrote in message
news:4529a3de$1 (AT) newsgroups (DOT) borland.com...

Bill Todd · Guest

Grant wrote:

Grant · Guest

Thanks very much for your help.
Grant
"Bill Todd" <no (AT) no (DOT) com> wrote in message
news:452a4502$1 (AT) newsgroups (DOT) borland.com...