Azure veritabanından verileri listview üzerine çekmeye çalışıyorum fakat çekemiyorum.
Var
userForm:TclForm;
lstView : TClProListView;
testDesignerPanel : TClListViewDesignerPanel;
userQuery : TclSqlQuery;
void LoadIlanlarFromDatabase;
{
try
userQuery.Connection = Clomosy.DBSQLServerConnection;
userQuery.SQL.Text = 'SELECT BookType as MAIN_TEXT, Usernam1 as MAIN_TEXT FROM BooksDataBase';
userQuery.Open;
if (userQuery.Found)
{
lstView.ClLoadProListViewDataFromDataset(userQuery);
}
else
{
ShowMessage('Kayıt Bulunamadı!');
}
finally
userQuery.Free;
}
}
{
lstView = userQuery.AddNewListView(userQuery,'lstView');
lstview.Align = alClient;
userQuery = TclSqlQuery.Create(nil);
Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.33', 'SA', 'reallyStrongPwd123', 'ClomosyDataBase', 1433);
userQuery.Connection = Clomosy.DBSQLServerConnection;
userForm = TclForm.Create(Self);
LoadIlanlarFromDatabase;
userForm.Run;
}