Zeoslib Portal

CREATE TABLE `articles` (
    `CODE` varchar (40),
    `Article` varchar (60),
    `Color` varchar (30) NOT NULL default '',
    PRIMARY KEY ( `CODE`)
) Type = InnoDB;

CREATE TABLE `articles` (
    `CODE` varchar (40),
    `Article` varchar (60),
    `Color` varchar (30) NOT NULL,
    PRIMARY KEY ( `CODE`)
) Type = InnoDB;

bibopp wrote:Hi everybody

I'am using zeoslib 6.6.5 and Delphi7, my program read from sqlserver 2005 express database and write to mysql 5.1 database.

All works fine, zeoslib are great and faster on mysql side.

Testing my software I found a strange behaviour. The scenario is this:
table on mysql with 'field1' not null and 'field2' null allowed, then the first insert on table just created fails with message: 'Field field1 is required, but not supplied.'.

I'am using TZQuery with TZUpdateSQL associated, all my insert query are parametric so, for the example, query is: 'insert into table (field1, field2) values(:pfield1, pfield2)'.

Note that if I alter table and set nulls allowed on field1 all works fine (this is obvious) but all works also after I reset nulls on field1 exactly it must be. This is the behaviour I can't explain.

Any idea.

Thanks a lot.

CREATE TABLE `TESTNULL` (
  `CODE` int(6) AUTO_INCREMENT,
  `Article` varchar(30),
  `Color` varchar(20) NOT NULL,
  PRIMARY KEY (`CODE`)
) ENGINE=InnoDB

mdaems wrote:Hi,

This is a little strange.
Seems to me like mysql might return different values from the SHOW TABLES FROM %s LIKE '%s' statement depending on server version. Can you compare this? Here's the code in Zeoslib raising this error.

Code: Select all

  procedure Checkrequired;

  var
    I: longint;
    columnindex : integer;

  begin
    For I:=0 to Fields.Count-1 do
      With Fields[i] do
        Case State of
         dsEdit:
          if Required and not ReadOnly and (FieldKind=fkData) and IsNull then
            raise EZDatabaseError.Create(Format(SNeedField,[DisplayName]));
         dsInsert:
          if Required and not ReadOnly and (FieldKind=fkData) and IsNull then
            begin
           // allow autoincrement and defaulted fields to be null;
              columnindex := Resultset.FindColumn(Fields[i].FieldName);
              if (Columnindex = 0) or
                 (not Resultset.GetMetadata.HasDefaultValue(columnIndex) and
                  not Resultset.GetMetadata.IsAutoIncrement(columnIndex)) then
                raise EZDatabaseError.Create(Format(SNeedField,[DisplayName]));
            end;
        End;
  end;

This indicates for me 'HasDefaultValue' returns false for mysql5.1 and not for versions below.
If you can send the create table statement I could try to check this myself easily.

Mark