Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

property assigment does not work #253

Open
relativ opened this issue Nov 3, 2021 · 0 comments
Open

property assigment does not work #253

relativ opened this issue Nov 3, 2021 · 0 comments

Comments

@relativ
Copy link

relativ commented Nov 3, 2021

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant