StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
15206338
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
2
CommunityOwnedDate
CreationDate
2013-03-04T16:33:29.437
FavoriteCount
0
LastActivityDate
2013-03-04T17:47:47.490
LastEditDate
2013-03-04T17:47:47.490
LastEditorUserId
548280
OwnerUserId
548280
ParentId
15202777
PostTypeId
2
Score
1
ViewCount
0
LastEditorDisplayName
text
Body
<p>Don't know if TUNIQuery has ExecSql method but this will work with TADOQuery, in my case the ListView.ViewStyle is set to vsReport and it contains 4 cols.</p> <p>I think if you use a StringGrid or a Dbgrid will be much easier to handel </p> <pre><code>procedure TForm1.PostData; const SQLCMD = 'INSERT INTO MYTABLE (NAME, POSITION, SALL, DATE) VALUES '+ '(%s, %s, %s, %s)'; var // IL: TListItem; I, J, ItemsCount, SubItemsCount: integer; LineItem: array of string; begin ItemsCount:= ListView1.Items.Count; for I := 0 to ItemsCount - 1 do // looping thru the items begin SubItemsCount:= ListView1.Items[I].SubItems.count; SetLength(LineItem, SubItemsCount + 1); LineItem[0]:= ListView1.Items[0].Caption; // the first item caption (first col) for J := 0 to SubItemsCount - 1 do // looping thru the subitems of each line LineItem[J+1]:= ListView1.Items[I].SubItems.Strings[J]; // // just to see the sql command // ShowMessage( // Format(SQLCMD, [ QuotedStr(LineItem[0]), // QuotedStr(LineItem[1]), // LineItem[2], //int field no need to quote the parameter // QuotedStr(LineItem[3])] // )); // with TAdoQuery.Create(nil) do try ConnectionString:= 'Your Connection String'; SQL.Text:= Format(SQLCMD, [QuotedStr(LineItem[0]), QuotedStr(LineItem[1]), LineItem[2], //int field no need to quote the parameter QuotedStr(LineItem[3])); ExecSql; // you might handel execsql to know the row was affected, also not sure if unidac have the same method finally Free; end; SetLength(LineItem, 0); end; end; </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POinsert data from listview into database delphi
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USRaul
UserOwnerUserId
1. USRaul
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POinsert data from listview into database delphi
  singulars
  PostTypePostTypeId
  PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTUpMod
2. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTAcceptedByOriginator
CommentsPostId
1. COthanks for your attention, i will check it later and give back reports
  singulars
  PostPostId
  PO
  UserUserId
  USvkatsitadze
2. COafter little changes, i have working source. thanks
  singulars
  PostPostId
  PO
  UserUserId
  USvkatsitadze

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.