Non-visual data access

I have just begun working with SQL and Delphi and am trying to read up on it, but everything wants me to use the VCL.

I have a simple task I want to complete, and don't want any visual components to do it.

I pull data from an LDAP server and store it all in a TList.
I then want to take the data in my tlist and write it to fields in a SQL table.

Then i'll want another function to read the data that is there, store it back in my TList so I can do what I need to do with it there.

I know what connection string i want to use, etc... I just can't seem to figure out how to read/write data in my sql table without using DBGrid or anything visual.

Any help?
gwarguitarAsked:
Who is Participating?
 
geobulConnect With a Mentor Commented:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add ('SELECT * FROM tablename');
  ADOQuery1.Open; // get dataset
  while not ADOQuery1.EOF do begin // loop dataset
    ui.first_name := ADOQuery1.FieldByName('FirstName').AsString; // read fields in a record
    ui.last_name := ADOQuery1.FieldByName('LastName').AsString;
    List1.Add(ui); // add the record to the list
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;

Regards, Geo
0
 
BlackTigerXCommented:
you can either drop some ADOConnection and ADOQuery to your form, those are not visual components, but you can modify it's properties in the Object Inspector
or you can create those dinamically, something like this:

var
  myADOConn:TADOConnection;
  myADOQuery:TADOQuery;
const
  CONN_STR = 'Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;User ID=%s;Initial Catalog=%s;Data Source=%s';
begin
  myADOConn:=TADOConnection.Create(nil);
  myADOQuery:=TADOQuery.Create(nil);
  try
    myADOConn.LoginPrompt:=False;
    myADOConn.Mode:=cmShareDenyNone;
    myADOConn.ConnectionString:=Format(CONN_STR, [
           'DBPassword', 'DBUser', 'DBDatabase', 'DBServer']);
    myADOQuery.Connection:=myADOConn;
    myADOQuery.SQL.Text:='insert into table, blablabla';
    myADOQuery.ExecSQL;
  finally
    myADOConn.Connected:=False;
    myADOQuery.Free;
    myADOConn.Free
  end
end;
0
 
BlackTigerXCommented:
if you drop the components in the form, all you need from this code is:

myADOQuery.SQL.Text:='insert into table, blablabla'; //your query here
    myADOQuery.ExecSQL;

the rest you can change it in the Object Inspector
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
gwarguitarAuthor Commented:
yeah, i don't mind the components, i just want to pull the data non visually.

what about reading to my tlist?
0
 
gwarguitarAuthor Commented:
here, i'll give a more specific example...

type
  PUserInfo = ^TUserInfo;
  TUserInfo = record
    first_name : ShortString;
    last_name  : ShortString;
  end;

that's my tlist

and the fields in my db..

 [FirstName] [varchar] (35) NOT NULL ,
 [LastName] [varchar] (35) NOT NULL

there are more fields, but that will give me an idea.

so how do i loop through every item in my tlist, adding data to the db where appropriate. then the other way around?


0
 
BlackTigerXConnect With a Mentor Commented:
var UserInfo:TUserInfo;
begin
    for X:=0 to myList.Count-1 do //myList is your list of pointers...
    begin
      UserInfo:=TUserInfo(myList.Items[X]^); //get the user information out of the list
      myADOQuery.SQL.Text:='insert into your table (FirstName, LastName) '+
      'values ('+QuotedStr(UserInfo.first_name)+','+QuotedStr(UserInfo.last_name)+')';
      myADOQuery.ExecSQL
    end

//myADOQuery is the variable I showed you in the other example
0
 
BlackTigerXCommented:
this part:

myADOQuery.SQL.Text:='insert into your table (FirstName, LastName) '+

needs to be whatever the name of your table is:

myADOQuery.SQL.Text:='insert into YOURTABLENAMEHERE (FirstName, LastName) '+
0
 
esoftbgCommented:
> .... I just can't seem to figure out how to read/write data in my sql table without using DBGrid or anything visual.

Ofcourse you don't need DBGrid to read/write data (Data is reading and writing by TADOQuery, TADOTAble .... TQuery, TTable .... ): DBGrid is for visualization, editing and / or inserting data ... If you don't need visualization, editing and / or inserting data you may work without DBGrid and without anything visual.
0
 
gwarguitarAuthor Commented:
woohoo! that works..

what about reading to my tlist? what statement would i use for that?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.