From Clomosy Docs

(Created page with "To connect to a SQL Server database using the DBSQLServerConnect component in Clomosy, you can follow these basic steps: * Set the SQL Server Connection String: First, you'll need to prepare the connection string that you'll use to connect to the SQL Server database. This string should include the name of the SQL Server, the database name, authentication credentials, and other connection details. Clomosy.DBSQLServerConnect(<span style="color:red">'SQL Server','server_...")
 
No edit summary
Line 21: Line 21:


'''Example:'''<br>
'''Example:'''<br>
Var 
 
MyForm:TclForm;
:'''Base Syntax'''
LocalQ:TUniQuery;
  Var
  LocalQ:TUniQuery;
begin  
 
  begin  
Clomosy.DBSQLServerConnect(<span style="color:red">'SQL Server','server_name','user_name','user_password','database_name',port</span>);
    Clomosy.DBSQLServerConnect(<span style="color:red">'SQL Server','server_name','user_name','user_password','database_name',1433</span>);
LocalQ := Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
    LocalQ := Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
LocalQ.First;
    LocalQ.First;
MyForm := TclForm.Create(Self); 
    with LocalQ do
with LocalQ do
    begin
begin
      While NOT EOF Do
  While NOT EOF Do
      Begin
  Begin
        ShowMessage(FieldByName('Product_Model').AsString);
    ShowMessage(FieldByName('Product_Model').AsString);
        Next;
    Next;
      End;
  End;
    end;
end;
  end;
 
MyForm.Run;
 
end;
:'''TRObject Syntax'''
  Var
  LocalQ:TUniQuery;
 
  {
    Clomosy.DBSQLServerConnect(<span style="color:red">'SQL Server','server_name','user_name','user_password','database_name',1433</span>);
    LocalQ = Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
    LocalQ.First;
    with LocalQ do
    {
      While (NOT EOF)
      {
        ShowMessage(FieldByName('Product_Model').AsString);
        Next;
      }
    }
  }

Revision as of 11:09, 13 February 2024

To connect to a SQL Server database using the DBSQLServerConnect component in Clomosy, you can follow these basic steps:

  • Set the SQL Server Connection String:

First, you'll need to prepare the connection string that you'll use to connect to the SQL Server database. This string should include the name of the SQL Server, the database name, authentication credentials, and other connection details.

Clomosy.DBSQLServerConnect('SQL Server','server_name','user_name','user_password','database_name',port);
  • Define the TUniQuery component:

To execute queries in SQL Server, you can use the TUniQuery component. It is defined within your application.

var
LocalQ:TUniQuery;
  • Specify the SQL query you want to run:
LocalQ := Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
  • To go to the first record in the query's result set:
LocalQ.First;
  • To advance to the next record in the data access component:
LocalQ.Next;

Example:

Base Syntax
 Var
 LocalQ:TUniQuery;
 
 begin 
   Clomosy.DBSQLServerConnect('SQL Server','server_name','user_name','user_password','database_name',1433);
   LocalQ := Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
   LocalQ.First;
   with LocalQ do
   begin
     While NOT EOF Do
     Begin
       ShowMessage(FieldByName('Product_Model').AsString);
       Next;
     End;
   end;
 end;


TRObject Syntax
 Var
 LocalQ:TUniQuery;
 
 { 
   Clomosy.DBSQLServerConnect('SQL Server','server_name','user_name','user_password','database_name',1433);
   LocalQ = Clomosy.DBSQLServerQueryWith('SELECT model AS Product_Model FROM OperatingSystem');
   LocalQ.First;
   with LocalQ do
   {
     While (NOT EOF)
     {
       ShowMessage(FieldByName('Product_Model').AsString);
       Next;
     }
   }
 }