Zeoslib Portal

Code: Select all

  // mysql table name:
  NameStr := MySqlConnection.Database + '.' + MySqlTable.TableName;

  // create mysql table:

  TableList := TStringList.Create;
  try
    MySqlConnection.Connect;
    MySqlConnection.GetTableNames(MySqlTable.TableName, TableList);
    if (TableList.Count > 0) then
      ShowMessage('mysql: table ''' + NameStr + ''' already exists.')
    else
    begin
      ShowMessage('mysql: table ''' + NameStr + ''' not found. creating....');
      CreateTableProcessor.Connection := MySqlConnection;
      CreateTableProcessor.Execute;
    end;
  finally
    FreeAndNil(TableList);
  end;

  // temporary fix for insert problem:
{  MySqlConnection.Disconnect;
  MySqlConnection.Connect;{}

  // load mysql table:
  ShowMessage('mysql: loading existing data from table ''' + NameStr + '''...');
  MySqlTable.Active := True;

  // populate mysql table:

  if (not MySqlTable.IsEmpty) then
    ShowMessage('mysql: table ''' + NameStr + ''' already contains data.')
  else
  with MySqlTable do
  begin
    ShowMessage('mysql: inserting data into table ''' + NameStr + '''...');
    DisableControls;
    Append;
    Fields[1].AsInteger := 5;
    Fields[2].AsString := 'five';
    Append;
    Fields[1].AsInteger := 12;
    Fields[2].AsString := 'twelve';
    Append;
    Fields[1].AsInteger := 40;
    Fields[2].AsString := 'fourty';
    Append;
    Fields[2].AsString := 'zero';
    Post;
    ApplyUpdates;
    EnableControls;
  end;

Code: Select all

CREATE TABLE sqlitetest (
  Id INTEGER PRIMARY KEY AUTO_INCREMENT NOT NULL,
  IntData INTEGER DEFAULT 0,
  TextData CHAR(10)
);