paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 12:38:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Implemented Null-values for MySQL-fields

Browse Source 
git-svn-id: trunk@3779 -
This commit is contained in:
joost 2006-06-03 21:43:13 +00:00
parent 53201802d5
commit fcd98ffa77
1 changed files with 17 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fcl/db/sqldb/mysql/mysqlconn.inc
View File

@ -65,7 +65,7 @@ Type
Procedure ConnectToServer; virtual;
Procedure SelectDatabase; virtual;
function MySQLDataType(AType: enum_field_types; ASize: Integer; var NewType: TFieldType; var NewSize: Integer): Boolean;
function MySQLWriteData(AType: enum_field_types; ASize: Integer; Source, Dest: PChar): Integer;
function MySQLWriteData(AType: enum_field_types; ASize: Integer; Source, Dest: PChar): Boolean;
// SQLConnection methods
procedure DoInternalConnect; override;
procedure DoInternalDisconnect; override;
@ -421,7 +421,7 @@ function TConnectionName.LoadField(cursor : TSQLCursor;
FieldDef : TfieldDef;buffer : pointer) : boolean;
var
I, FC, CT: Integer;
I, FC: Integer;
field: PMYSQL_FIELD;
row : MYSQL_ROW;
C : TCursorName;
@ -443,9 +443,8 @@ begin
if field^.name=FieldDef.name then break;
Inc(Row);
end;
CT := MySQLWriteData(field^.ftype, field^.length, Row^, Buffer);
result := true;
Result := MySQLWriteData(field^.ftype, field^.length, Row^, Buffer);
end;
function InternalStrToFloat(S: string): Extended;
@ -542,7 +541,7 @@ begin
Result := Result + EncodeTime(EH, EN, ES, 0);;
end;
function TConnectionName.MySQLWriteData(AType: enum_field_types;ASize: Integer; Source, Dest: PChar): Integer;
function TConnectionName.MySQLWriteData(AType: enum_field_types;ASize: Integer; Source, Dest: PChar): Boolean;
var
VI: Integer;
@ -551,73 +550,65 @@ var
Src : String;
begin
Result := 0;
If (Source<>Nil) Then
Src:=StrPas(Source)
else
Src:='';
Result := False;
if Source = Nil then
exit;
Src:=StrPas(Source);
case AType of
FIELD_TYPE_TINY, FIELD_TYPE_SHORT, FIELD_TYPE_LONG, FIELD_TYPE_LONGLONG,
FIELD_TYPE_INT24:
begin
Result:=SizeOf(Integer);
if (Src<>'') then
VI := StrToInt(Src)
else
VI := 0;
Move(VI, Dest^, Result);
Move(VI, Dest^, SizeOf(Integer));
end;
{$ifdef mysql50}
FIELD_TYPE_NEWDECIMAL,
{$endif}
FIELD_TYPE_DECIMAL, FIELD_TYPE_FLOAT, FIELD_TYPE_DOUBLE:
begin
Result := SizeOf(Double);
if Src <> '' then
VF := InternalStrToFloat(Src)
else
VF := 0;
Move(VF, Dest^, Result);
Move(VF, Dest^, SizeOf(Double));
end;
FIELD_TYPE_TIMESTAMP:
begin
Result := SizeOf(TDateTime);
if Src <> '' then
VD := InternalStrToTimeStamp(Src)
else
VD := 0;
Move(VD, Dest^, Result);
Move(VD, Dest^, SizeOf(TDateTime));
end;
FIELD_TYPE_DATETIME:
begin
Result := SizeOf(TDateTime);
if Src <> '' then
VD := InternalStrToDateTime(Src)
else
VD := 0;
Move(VD, Dest^, Result);
Move(VD, Dest^, SizeOf(TDateTime));
end;
FIELD_TYPE_DATE:
begin
Result := SizeOf(TDateTime);
if Src <> '' then
VD := InternalStrToDate(Src)
else
VD := 0;
Move(VD, Dest^, Result);
Move(VD, Dest^, SizeOf(TDateTime));
end;
FIELD_TYPE_TIME:
begin
Result := SizeOf(TDateTime);
if Src <> '' then
VD := InternalStrToTime(Src)
else
VD := 0;
Move(VD, Dest^, Result);
Move(VD, Dest^, SizeOf(TDateTime));
end;
FIELD_TYPE_VAR_STRING, FIELD_TYPE_STRING, FIELD_TYPE_ENUM, FIELD_TYPE_SET:
begin
Result := ASize;
{ Write('Moving string of size ',asize,' : ');
P:=Source;
If (P<>nil) then
@ -628,11 +619,12 @@ begin
end;
Writeln;
} if Src<> '' then
Move(Source^, Dest^, Result)
Move(Source^, Dest^, ASize)
else
Dest^ := #0;
end;
end;
Result := True;
end;
procedure TConnectionName.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);