dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Relational Databases
Expertise: Beginner
Dec 5, 1997

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


Creating a table using code

Question:
Hi, Each time l try to create a table using code-not the database explorer, i get an error message: access violation at address 0042f540 read of address 7466654c. Whats the problem, how can l create a table using delphi code only?

Answer:
The only reason I can think of that explains this is that you're not instantiating the TTable variable. For instance,

MyTable.CreateTable;
alone will not work. You have to set up the database, tablename, and tabletype, and fielddefs properties. Here's a code snippet that I know works:
var
  tbl, sTbl : TTable;
  typStr : String;
  ch : Char;
begin
  {Create and set up the Destination Table}
  tbl := TTable.Create(Application);
  with tbl do begin
    SessionName := ThrSes.SessionName;
    DatabaseName := ExtractFilePath(TblName);
    TableName := ExtractFileName(TblName);
    TableType := ttParadox;
    FieldDefs.Add('Field1', ftString, 10, False);
    FieldDefs.Add('Field2', ftString, 25, False);
    CreateTable;
    Free;
  end;
This is something that I pulled out from one of my own programs, and I know that it works - though I've edited it a bit for simplicity. You can use this code as a template.
DevX Pro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date