Skip to content

property assigment does not work #253

Open
@relativ

Description

@relativ
Program IFSTest;
var
	SQLConnection: TDBConnection;
	SQLQuery: TDBQuery;
Begin

	SQLConnection:= TDBConnection.Create();

	SQLConnection.ProviderName := 'MySQL'; // property assigment time whole program getting exit

SQLConnection.UserName := 'root';
	SQLConnection.Password := '';
	SQLConnection.Server := 'localhost';
	SQLConnection.Database := 'mysql';
	SQLConnection.Open();
	
	SQLQuery:= TDBQuery.Create();
	SQLQuery.Connection := SQLConnection;
	SQLQuery.SQL.Text := 'select * from user';
	SQLQuery.Open;
	while not SQLQuery.Eof do
	begin
                                Memo1.Lines.Add(SQLQuery.FieldByNameAsString('User')) ;
		SQLQuery.Next;
	end;
	
	SQLQuery.Close();
	SQLQuery.Free();
	
	SQLConnection.Close();
	SQLConnection.free();
	
End.

hello that 2 object calling from dll and added to pascalscript plugings collection then i test with this code but object creation succeded then exit whole program when the property set by text

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions